A100-DATA-DIVISION            ABA-SELECT                     ENTRY
A100-DATA-DIVISION            ABB-SELECT                    YENTRY
A100-DATA-DIVISION            ABB-SELECT                    CGOTO      ABB-TEST-0001
A100-DATA-DIVISION            ABB-CASE-0001                 YENTRY
A100-DATA-DIVISION            ABB-CASE-0001                 UPERFORM   NAA-ADD-TO-TABLE
A100-DATA-DIVISION            ABB-CASE-0001                 UGOTO      ABB-END
A100-DATA-DIVISION            ABB-TEST-0001                  ENTRY
A100-DATA-DIVISION            ABB-TEST-0001                 UPERFORM   B100-FIND-WORD
A100-DATA-DIVISION            ABB-TEST-0001                 CPERFORM   NAA-ADD-TO-TABLE
A100-DATA-DIVISION            ABB-TEST-0001                 CSTOP      STOP RUN
A100-DATA-DIVISION            ACA-SELECT                    YENTRY
A100-DATA-DIVISION            ACA-SELECT                    CGOTO      ACA-TEST-0001
A100-DATA-DIVISION            ACA-CASE-0001                 YENTRY
A100-DATA-DIVISION            ADA-SELECT                    YENTRY
A100-DATA-DIVISION            ADA-SELECT                    CGOTO      ADA-TEST-0001
A100-DATA-DIVISION            ADA-CASE-0001                 YENTRY
A100-DATA-DIVISION            ADA-CASE-0001                 UPERFORM   C100-PROCESS-DATA-ITEM
A100-DATA-DIVISION            ADA-CASE-0001                 CPERFORM   NAA-ADD-TO-TABLE
A100-DATA-DIVISION            ADA-TEST-0001                 YENTRY
A100-DATA-DIVISION            ADA-END                       YENTRY
A100-DATA-DIVISION            ACA-TEST-0001                 YENTRY
A100-DATA-DIVISION            ACA-END                       YENTRY
A100-DATA-DIVISION            ABB-TEST-0002                 YENTRY
A100-DATA-DIVISION            ABB-END                       YENTRY
A100-DATA-DIVISION            ABB-END                       USTOP      EXIT PROGRAM
A100-DATA-DIVISION            AAA-EPROC                      ENTRY
B100-FIND-WORD                BAA-START                     YENTRY
B100-FIND-WORD                BCA-UNTIL                     YENTRY
B100-FIND-WORD                BCA-UNTIL                     CGOTO      BCA-END
B100-FIND-WORD                BCA-UNTIL                     UGOTO      BCA-UNTIL
B100-FIND-WORD                BCA-END                        ENTRY
B100-FIND-WORD                BCA-END                       UGOTO      BBA-END
B100-FIND-WORD                BBA-END                        ENTRY
B100-FIND-WORD                BAA-EPROC                      ENTRY
C100-PROCESS-DATA-ITEM        CAA-START                     YENTRY
C100-PROCESS-DATA-ITEM        CAA-START                     UPERFORM   D100-EXTRACT-WORDS
C100-PROCESS-DATA-ITEM        CAA-START                     UPERFORM   E100-NOT-WANTED
C100-PROCESS-DATA-ITEM        CBA-SELECT                    YENTRY
C100-PROCESS-DATA-ITEM        CBA-SELECT                    CGOTO      CBA-TEST-0001
C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 YENTRY
C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   H100-FIELD-NAME
C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   F100-PICTURE
C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   G100-OCCURS
C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   J100-REDEFINES
C100-PROCESS-DATA-ITEM        CBA-TEST-0001                 YENTRY
C100-PROCESS-DATA-ITEM        CBA-END                       YENTRY
C100-PROCESS-DATA-ITEM        CAA-EPROC                     YENTRY
D100-EXTRACT-WORDS            DAA-START                     YENTRY
D100-EXTRACT-WORDS            DBA-UNTIL                     YENTRY
D100-EXTRACT-WORDS            DBA-UNTIL                     CGOTO      DBA-END
D100-EXTRACT-WORDS            DBA-UNTIL                     UGOTO      DBA-UNTIL
D100-EXTRACT-WORDS            DBA-END                        ENTRY
D100-EXTRACT-WORDS            DAA-EPROC                      ENTRY
E100-NOT-WANTED               EAA-START                     YENTRY
E100-NOT-WANTED               EAA-EPROC                     YENTRY
F100-PICTURE                  FAA-START                     YENTRY
F100-PICTURE                  FBA-SELECT                    YENTRY
F100-PICTURE                  FBA-SELECT                    CGOTO      FBA-END
F100-PICTURE                  FBA-SELECT                    CGOTO      FCA-TEST-0001
F100-PICTURE                  FCA-CASE-0001                 YENTRY
F100-PICTURE                  FDA-SELECT                    YENTRY
F100-PICTURE                  FDA-SELECT                    CGOTO      FDA-TEST-0001
F100-PICTURE                  FDA-SELECT                    UGOTO      FDA-END
F100-PICTURE                  FDA-TEST-0001                  ENTRY
F100-PICTURE                  FDA-TEST-0001                 CGOTO      FDA-TEST-0002
F100-PICTURE                  FDA-TEST-0001                 UGOTO      FDA-END
F100-PICTURE                  FDA-TEST-0002                  ENTRY
F100-PICTURE                  FDA-TEST-0002                 CGOTO      FDA-TEST-0003
F100-PICTURE                  FDA-CASE-0003                 YENTRY
F100-PICTURE                  FDA-CASE-0003                 UGOTO      FDA-END
F100-PICTURE                  FDA-TEST-0003                  ENTRY
F100-PICTURE                  FEA-SELECT                    YENTRY
F100-PICTURE                  FEA-SELECT                    CGOTO      FEA-TEST-0001
F100-PICTURE                  FEA-SELECT                    UPERFORM   I100-COMP-FIELD-SIZE
F100-PICTURE                  FEA-SELECT                    UGOTO      FEA-END
F100-PICTURE                  FEA-TEST-0001                  ENTRY
F100-PICTURE                  FEA-TEST-0001                 CGOTO      FEA-TEST-0002
F100-PICTURE                  FEA-TEST-0001                 UGOTO      FEA-END
F100-PICTURE                  FEA-TEST-0002                  ENTRY
F100-PICTURE                  FEA-TEST-0003                 YENTRY
F100-PICTURE                  FEA-END                       YENTRY
F100-PICTURE                  FDA-TEST-0004                 YENTRY
F100-PICTURE                  FDA-END                       YENTRY
F100-PICTURE                  FCA-TEST-0001                 YENTRY
F100-PICTURE                  FCA-END                       YENTRY
F100-PICTURE                  FBA-TEST-0002                 YENTRY
F100-PICTURE                  FBA-END                       YENTRY
F100-PICTURE                  FAA-EPROC                     YENTRY
