NetBatch Management Programming Manual

Sample Programs
NetBatch Management Programming Manual—522462-003
C-18
Sample COBOL Program
***************************************************************
* Working-storage constants
*
***************************************************************
/
?NOLIST
?SOURCE $ISV.ZSPIDEF.ZBATCOB (ZBAT-TKN-SPI,
? ZBAT-TKN-EMS,
? ZBAT-DDL-NETBATCH-NAME,
? ZBAT-MAP-STATUS-JOB,
? ZBAT-DDL-STATUS-JOB,
? ZBAT-VAL-SSID,
? ZBAT-MAP-DEF-JOB,
? ZBAT-DDL-DEF-JOB,
? CONSTANTS)
/
?SOURCE $ISV.ZSPIDEF.ZSPICOB
?LIST
/
01 W02-WORK-AREA.
03 W02-PORTION PIC X(30).
03 W02-TEXT PIC X(50).
03 W02-RESULT PIC S9(4) COMP.
03 W02-TRUE NATIVE-2 VALUE -1.
01 W03-WORK-AREA.
03 W03-DISPLAY-NUM PIC ZZZ9.
03 W03-SCHED-STATUS PIC XX VALUE "00".
03 W03-ERROR-TEXT PIC X(75).
01 W05-SPI-WORK-AREA.
03 W05-STATUS NATIVE-2.
03 W05-DATA-STRUCT.
05 W05-DATA-LEN NATIVE-2.
05 W05-DATA-AREA PIC X(30).
03 W05-TOKEN-RETCODE NATIVE-2.
03 W05-TOKEN-JOBNUM NATIVE-2.
03 W05-ASCII PIC X(5).
01 W07-ERROR-MESSAGES.
03 FILLER PIC X(75) VALUE
"ERROR ON SCHEDULER $ZBAT.#ZSPI, FILE STATUS =: ".
03 FILLER PIC X(75) VALUE
"SSGET Failed ".
03 FILLER PIC X(75) VALUE
"SSINIT Failed ".
(continued)