SabreTalk - SabreTalk

SabreTalk , TPF platformunu çalıştıran S / 360 IBM ana bilgisayarları için PL / I'nin durdurulan bir lehçesidir . SabreTalk, American Airlines , Eastern Air Lines ve IBM tarafından ortaklaşa geliştirildi . SabreTalk, PL / TPF (TPF için Programlama Dili) olarak bilinir.

SabreTalk programları , SabreTalk programlarını C programlarına çevirmek için ticari olarak temin edilebilen bir otomatik dönüştürücü kullanarak ALCS altında British Airways Flight Operations sisteminde ( FICO ) hala çalışmaktadır . Delta Air Lines'ın Rezervasyon ve Operasyon Destek Sistemi (OSS) hem SabreTalk hem de IBM 360 Assembler kullanılarak geliştirildi. Geliştirme şu anda C ++ ile sınırlı olsa da , Delta'nın programlama platformunun çoğu 2010'lara kadar Sabretalk'ta kaldı.

SabreTalk'tan C'ye çevirmenlerin mevcudiyeti ve artık orijinal geliştiriciler tarafından desteklenmediği için, birçok şirket SabreTalk'tan tamamen C tabanlı programlara geçiş yapmaya başlıyor.

Kod Örneği: 

 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;                                 /*  TOTAL IN REGISTER RAC.                        */

Referanslar

Dış bağlantılar