Example: using the application interface block

The following example shows how you can use the AIB interface in a COBOL application.


 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 s9(7)   comp-3.
    05 iotime       pic s9(7)   comp-3.
    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