NetBatch Management Programming Manual

NetBatch Procedure Calls
NetBatch Management Programming Manual—522462-003
7-22
Sample COBOL Program
05 START-TIME.
07 B NATIVE-2.
05 START-UP PIC X(40).
05 IN-FILE PIC X(36).
05 OUT-FILE PIC X(36).
05 DEFAULTS PIC X(26).
05 FILLER PIC X(1).
05 HOLD-FLAG PIC X(1).
05 RESTART-FLAG PIC X(1).
05 JOB-TEXT PIC X(32).
05 FILLER PIC X(1).
05 STOP-ON-ABEND PIC X(1).
05 HIGHPIN PIC X(1).
05 FILLER PIC X(6).
05 HOLD-AFTER-FLAG PIC X(1).
01 BASE-DATE.
03 BD-T1 NATIVE-2.
03 BD-T2 NATIVE-2.
03 BD-T3 NATIVE-2.
01 MASTERS-ARRAY.
03 MASTERS PIC X(24) OCCURS 8 TIMES.
01 PURGE-TEST-FLAG NATIVE-2.
01 TIME-REC.
03 T-TYPE NATIVE-2.
03 T-EVERY.
05 EDAYS NATIVE-2.
05 HHMM NATIVE-2.
05 FILLER PIC X(32).
03 CALENDAR REDEFINES T-EVERY PIC X(36).
01 RT-TIME.
03 RT-T1 NATIVE-2.
03 RT-T2 NATIVE-2.
03 RT-T3 NATIVE-2.
01 ALTER-FLAG NATIVE-2.
01 OPEN-T.
03 X OCCURS 8 TIMES.
05 CHAN NATIVE-2.
05 VERS NATIVE-2.
05 SCHED PIC X(6).
03 XSUM NATIVE-2.
01 NB-JOB-NUM NATIVE-2 VALUE 0.
(continued)