Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 プログラミング・ガイド


例: アプリケーション・インターフェース・ブロックの使用

次の例は、COBOL アプリケーションで AIB インターフェースを使用するにはどうすればよいかを示しています。

 Local-storage section.
    copy AIB.
    . . .
 Linkage section.
 01 IOPCB.
    05 logtterm     pic x(08).
    05              pic x(02).
    05 tpstat       pic x(02).
    05 iodate       pic x(04).
    05 iotime       pic x(04).
    05              pic x(02).
    05 seqnum       pic x(02).
    05 mod          pic x(08).
 Procedure division.
    Move spaces to input-area
    Move spaces to AIB
    Move "DFSAIB" to AIBRID
    Move length of AIB to AIBRLEN
    Move "IOPCB" to AIBRSNM1
    Move length of input-area to AIBOALEN
    Call "CEETDLI" using GU, AIB, input-area
    Set address of IOPCB to AIBRESA1
    If tpstat = spaces
* . . process input message

ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)