SabreTalk

SabreTalk är en avvecklad dialekt av PL/I för S/360 IBM stordatorer som kör TPF -plattformen. SabreTalk utvecklades gemensamt av American Airlines , Eastern Air Lines och IBM . SabreTalk är känt som PL/TPF (Programming Language for TPF).

SabreTalk-program körs fortfarande i British Airways Flight Operations-system ( FICO ) under ALCS, och använder en kommersiellt tillgänglig automatisk omvandlare för att översätta SabreTalk-program till C -program. Både Reservations- och Operations Support System (OSS) från Delta Air Lines utvecklades med både SabreTalk och IBM 360 Assembler. Även om utvecklingen för närvarande är begränsad till C++ , fanns majoriteten av Deltas programmeringsplattform kvar i Sabretalk tills nyligen på 2010-talet.

På grund av tillgången på översättare från SabreTalk till C och upphört stöd från de ursprungliga utvecklarna, börjar flera företag övergången från SabreTalk till rent C-baserade program.

Kodprov:

  
          
          
          
                         
         0
  
          0    
                  
        
          0                       
                                   
                           
                                    EXEMPEL  :  PROCEDUR  ;  DECLARE  ARRAY  (  10  )  DECIMAL  (  5  )  BASERAD  (  POINTUR  )  ;  DEKLARERA  MOT  BINÄR  (  15  )  JUSTERAD  ;  DEKLERA  TOTALT  BINÄRT  (  31  )  JUSTERAD  ;  START  (  POINTUR  =  #  RG1  )  ;  /* TA ETT PEKARE TILL ARRAY I REGISTER 1 */  TOTAL  =  ;  LOOP  :  DO  COUNTER  =  TO  10  BY  2  ;  TOTAL  =  TOTAL  +  ARRAY  (  COUNTER  )  ;  /* TALLY JÄMNNUMMERERADE ARTIKLAR *  /  ÄNDSLÖGLA  ;  OM  TOTAL  =  DÅ  /* VÄRDET AV TOTALT BERÄKNAT? */   ENTRC  ERRO  ;  /* N=KONTROLLERA GILTIGHET I PROG FEL MED/RETURNERA FÖRVÄNTAD*/  BACKC  (  #  RAC  =  TOTAL  )  ;  /* TILLBAKA TILL ANRINGSPROGRAMMET PASSAR VÄRDE PÅ */  AVSLUTA  SAMPLE  ;  /* TOTALT I REGISTER RAC. */  

externa länkar

• Sabretalk Programmers referensguide på Wayback Machine (arkiverad 21 oktober 2012)
• Robinson, Jeff (mars 2001). "Flytta från SabreTalk till "C" Del 1: Hur SabreTalk "Procedurer" blir "C"-funktioner" (PDF) . ACP/TPF idag . Arkiverad från originalet (PDF) den 26 mars 2012.