Loading article…
SabreTalkは、 TPFプラットフォームを実行するS/360 IBMメインフレーム用のPL/Iの廃止された方言です。SabreTalkは、アメリカン航空、イースタン航空、IBMによって共同で開発されました。SabreTalkはPL/TPF（TPF用プログラミング言語）として知られています。[1]
1973年、イースタン航空のコンピューティング部門はSabreTalkコンパイラを95,000ドルで販売していました。[2]
SabreTalk プログラムは、市販の自動コンバータを使用して SabreTalk プログラムをCプログラムに変換し、ALCS の下にあるBritish Airways Flight Operations システム (FICO) で現在も実行されています。Delta Air Linesの予約および運用サポート システム (OSS) は、どちらもSabreTalk と IBM 360 Assembler の両方を使用して開発されました。現在、開発はC++に制限されていますが、Delta のプログラミング プラットフォームの大部分は、2010 年代の最近まで Sabretalk のままでした。
SabreTalkからCへのトランスレータ[3] [4]が利用可能になり、元の開発者によるサポートが中止されたため、いくつかの企業がSabreTalkから純粋なCベースのプログラムへの移行を開始しています。
コードサンプル:
サンプル:手順; DECLARE ARRAY ( 10 ) DECIMAL ( 5 ) BASED ( POINTUR ) ; DECLARE COUNTER BINARY ( 15 ) ALIGNED ; DECLARE TOTAL BINARY ( 31 ) ALIGNED ; START ( POINTUR = # RG1 ) ; /* レジスタ 1 の配列へのポインタを受け取る */ TOTAL = 0 ;ループ: DO COUNTER = 0 TO 10 BY 2 ; TOTAL = TOTAL + ARRAY ( COUNTER ) ; /* 偶数項目を集計する */ END LOOP ; IF TOTAL = 0 THEN /* 合計の値が計算されるか? */ ENTRC ERRO ; /* N=プログラム内の有効性をチェック エラー W/戻りが期待される*/ BACKC ( # RAC = TOTAL ) ; /* 呼び出し元プログラムに戻り、値を渡す */ END SAMPLE ; /* レジスタ RAC 内の TOTAL。 */
参考文献
- ^ SJ Hobson、「ALCS - 高性能で高可用性のある DB/DC モニター」、p. 136 (脚注 2)、High Performance Transaction Systems、第 2 回国際ワークショップ、Asilomar Conference Center、カリフォルニア州パシフィック グローブ、米国、1987 年 9 月 28 ～ 30 日、議事録。Lecture Notes in Computer Science 359、Springer 1989、ISBN 3-540-51085-0。
- ^ 「Sabretalk が 100K 削減」。Computerworld . 7 (18)。IDG Enterprise: 17。1973-05-02。
{{cite journal}}: CS1 メンテナンス: 日付と年 (リンク) - ^ S. Dhinakar Jacob、Madhuchhanda Das、「TALK2C: 自動移行ツール」、icpc、pp.288、第 11 回 IEEE 国際プログラム理解ワークショップ (IWPC'03)、2003 年
- ^ Ira Baxter、「コード近代化へのアプローチ」、TPF ユーザー グループ ミーティング 2019
外部リンク
- Sabretalk プログラマー向けリファレンス ガイド ( Wayback Machineより) (2012 年 10 月 21 日アーカイブ)
- Robinson, Jeff (2001 年 3 月)。「SabreTalk から "C" への移行 パート 1: SabreTalk の "プロシージャ" が "C" 関数になる仕組み」(PDF)。ACP /TPF Today。2012年 3 月 26 日のオリジナル(PDF)からアーカイブ。