EMS FastStart Manual

DDL, Copy Libraries and Templates Example
EMS FastStart Manual–133701
D-5
ATM Example, COBOL85 COPYLIB: ATM1COB
02 SSID-OWNER.
03 Z-C PIC X(8).
03 Z-S REDEFINES Z-C.
04 Z-I NATIVE-2
OCCURS 4 TIMES.
03 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
02 SSID-SUBSYSTEM-NUMBER NATIVE-2.
02 SSID-VERSION NATIVE-2.
02 EGEN-ERROR NATIVE-2.
02 EVENT-TYPE PIC S9(4) COMP.
02 EVENT-NUMBER NATIVE-2.
02 ACTION-ID NATIVE-2.
02 SUPPRESS-DISPLAY PIC X(2).
02 SUBSYSTEM-MANAGER.
03 Z-SYSNAME.
04 Z-C PIC X(8).
04 Z-S REDEFINES Z-C.
05 Z-I NATIVE-2
OCCURS 4 TIMES.
04 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
03 Z-LOCALNAME.
04 Z-DISC.
05 Z-VOLUME.
06 Z-C PIC X(8).
06 Z-S REDEFINES Z-C.
07 Z-I NATIVE-2
OCCURS 4 TIMES.
06 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
05 Z-SUBVOLUME.
06 Z-C PIC X(8).
06 Z-S REDEFINES Z-C.
07 Z-I NATIVE-2
OCCURS 4 TIMES.
06 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
05 Z-FILENAME.
06 Z-C PIC X(8).
06 Z-S REDEFINES Z-C.
07 Z-I NATIVE-2
OCCURS 4 TIMES.
06 Z-B REDEFINES Z-C PIC X
OCCURS 8 TIMES.
04 Z-PROCESS REDEFINES Z-DISC.
05 Z-CRTPID.
06 Z-PROCNAME.
07 Z-C PIC X(6).
07 Z-S REDEFINES Z-C.
08 Z-I NATIVE-2
OCCURS 3 TIMES.
07 Z-B REDEFINES Z-C PIC X
OCCURS 6 TIMES.
06 Z-CRT REDEFINES Z-PROCNAME NATIVE-2
OCCURS 3 TIMES.
06 Z-PID.
07 Z-CPU PIC X(1).
07 Z-PIN PIC X(1).
06 Z-CPUPIN REDEFINES Z-PID NATIVE-2.
05 Z-QUAL1.
06 Z-C PIC X(8).
06 Z-S REDEFINES Z-C.
07 Z-I NATIVE-2
OCCURS 4 TIMES.
06 Z-B REDEFINES Z-C PIC X