*COMDECK  COPYWORK
00001  01  COPY-WORK.                                                   11/08/78
               05 CON-KEY   PICTURE 999.
00003      05  MAST3-RETURN-CODE      PICTURE X.                           LV002
00004      05  COPY-TRANS.                                              COPYWORK
00005          10  COPY-COMMAND.                                           CL**2
00006              15  CONT-COPY        PICTURE XX.                        CL**2
00007              15  FILLER           PICTURE X(70).                     CL**2
00008      05  COPY-TRANS-OP REDEFINES COPY-TRANS.                         CL**2
00009          10  FILLER PICTURE XX.                                   COPYWORK
00010          10  TX-CHARACTER PICTURE X OCCURS 70 TIMES.                 CL**2
00011 *                                                                 COPYWORK
00012 *    SWITCHES AND STATUS FIELDS USED BY COPY                      COPYWORK
00013 *                                                                 COPYWORK
00014      05  COPY-FUNCTION-CODE  PICTURE X.                              CL**2
00015      05  EXPLOSION-PASS    PICTURE X.                                CL**2
00016      05  DATA-PRESENT-SW          PICTURE X.                         CL**2
00017      05  TX-EOF-SW                PICTURE X.                         CL**2
00018      05  FLD-SW                   PICTURE X.                         CL**2
00019      05  NO-FLD-SW                PICTURE X.                         CL**2
00020      05  NEW-ENTRY-NAME           PICTURE X(32).                     CL**2
00021      05  TOP-LEVEL-NAME           PICTURE X(32).                     CL**2
00022      05  CURRENT-ENTRY-NAME       PICTURE X(32).                     CL**2
00023      05  ENTRY-NAME               PICTURE X(32).                     CL**2
00024      05  TYPE-COPY                PICTURE XXX.                       CL**2
00025      05  ENT-HOLD                 PICTURE XXX.                       CL**2
00026      05  HOLD-CAT                 PICTURE XXX.                       CL**2
           05  FLD-SUB                   PICTURE 999 COMP SYNC. 
00028      05  DAT-SUB                  PICTURE 99 COMP SYNC.              CL**2
           05  DETAIL-SUB               PICTURE 999 COMP SYNC.
00030      05  HOLD-STC-ENTRY-TYPE      PICTURE XX.                        CL**2
00031      05  FLD                PICTURE 99 COMP.                         CL**2
00032      05  CAT                PICTURE 99 COMP.                         CL**2
00033      05  ENT                PICTURE 99 COMP.                         CL**2
00034      05  TARGET-TOTAL       PICTURE S9(4) .                        COPYWOR
00035      05  SOURCE-TOTAL       PICTURE S9(4) .                        COPYWOR
00036      05  FILE-INDICATOR     PICTURE X.                               CL**2
00037      05  TARGET-UPDATE-WRITTEN PICTURE X.                            CL**2
00038      05  SOURCE-UPDATE-WRITTEN PICTURE X.                            CL**2
00039      05  TYPE-TX               PICTURE XXX.                          CL**2
00040      05  LIST-OPT        PICTURE XXX.                                CL**2
00041      05  PASSZERO-TX1             PICTURE X.                         CL**2
00042      05  PASS1-TX1                PICTURE X.                         CL**2
00043      05  PASS2-TX1                PICTURE X.                         CL**2
00044                                                                      CL**2
00045 *                                                                 COPYWORK
00046 *    COPY OUTPUT TABLE (PRINT LINES AND CARDS)                    COPYWORK
00047 *                                                                 COPYWORK
00048      05  COPY-COUNT          PICTURE 99.                          COPYWORK
00049      05  COPY-OUTPUT.                                             COPYWORK
00050          10  COPY-OUTPUT-AREA PICTURE X(5320).                    COPYWORK
00051          10  COPY-OUTPUT-TABLE REDEFINES COPY-OUTPUT-AREA.        COPYWORK
00052              15  COPY-OUTPUT-ENTRY OCCURS 40 TIMES.               COPYWORK
00053                  17  FILLER PICTURE X(26).                        COPYWORK
00054                  17  COPY-CARD-IMAGE PICTURE X(80).               COPYWORK
00055                  17  FILLER PICTURE X(26).                        COPYWORK
00056                  17  COPY-OUTPUT-INDICATOR PICTURE X.             COPYWORK
00080 ******************************************************************   CL**2
00081 *    STORE ENTRY TABLE                                           *   CL**2
00082 ******************************************************************   CL**2
00083  01  ENT-TABLE.                                                      CL**2
00085      03  ENT-TBL     OCCURS 17 TIMES.                                CL**2
00086          05  ENT-NAME            PICTURE X(15).                      CL**2
00087          05  ENT-ID              PICTURE XX.                         CL**2
00088      03  DIRECTORY-TABLE.                                            CL**2
               05  DIR-TABLE OCCURS 126 TIMES.
00090              07  DIR-ID           PICTURE XX.                        CL**2
00091              07  DIR-CAT          PICTURE XXX.                       CL**2
                   07  DIR-START        PICTURE XXX.
00093 ******************************************************************   CL**2
00094 *    STORE CATEGORY TABLE                                        *   CL**2
00095 ******************************************************************   CL**2
00096  01  CATEGORY-TABLE.                                                 CL**2
           03 CAT-TABLE OCCURS 31 TIMES.
00099          05  CAT-NAME            PICTURE X(15).                      CL**2
00100          05  CAT-ID              PICTURE XXX.                        CL**2
               05  CAT-IN-ENT          PICTURE X(85). 
       01  FILLER-PATCH                PICTURE X(9).
00102 ******************************************************************   CL**2
00103 *    STORE ONE CATEGORY OF FIELD NAMES                           *   CL**2
00104 ******************************************************************   CL**2
00105  01  FIELD-TABLE.                                                    CL**2
00107      03  FLD-TABLE.                                                  CL**2
00108          05  FLD-ENTRY           PICTURE XX.                         CL**2
00109          05  FLD-CATEGORY        PICTURE XXX.                        CL**2
               05  FLD-FIELD OCCURS 30 TIMES. 
                   07  FLD-NAME        PICTURE X(8).
00112              07  FLD-ID          PICTURE XX.                         CL**2
                   07  FLD-START       PICTURE 999. 
                   07  FLD-LENGTH      PICTURE 999. 
00115              07  FLD-FORMAT      PICTURE X.                          CL**2
00116              07  FLD-REV         PICTURE X.                          CL**2
00117              07  FLD-STANDARD    PICTURE X.                          CL**2
