*COMDECK  EXTTBL
00001 *                                                                 04/20/78
00002 *    EXTRACT OUTPUT TABLE                                         EXTTBL
00003 *        FIRST POSITION INDICATES TYPE OF OUTPUT                     LV001
00004 *           E=PRINT LINE                                          EXTTBL
00005 *           1=CATALOGUE/USAGE/HIER REPORT REC                     EXTTBL
00006  01  EXTOUT.                                                      EXTTBL
00007      03  EXTRACT-TABLE             PICTURE X(3990).                  CL**2
00008      03  EXTRACT-OUTPUT  REDEFINES EXTRACT-TABLE.                 EXTTBL
00009          05  EXTRACT-OUTPUT-ENTRY OCCURS 30 TIMES.                   CL**2
00010              07  EXT-OUTPUT-IND  PICTURE X.                       EXTTBL
00011              07  EXT-OUT-REC     PICTURE X(132).                     CL**2
00012      03  EXT-COUNT                PICTURE 99.                     EXTTBL
00013      03  MSG-SWITCH              PICTURE X.                          CL**2
00014      03  REPORT-ERROR-CODE       PICTURE XX.                         CL**2
00015      03  REPORT-ERROR-NAME       PICTURE X(32).                      CL**2
00016      03  ERROR-LINE.                                                 CL**2
00017          05  ERROR-TYPE          PICTURE X(16).                      CL**2
00018          05  FILLER              PICTURE X(5).                       CL**2
00019          05  ERROR-NAME          PICTURE X(32).                      CL**2
