EMS FastStart Manual

DDL, Copy Libraries and Templates Example
EMS FastStart Manual–133701
D-6
ATM Example, COBOL85 COPYLIB: ATM1COB
OCCURS 8 TIMES.
05 Z-QUAL2.
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-DEVICE REDEFINES Z-DISC.
05 Z-DEVNAME.
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-SUBDEVNAME.
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-FILLER PIC X(8).
02 EVENT-TEXT.
03 Z-C PIC X(254).
03 Z-S REDEFINES Z-C.
04 Z-I NATIVE-2
OCCURS 127 TIMES.
03 Z-B REDEFINES Z-C PIC X
OCCURS 254 TIMES.
02 SUBJECT-FIELD-NAME.
03 Z-C PIC X(24).
03 Z-S REDEFINES Z-C.
04 Z-I NATIVE-2
OCCURS 12 TIMES.
03 Z-B REDEFINES Z-C PIC X
OCCURS 24 TIMES.
02 ATM-NAME.
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 ATM-LOCATION.
03 Z-C PIC X(24).
03 Z-S REDEFINES Z-C.
04 Z-I NATIVE-2
OCCURS 12 TIMES.
03 Z-B REDEFINES Z-C PIC X
OCCURS 24 TIMES.
02 ATM-ACCOUNT-NUM NATIVE-4.
02 ATM-RETRY-LIMIT NATIVE-2.
02 ATM-HW-COMPONENT.
03 Z-C PIC X(24).
03 Z-S REDEFINES Z-C.
04 Z-I NATIVE-2
OCCURS 12 TIMES.
03 Z-B REDEFINES Z-C PIC X
OCCURS 24 TIMES.
02 ATM-HW-SUBCOMPONENT.
03 Z-C PIC X(24).
03 Z-S REDEFINES Z-C.
04 Z-I NATIVE-2
OCCURS 12 TIMES.