The example in Figure 420 shows how to use the same interface with a COBOL user program.
Figure 420 Example - COBOL
. . . . . . . . . . . . . . . . .
WORKING-STORAGE SECTION.
. . . . . . . . . . . . . . . . .
01 INIT PIC X(8) VALUE 'INIT'.
01 CHECK PIC X(8) VALUE 'CHECK'.
01 KILL PIC X(8) VALUE 'KILL'.
01 RULE PIC X(8) VALUE 'CTBSSSM'.
01 MISSION PIC X(8) VALUE ' '.
01 GRP PIC X(8) VALUE 'TSTGROUP'.
01 RULENAME PIC X(8) VALUE 'TSTCHECK'.
01 LINEST.
05 LINEL PIC 999 USAGE BINARY.
05 LINE1 PIC X(100).
01 LINEID PIC S9(6) USAGE BINARY.
01 TOLER PIC S9(6) USAGE BINARY.
. . . . . . . . . . . . . . . . . . . . . . . .
PROCEDURE DIVISION.
. . . . . . . . . . . . . . . . . . . . . . . . . . .
CALL 'CTBSSCL' USING INIT, RULE, MISSION, GRP, RULENAME.
. . . . . . . . . . . . . . . . . . . . . . . . . . .
CALL 'CTBSSCL' USING CHECK, LINEST, LINEID, TOLER.
. . . . . . . . . . . . . . . . . . . . . . . . . . .
CALL 'CTBSSCL' USING KILL.
Parent Topic |