Copybook Parse Failure
Obelisk
01 TXMV56.
02 STDOUTPTPRIMARYHEADER.
03 STDOUTPT-SERVICE-REQUEST PIC X(24).
03 STDOUTPT-SERVICE-REQUEST2 PIC X(24).
03 STDOUTPT-MESSAGE-VERSION-NBR PIC 9(2).
03 STDOUTPT-DATA-LENGTH PIC 9(8).
03 STDOUTPT-SERVICE-RESULT-CODE PIC 9(3).
03 STDOUTPT-ERROR-MESSAGE PIC X(40).
03 STDOUTPT-CONDITION-CODE PIC 9(8).
02 SECONDRGSECONDARYHEADER.
03 SECONDRG-PROCESS-APPLICATION PIC X(3).
03 SECONDRG-ACCOUNT-NBR PIC X(23).
03 SECONDRG-REGISTRATION-NBR PIC X(23).
03 SECONDRG-LINKAGE-NBR PIC 9(2).
02 TRAN-INFO. INOUT
* USER DEFINED TYPE
03 CICS-TRAN-ID PIC X(4). INOUT
03 FILLER-1 PIC X(3). INOUT
03 SI-INT-TRAN-ID PIC X(4). INOUT
03 FILLER-2 PIC X(27). INOUT
03 SOURCE-CODE PIC X(2). INOUT
03 TRAN-LENGTH PIC X(5). INOUT
03 USER-ID PIC X(8). INOUT
03 DATA-FLOW PIC X. INOUT
03 ADMIN-TRAN-PROCESS PIC X. INOUT
03 BUSINESS-MODULE PIC X(8). INOUT
03 FILLER-3 PIC X(6). INOUT
03 DAG-COUNT PIC X(2). INOUT
02 DAG-HEADER1.
* USER DEFINED TYPE
03 DAG-NAME PIC X(8). INOUT
03 WHOLE-DAG PIC X. INOUT
03 DATA-FLOW PIC X. INOUT
03 MODIFY-WORK-DAG PIC X. INOUT
03 RETAIN-DAG-CONTENTS PIC X. INOUT
03 DAG-LENGTH PIC X(5). INOUT
* USER DEFINED TYPE
02 IMTRTRNL-DAG. INOUT
* USER DEFINED TYPE
03 IMTRTRNL-WMS-CONTROL-KEY. INOUT
* USER DEFINED TYPE
04 WMS-CONTROL-1 PIC X(2). INOUT
04 WMS-CONTROL-2 PIC X(3). INOUT
04 WMS-CONTROL-3 PIC X(3). INOUT
04 WMS-CONTROL-4 PIC X(4). INOUT
04 WMS-ACCT-NO PIC X(10). INOUT
03 SEQUENCE-NR PIC 9(1) DISPLAY. INOUT
03 HIST-DB-IND PIC X. INOUT
03 PG-DIR-CD PIC X. INOUT
03 MORE-IND PIC X. INOUT
03 BKDT-TRAN-IND PIC X. INOUT
03 BEG-KEY PIC X(100). INOUT
03 END-KEY PIC X(100). INOUT
03 PAGING-BAL PIC X(18). INOUT
03 SHORT-NAME PIC X(13). INOUT
03 TRAN-SELECTION. INOUT
* USER DEFINED TYPE
04 SEL-TYPE PIC X. INOUT
04 BEG-DATE PIC X(6). INOUT
04 END-DATE PIC X(6). INOUT
04 FILLER PIC X(7). INOUT
03 TRANSACTIONS. INOUT
* USER DEFINED TYPE
04 TRAN-LINE OCCURS 100 TIMES. INOUT
* USER DEFINED TYPE
05 POST-DATE-DDMMCCYY PIC 9(8) DISPLAY. INOUT
05 POST-EFF-DDMMCCYY PIC 9(8) DISPLAY. INOUT
05 TRAN-CODE PIC X(4). INOUT
05 TRANSACTION-AMOUNT PIC X(16). INOUT
05 TRAN-TYPE PIC X. INOUT
05 TRAN-SERIAL-NR PIC X(10). INOUT
05 TRAN-DESCR PIC X(16). INOUT
05 TRAN-DESCR-LONG PIC X(38). INOUT
05 STMT-OP-NAME PIC X(20). INOUT
05 STMT-THIS-PARTY-NAME PIC X(20). INOUT
05 STMT-PARTIC PIC X(12). INOUT
05 STMT-CODE PIC X(12). INOUT
05 STMT-REF PIC X(12). INOUT
05 UDT-INPUT-SOURCE PIC X(2). INOUT
05 WBC-SC-STMT-SYM PIC X(2). INOUT
05 RUNNING-BALANCE PIC X(18). INOUT
05 PROC-TIME PIC X(8). INOUT
03 FILLER PIC X. INOUT
02 TSMDA. OCCURS 0 TO 1 TIMES.
10 DAGHEADER-MDA.
15 DAG-PROGRAM-NAME-MDA PIC X(8).
15 DAG-DAG-TYPE-MDA PIC X.
15 DAG-DIRECTION-IND-MDA PIC X.
15 DAG-DISPOSITION-MDA PIC X(2).
15 DAG-LENGTH-MDA PIC 9(5) DISPLAY.
10 TSMDA-MDA-AREA.
15 TSMDA-MDA-STEM.
20 TSMDA-MDA-EYE-CATCHER PIC X(8).
20 TSMDA-MDA-ENDING-ADDR PIC S9(8) COMP.
20 TSMDA-MDA-NEXT-AVAIL-POSITION PIC S9(4) COMP.
20 TSMDA-MDA-FORC-POST-HI-SER-LVL PIC X.
20 TSMDA-MDA-HI-SEVERITY-LVL PIC XX.
20 TSMDA-MDA-HI-SEVERITY-CODE PIC X.
20 TSMDA-MDA-OCCURRENCE-IN-PROC PIC S9(4) COMP.
20 TSMDA-MDA-MAX-POSSIBLE-MSGS PIC S9(4) COMP.
20 TSMDA-MDA-OCCURRENCE-LENGTH PIC S9(4) COMP.
20 TSMDA-MDA-OCCUR-TO-DISPLAY PIC S9(4) COMP.
20 FILLER PIC X(124).
20 TSMDA-MDA-FORC-LOOKUP-MSG-AREA OCCURS 1 TO 14 TIMES.
25 TSMDA-MDA-STM-ASSOC-PCA-ADDR PIC S9(8) COMP.
25 TSMDA-MDA-STM-DAG PIC X(8).
25 TSMDA-MDA-STM-FIELD-ID PIC X(8).
25 TSMDA-MDA-STM-FIELD-DIMENS.
30 TSMDA-MDA-STM-FIELD-DIMEN-1 PIC S9(4) COMP.
30 TSMDA-MDA-STM-FIELD-DIMEN-2 PIC S9(4) COMP.
30 TSMDA-MDA-STM-FIELD-DIMEN-3 PIC S9(4) COMP.
25 TSMDA-MDA-STM-SORT-KEY.
30 TSMDA-MDA-STM-SCR-PROC-ORD PIC XX.
30 TSMDA-MDA-STM-SEVERITY-LVL PIC XX.
30 TSMDA-MDA-STM-FIELD-ROW PIC X.
30 TSMDA-MDA-STM-FIELD-COL PIC X.
25 TSMDA-MDA-STM-PROGRAM-ID PIC X(8).
25 TSMDA-MDA-STM-MESSAGE-CODE PIC X(6).
25 TSMDA-MDA-STM-VARIABLE-DATA.
30 TSMDA-MDA-STM-VARIABLE-1 PIC X(25).
30 TSMDA-MDA-STM-VARIABLE-2 PIC X(25).
25 TSMDA-MDA-STM-CURSOR-POSITION PIC XX.
25 TSMDA-MDA-STM-ROUTING-FLAG PIC X.
25 TSMDA-MDA-STM-SECURITY-FLAG PIC X.
25 TSMDA-MDA-STM-FORCE-POST-FLAG PIC X.
25 TSMDA-MDA-STM-MSG-SEVERITY-CD PIC X.
25 TSMDA-MDA-STEM-PROCESSED-FLAG PIC X.
25 FILLER PIC X(16).
20 END-BIT-SI-BUG OCCURS 0 TO 1 TIMES.
25 FILLER PIC X(2).
