Rational Developer for System z
Enterprise COBOL for z/OS, Version 4.1, Programming Guide


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 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

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)