SabreTalk


SabreTalk is a discontinued dialect of PL/I for the S/360 IBM mainframes running the TPF platform. SabreTalk was developed jointly by American Airlines, Eastern Air Lines and IBM. SabreTalk is known as PL/TPF.
SabreTalk programs still run in the British Airways Flight Operations system under ALCS, using a commercially available automatic converter to translate SabreTalk programs to C programs. Both the Reservations and Operations Support System of Delta Air Lines were developed using both SabreTalk and IBM 360 Assembler. Although development is currently restricted to C++, the majority of Delta's programming platform remained in Sabretalk until recently in the 2010s.
Because of the translator
from SabreTalk to C and because it is no longer supported by the original developers, several companies are beginning the move away from SabreTalk to purely C-based programs.
Code Sample:

SAMPLE: PROCEDURE;
DECLARE ARRAY DECIMAL BASED;
DECLARE COUNTER BINARY ALIGNED;
DECLARE TOTAL BINARY ALIGNED;
START; /* RECEIVE POINTER TO ARRAY IN REGISTER 1 */
TOTAL = 0;
LOOP:
DO COUNTER = 0 TO 10 BY 2;
TOTAL = TOTAL + ARRAY; /* TALLY EVEN NUMBERED ITEMS */
END LOOP;
IF TOTAL = 0 THEN /* VALUE OF TOTAL COMPUTED? */
ENTRC ERRO; /* N=CHECK VALIDITY IN PROG ERRO W/RETURN EXPECTED*/
BACKC; /* BACK TO CALLING PROGRAM PASSING VALUE OF */
END SAMPLE; /* TOTAL IN REGISTER RAC. */