SabreTalk
|
|
SabreTalk is a dialect of PL/1 for the S/360 IBM mainframes running the TPF platform. SabreTalk was developed jointly by American Airlines, Eastern Airlines and IBM.
SabreTalk programs are still running in the British Airways Flight Operations system (FICO), although a commercially available automatic converter is being used to translate Sabretalk programs to C programs.
Code Sample:
SAMPLE: PROCEDURE;
DECLARE ARRAY(10) DECIMAL(5) BASED(POINTER);
DECLARE COUNTER BINARY(15) ALIGNED;
DECLARE TOTAL BINARY(31) ALIGNED;
START(POINT=#RG1);
TOTAL = 0;
LOOP: DO COUNTER = 1 TO 10 BY 1;
TOTAL = TOTAL + ARRAY(COUNTER); /*TALLY ITEMS*/
END LOOP;
IF TOTAL = 0 THEN ENTRC ERRO; /*CHECK VALIDITY*/
BACKC(#RAC= TOTAL);
END SAMPLE;