*COMDECK  TESTWACOM 
00001 ************************************************************      03/17/78
00002 *                                                                 TESTWACO
00003 *        C A T E G O R Y   W O R K   A R E A S                    M  LV001
00004 *                                                                 TESTWACO
00005 ************************************************************      TESTWACO
00006 *                                                                 TESTWACO
00007 *                                                                 TESTWACO
       01 CAT-WORK. 
           03 CAT-WK-BYTE     PICTURE X  OCCURS 162 TIMES.
       01 CAT-SEG-STC REDEFINES CAT-WORK. 
               03  FILLER                PICTURE X(15). 
               03  CAT-LINE-TYPE         PICTURE X. 
               03  CAT-FIRST-146         PICTURE X(146).
           03 FILLER   PICTURE X(15). 
       01 CAT-WORK-AREAS REDEFINES CAT-WORK.
00009      02  CAT-HEADER.                                              TESTWACO
               03 CAT-CATEGORY   PICTURE XXX. 
               03 CAT-LENGTH   PICTURE 999. 
               03 CAT-REV   PICTURE 9(5). 
               03 CAT-LINE   PICTURE 9999.
00014      02  CAT-DETAIL.                                                 CL**2
               04  LINE-TYPE-CAT         PICTURE X. 
               04  CAT-COMMENT REDEFINES LINE-TYPE-CAT  PICTURE X.
               04  MINUS-ASTER           PICTURE X(146).
00017 ************************************************************      TESTWACO
00018 *                                                                 TESTWACO
00019 *     ALL ENTRIES - CONTROL INFO CAT                              TESTWACO
00020 *                                                                 TESTWACO
00021 ************************************************************      TESTWACO
00022      02  CTL-CAT  REDEFINES CAT-DETAIL.                           TESTWACO
               03  CTL-LINE-TYPE      PICTURE X.
00023          03  CTL-ALY-VER        PICTURE X(32).                    TESTWACO
00024          03  CTL-STATUS         PICTURE X.                        TESTWACO
00025          03  CTL-SECURITY       PICTURE X.                        TESTWACO
00026          03  CTL-PASS            PICTURE X.                          CL**2
00027 *     ALL ENTRIES - KEYWORD CAT                                   TESTWACO
00028      02  KEY-CAT REDEFINES CAT-DETAIL.                            TESTWACO
               03  KEY-LINE-TYPE      PICTURE X.
00029          03  KEY-WORDS          PICTURE X(67).                       CL**2
               03  FILLER             PICTURE X(79).
00031 *     ALL ENTRIES - DESCRIPTION CAT                               TESTWACO
00032      02  DESC-CAT REDEFINES CAT-DETAIL.                           TESTWACO
               03  DESC-LINE-TYPE        PICTURE X. 
00033          03  DESC-FLAG          PICTURE X.                        TESTWACO
00034          03  DESC-COMMENT       PICTURE X(66).                    TESTWACO
               03  FILLER             PICTURE X(79).
00036 ************************************************                     CL**2
00037 *    SPECIAL DEFINITIONS USED BY QUERY                               CL**2
00038 ***********************************************                      CL**2
00039      02  STRUCTURE-LINE REDEFINES CAT-DETAIL.                        CL**2
               04  STC-LINE-TYPE      PICTURE X.
00040          04  STC-CNAME PICTURE X(32).                                CL**2
00041          04  STC-PUSE            PICTURE X.                          CL**2
00042          04  FILLER          PICTURE X(113).                         CL**2
00044      02  DETAIL-WORK REDEFINES CAT-DETAIL.                           CL**2
00045          04  DETAIL-LINE PICTURE X OCCURS 147 TIMES.                 CL**2
