*COMDECK  CATLINK 
00001 ***************************************************************** 02/21/78
00002 *     LINKAGE AREAS SPECIFIC TO CATALOGUE REPORT MODULES          CATLINK 
00003 ******************************************************************   LV001
00004  01  CATLINK.                                                     CATLINK 
00005                                                                   CATLINK 
00006 *   THE TABLE BELOS IS USED TO STORE USERFILE AND INDEX FILE      CATLINK 
00007 *        RECORDS FOR OUTPUT BY THE CALLING MODULE                 CATLINK 
00008      03  CATTBL-OUTPUT-RECORDS.                                   CATLINK 
00009          05  CAT-OUTPUT-RECORD OCCURS 10 TIMES.                   CATLINK 
00010              07  CATTBL-FIL-CTL  PICTURE X.                          CL**2
00011              07  CATTBL-REC-TYPE  PICTURE X.                         CL**2
00012              07  CAT-RECORD.                                         CL**2
00013                  09  CAT-U120-REC.                                   CL**2
00014                      11  CAT-UENT-REC.                               CL**2
00015                          13  CAT-IDXDET-REC   PICTURE X(200).        CL**2
00016      03  FIRST-ENTRY-SWITCH      PICTURE X.                       CATLINK 
00017      03  ENTTYPE-1STTIME-SWITCHES.                                CATLINK 
00018          05  ENTTYPE-1ST-SW OCCURS 100 TIMES PICTURE X.           CATLINK 
00019      03  ENTTYPE-SUB             PICTURE S99 COMP SYNC.              CL**2
00020      03  USER-COUNT              PICTURE S99 COMP SYNC.              CL**2
00021      03  CATTBL-FILE-TYPE        PICTURE X.                          CL**2
00022      03  CATTBL-RECORD-TYPE      PICTURE X.                          CL**2
00023      03  EXTRACT-REC-FIELDS.                                      CATLINK 
00024          05  EXT-HOLD-REQTYPE    PICTURE XX.                      CATLINK 
00025          05  EXT-HOLD-ENTTYPE    PICTURE 99.                      CATLINK 
00026          05  EXT-HOLD-TYPE       PICTURE X(15).                   CATLINK 
00027          05  EXT-HOLD-CATNAME    PICTURE X(32).                   CATLINK 
00028          05  EXT-HOLD-RETNO      PICTURE 9(6).                    CATLINK 
00029          05  EXT-HOLD-RETLEV     PICTURE 99.                      CATLINK 
00030          05  EXT-HOLD-SELNO      PICTURE 99.                      CATLINK 
