imported>Icodense: unbelegt

2022-10-18T17:10:45Z

unbelegt

Neue Seite

{{Belege}}
'''SabreTalk''' ist ein Dialekt der [[PL/I]]-[[Programmiersprache]] für die IBM-Großrechnerfamilie [[S/360]] unter dem [[Transaction Processing Facility|TPF]]-Betriebssystem.

Es ist eine Gemeinschaftsentwicklung von [[IBM]], [[American Airlines]] und [[Eastern Air Lines]].

SabreTalk-Programme sind beim Flugoperationssystem [[Flight Information and Control of Operations|FICO]] der [[British Airways]] noch im Einsatz, obwohl es einen kommerziellen automatischen [[Konvertierung (Informatik)|Converter]] gibt, der in SabreTalk geschriebene Programme in [[C (Programmiersprache)|C]] umwandeln kann.

== Beispiel ==
SAMPLE: PROCEDURE;
DECLARE ARRAY(10) DECIMAL(5) BASED(POINTUR);
DECLARE COUNTER BINARY(15) ALIGNED;
DECLARE TOTAL BINARY(31) ALIGNED;
START(POINTUR=#RG1); /* RECEIVE POINTER TO ARRAY IN REGISTER 1 */
TOTAL = 0;
LOOP:
DO COUNTER = 0 TO 10 BY 2;
TOTAL = TOTAL + ARRAY(COUNTER); /* 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(#RAC= TOTAL); /* BACK TO CALLING PROGRAM PASSING VALUE OF */
END SAMPLE;

[[Kategorie:Programmiersprache]]

SabreTalk - Versionsgeschichte

imported>Icodense: unbelegt