*COMDECK  EXTWORK4
00001  01  EXTRACT-WORK-AREAS.                                          04/13/78
00002      03  SAVE-ID                 PICTURE XX.                      EXTWORK4
00003      03  RTBL-SUB                PICTURE 99.                         LV002
00004      03  NSUB1      PICTURE S99 COMP SYNC.                           CL**2
00005      03  NSUB2      PICTURE S99 COMP SYNC.                           CL**2
00006      03  NSUB3      PICTURE S99 COMP SYNC.                           CL**2
00007      03  NSUB4      PICTURE S99 COMP SYNC.                           CL**2
00008      03  NSUB5      PICTURE S99 COMP SYNC.                           CL**2
00009      03  FSUB1      PICTURE S99 COMP SYNC.                           CL**2
00010      03  FSUB2      PICTURE S99 COMP SYNC.                           CL**2
00011      03  FSUB3      PICTURE S99 COMP SYNC.                           CL**2
00012      03  HOLD-COMP.                                                  CL**2
00013          05  COMP-VALUE PICTURE X OCCURS 32.                         CL**2
00014      03  FLDNAME-HOLD.                                               CL**2
00015          05  FLDNAM1-5 PICTURE X(5).                                 CL**2
00016          05  FLDNAM6-7 PICTURE XX.                                   CL**2
00017      03  SORT-WORK.                                                  CL**2
00018          05  SORT-FIRST-5      PICTURE X(5).                         CL**2
00019          05  SORT-LAST-5       PICTURE X(5).                         CL**2
00020          03  OLD-CAT           PICTURE XXX.                          CL**2
00021      03  EXTRACT-CNAME           PICTURE X(32).                   EXTWORK4
00022      03  EXTRACT-ENTTYPE         PICTURE 99.                         CL**2
           03  WAY-TO-GO               PICTURE X. 
00023      03  HIT-SW                  PICTURE X.                       EXTWORK4
00024      03  REL-1ST-SW            PICTURE X.                            CL**2
00025      03  FFT-DONE-SW           PICTURE X.                            CL**2
00026      03  ALIAS-STC-SW           PICTURE X.                           CL**2
00027      03  HOLD-REF-NAME          PICTURE X(32).                       CL**2
00028      03  HOLD-REF-TYPE          PICTURE XX.                          CL**2
00029      03  HOLD-REF-USAGE         PICTURE X.                           CL**2
00030      03  HOLD-REF-ALIAS         PICTURE X.                           CL**2
00031      03  HIT-NAME                PICTURE X(32).                   EXTWORK4
00032      03  HIT-ENTRY-TYPE          PICTURE XX.                      EXTWORK4
00033      03  HIT-RETURN-CODE         PICTURE X.                       EXTWORK4
00034      03  EXTRACT-RETNO           PICTURE 9(6).                    EXTWORK4
00035      03  EXTRACT-RETLEV          PICTURE 99.                      EXTWORK4
00036      03  EXTRACT-SELNO.                                           EXTWORK4
00037          05  EXTRACT-SELNO-1     PICTURE 9.                       EXTWORK4
00038          05  EXTRACT-SELNO-2     PICTURE 9.                       EXTWORK4
00039 *                                                                 EXTWORK4
00040 *    CATALOGUE/HIERARCHY/USAGE REPORT EXTRACT RECORD FORMAT       EXTWORK4
00041 *                                                                 EXTWORK4
00042  01  EXT-CATALOGUE-REC.                                           EXTWORK4
00043      03  EXT-CATALOGUE-COMMON.                                    EXTWORK4
00044          05  EXT-CAT-REQTYPE     PICTURE XX.                      EXTWORK4
00045          05  EXT-CAT-REQNO       PICTURE 99.                      EXTWORK4
00046          05  EXT-CAT-RECTYPE     PICTURE X.                       EXTWORK4
00047          05  EXT-CAT-RECSEQ      PICTURE 999.                     EXTWORK4
00048      03  EXT-CATALOGUE-TYPE.                                      EXTWORK4
00049          05  EXT-CAT1-ENTTYPE    PICTURE 99.                      EXTWORK4
00050          05  EXT-CAT1-CATNAME     PICTURE X(32).                  EXTWORK4
00051          05  EXT-CAT1-RETNO      PICTURE 9(6).                    EXTWORK4
00052          05  EXT-CAT1-RETLEV     PICTURE 99.                      EXTWORK4
00053          05  EXT-CAT1-SELNO      PICTURE 99.                      EXTWORK4
00054          05  FILLER              PICTURE X(3).                    EXTWORK4
00055      03  EXT-CATALOGUE-NAME REDEFINES EXT-CATALOGUE-TYPE.         EXTWORK4
00056          05  EXT-CAT3-CATNAME    PICTURE X(32).                   EXTWORK4
00057          05  EXT-CAT3-ENTTYPE    PICTURE 99.                      EXTWORK4
00058          05  EXT-CAT3-RETNO      PICTURE 9(6).                    EXTWORK4
00059          05  EXT-CAT3-RETLEV     PICTURE 99.                      EXTWORK4
00060          05  EXT-CAT3-SELNO      PICTURE 99.                      EXTWORK4
00061          05  FILLER              PICTURE X(3).                    EXTWORK4
00062      03  EXT-CATALOGUE-RET REDEFINES EXT-CATALOGUE-NAME.          EXTWORK4
00063          05  EXT-CAT4-RETNO      PICTURE 9(6).                    EXTWORK4
00064          05  EXT-CAT4-CATNAME    PICTURE X(32).                   EXTWORK4
00065          05  EXT-CAT4-ENTTYPE    PICTURE 99.                      EXTWORK4
00066          05  EXT-CAT4-RETLEV     PICTURE 99.                      EXTWORK4
00067          05  EXT-CAT4-SELNO      PICTURE 99.                      EXTWORK4
00068  01  EXT-REL-DEF-REC.                                                CL**2
00069      03  EXT-RELD-COMMON.                                            CL**2
00070          05  EXT-RELD-REQTYPE           PICTURE XX.                  CL**2
00071          05  EXT-RELD-REQNO             PICTURE 99.                  CL**2
00072          05  EXT-RELD-RECTYPE           PICTURE 9.                   CL**2
00073          05  EXT-RELD-RECSEQ            PICTURE 999.                 CL**2
00074      03  EXT-RELD-TYPE.                                              CL**2
00075          05  EXT-RELD1-ENTTYPE          PICTURE 99.                  CL**2
00076          05  EXT-RELD1-NAME             PICTURE X(32).               CL**2
00077          05  EXT-RELD1-SORTID           PICTURE X(10).               CL**2
00078          05  EXT-RELD1-RECCODE  PICTURE X.                           CL**2
00079          05  EXT-RELD1-CAT              PICTURE 999.                 CL**2
00080          05  EXT-RELD1-LINE             PICTURE 9(4).                CL**2
00081          05  EXT-RELD1-CATNAME          PICTURE X(32).               CL**2
00082          05  EXT-RELD1-SELNO            PICTURE 99.                  CL**2
00083      03  EXT-RELD-NAME REDEFINES EXT-RELD-TYPE.                      CL**2
00084          05  EXT-RELD3-NAME             PICTURE X(32).               CL**2
00085          05  EXT-RELD3-ENTTYPE          PICTURE 99.                  CL**2
00086          05  EXT-RELD3-SORTID           PICTURE X(10).               CL**2
00087          05  EXT-RELD3-RECCODE  PICTURE X.                           CL**2
00088          05  EXT-RELD3-CAT              PICTURE 999.                 CL**2
00089          05  EXT-RELD3-LINE             PICTURE 9(4).                CL**2
00090          05  EXT-RELD3-CATNAME          PICTURE X(32).               CL**2
00091          05  EXT-RELD3-SELNO            PICTURE 99.                  CL**2
00092  01  EXT-REL-REF-REC.                                                CL**2
00093      03  EXT-RELR-COMMON.                                            CL**2
00094          05  EXT-RELR-REQTYPE           PICTURE XX.                  CL**2
00095          05  EXT-RELR-REQNO             PICTURE 99.                  CL**2
00096          05  EXT-RELR-RECTYPE           PICTURE 9.                   CL**2
00097          05  EXT-RELR-RECSEQ            PICTURE 999.                 CL**2
00098      03  EXT-RELR-TYPE.                                              CL**2
00099          05  EXT-RELR1-ENTTYPE          PICTURE 99.                  CL**2
00100          05  EXT-RELR1-NAME             PICTURE X(32).               CL**2
00101          05  EXT-RELR1-SORTID           PICTURE X(10).               CL**2
00102          05  EXT-RELR1-RECCODE  PICTURE X.                           CL**2
00103          05  EXT-RELR1-REFTYPE          PICTURE 99.                  CL**2
00104          05  EXT-RELR1-REFNAME          PICTURE X(32).               CL**2
00105          05  EXT-RELR1-USAGE            PICTURE X.                   CL**2
00106          05  EXT-RELR1-ALIAS            PICTURE X.                   CL**2
00107          05  EXT-RELR1-SELNO            PICTURE 99.                  CL**2
00108      03  EXT-RELR-NAME REDEFINES EXT-RELR-TYPE.                      CL**2
00109          05  EXT-RELR3-NAME             PICTURE X(32).               CL**2
00110          05  EXT-RELR3-ENTTYPE          PICTURE 99.                  CL**2
00111          05  EXT-RELR3-SORTID           PICTURE X(10).               CL**2
00112          05  EXT-RELR3-RECCODE  PICTURE X.                           CL**2
00113          05  EXT-RELR3-REFTYPE          PICTURE 99.                  CL**2
00114          05  EXT-RELR3-REFNAME          PICTURE X(32).               CL**2
00115          05  EXT-RELR3-USAGE            PICTURE X.                   CL**2
00116          05  EXT-RELR3-ALIAS            PICTURE X.                   CL**2
00117          05  EXT-RELR3-SELNO            PICTURE 99.                  CL**2
00118 *    INDEX REPORT EXTRACTED DATA RECORD-TYPE 8                       CL**2
00119 *                                                                    CL**2
00120  01  EXT-INDEX-REC.                                                  CL**2
00121      03  EXT-INDEX-COMMON.                                           CL**2
00122          05  EXT-IDX-REQTYPE            PICTURE XX.                  CL**2
00123          05  EXT-IDX-REQNO              PICTURE 99.                  CL**2
00124          05  EXT-IDX-RECTYPE            PICTURE 9.                   CL**2
00125          05  EXT-IDX-RECSEQ             PICTURE 999.                 CL**2
00126      03  EXT-INDEX-TYPE.                                             CL**2
00127          05  EXT-IDX1-ENTTYPE           PICTURE 99.                  CL**2
00128          05  EXT-IDX1-VALUE             PICTURE X(32).               CL**2
00129          05  EXT-IDX1-CATNAME           PICTURE X(32).               CL**2
00130          05  EXT-IDX1-CAT               PICTURE 999.                 CL**2
00131          05  EXT-IDX1-LINE              PICTURE 9(4).                CL**2
00132          05  EXT-IDX1-SELNO             PICTURE 99.                  CL**2
00133      03  EXT-INDEX-NAME REDEFINES EXT-INDEX-TYPE.                    CL**2
00134          05  EXT-IDX3-VALUE             PICTURE X(32).               CL**2
00135          05  EXT-IDX3-CATNAME           PICTURE X(32).               CL**2
00136          05  EXT-IDX3-ENTTYPE           PICTURE 99.                  CL**2
00137          05  EXT-IDX3-CAT               PICTURE 999.                 CL**2
00138          05  EXT-IDX3-LINE              PICTURE 9(4).                CL**2
00139          05  EXT-IDX3-SELNO            PICTURE 99.                   CL**2
00140      03  EXT-INDEX-VALUE REDEFINES EXT-INDEX-NAME.                   CL**2
00141          05  EXT-IDX5-VALUE             PICTURE X(32).               CL**2
00142          05  EXT-IDX5-ENTTYPE           PICTURE 99.                  CL**2
00143          05  EXT-IDX5-CATNAME           PICTURE X(32).               CL**2
00144          05  EXT-IDX5-CAT               PICTURE 999.                 CL**2
00145          05  EXT-IDX5-LINE              PICTURE 9(4).                CL**2
00146          05  EXT-IDX5-SELNO            PICTURE 99.                   CL**2
00147  01  EXT-NAME-REC.                                                   CL**2
00148      03  EXT-NAME-COMMON.                                            CL**2
00149          05  EXT-NAM-REQTYPE            PICTURE XX.                  CL**2
00150          05  EXT-NAM-REQNO             PICTURE 99.                   CL**2
00151          05  EXT-NAM-RECTYPE            PICTURE 9.                   CL**2
00152          05  EXT-NAM-RECSEQ             PICTURE 999.                 CL**2
00153      03  EXT-NAME-TYPE.                                              CL**2
00154          05  EXT-NAM1-ENTTYPE           PICTURE 99.                  CL**2
00155          05  EXT-NAM1-NAMCOMP           PICTURE X(32).               CL**2
00156          05  EXT-NAM1-CATNAME           PICTURE X(32).               CL**2
00157          05  EXT-NAM1-CAT               PICTURE 999.                 CL**2
00158          05  EXT-NAM1-LINE              PICTURE 9(4).                CL**2
00159          05  EXT-NAM1-NAMFULL           PICTURE X(32).               CL**2
00160          05  EXT-NAM1-SELNO             PICTURE 99.                  CL**2
00161      03  EXT-NAME-NAME REDEFINES EXT-NAME-TYPE.                      CL**2
00162          05  EXT-NAM3-NAMCOMP           PICTURE X(32).               CL**2
00163          05  EXT-NAM3-CATNAME           PICTURE X(32).               CL**2
00164          05  EXT-NAM3-ENTTYPE           PICTURE 99.                  CL**2
00165          05  EXT-NAM3-CAT               PICTURE 999.                 CL**2
00166          05  EXT-NAM3-LINE              PICTURE 9(4).                CL**2
00167          05  EXT-NAM3-NAMFULL           PICTURE X(32).               CL**2
00168          05  EXT-NAM3-SELNO             PICTURE 99.                  CL**2
00169      03  EXT-NAME-COMP REDEFINES EXT-NAME-NAME.                      CL**2
00170          05  EXT-NAM5-NAMCOMP           PICTURE X(32).               CL**2
00171          05  EXT-NAM5-ENTTYPE           PICTURE 99.                  CL**2
00172          05  EXT-NAM5-CATNAME           PICTURE X(32).               CL**2
00173          05  EXT-NAM5-CAT               PICTURE 999.                 CL**2
00174          05  EXT-NAM5-LINE              PICTURE 9(4).                CL**2
00175          05  EXT-NAM5-NAMFULL           PICTURE X(32).               CL**2
00176          05  EXT-NAM5-SELNO             PICTURE 99.                  CL**2
00177                                                                    EXTWORK
00178 ****************************************************                 CL**2
00179 *    FIELD LOCATION TABLE                                            CL**2
00180 *        THIS TABLE IS USED TO STORE THE CATEGORY                    CL**2
00181 *        LOCATIONS OF A NAMED FIELD.  THE TABLE IS                   CL**2
00182 *        USED AS PART OF INDEX, NAME ANALYSIS AND                    CL**2
00183 *        RELATIONAL REPORT PROCESSING                                CL**2
00184 *                                                                    CL**2
00185 ****************************************************                 CL**2
00186  01  FLD-FINDER-TABLE.                                               CL**2
           03  FFT-LOCATION OCCURS 30 TIMES.
               05  FFT-CTL-KEY         PIC 999. 
00189          05  FFT-HEADER.                                             CL**2
00190              07  FFT-ENTTYPE     PICTURE XX.                         CL**2
00191              07  FFT-CATEGORY    PICTURE XXX.                        CL**2
00192          05  FFT-ENTRY.                                              CL**2
00193              07  FFT-NAME        PICTURE X(8).                       CL**2
00194              07  FFT-ID          PICTURE XX.                         CL**2
00195              07  FFT-START       PICTURE 999 .                     EXTWORK
00196              07  FFT-LENGTH      PICTURE 999 .                     EXTWORK
00197              07  FFT-FORMAT      PICTURE X.                          CL**2
00198              07  FFT-REV         PICTURE X.                          CL**2
00199              07  FFT-STD         PICTURE X.                          CL**2
00200 *************************************************                    CL**2
00201 *                                                                    CL**2
00202 *        ALIAS CATEGORY EQUIVALENCE TABLE                            CL**2
00203 *          THE FIRST TABLE CONTAINS THE NUMBERS OF                   CL**2
00204 *          STANDARD FIELDS THAT CAN HAVE ALIASES-                    CL**2
00205 *          DATANAME, SYMBOL, FORMAT (FIELDS FROM THE                 CL**2
00206 *          NAMES AND ATTRIBUTES CATS OF ELE)                         CL**2
00207 *                                                                    CL**2
00208 *          THE SECOND TABLE CONTAINS THE FIELD                       CL**2
00209 *          NUMBERS OF THE ALIAS CATEGORY FIELDS WHICH                CL**2
00210 *          CORRESPOND TO THE STANDARD FLDS IN TABLE 1                CL**2
00211 *********************************************************            CL**2
00212  01  EQUIVALENCE-TABLES.                                             CL**2
00213      03  STD-ENT-1.                                                  CL**2
00214          05  SN-DATANAME     PICTURE X(7) VALUE "0520005".           CL**2
00215          05  SN-IDEN         PICTURE X(7) VALUE "0520010".           CL**2
00216          05  SN-SYMBOL       PICTURE X(7) VALUE "0520015".           CL**2
00217          05  SN-DBMS         PICTURE X(7) VALUE "0520020".           CL**2
               05  SN-DMS          PICTURE X(7) VALUE "0520035".
00218          05  SN-LENGTH       PICTURE X(7) VALUE "0521005".           CL**2
00219          05  SN-FORMAT       PICTURE X(7) VALUE "0521010".           CL**2
00220          05  SN-JUST         PICTURE X(7) VALUE "0521015".           CL**2
00221          05  SN-SYNC         PICTURE X(7) VALUE "0521020".           CL**2
00222          05  SN-PICTURE      PICTURE X(7) VALUE "0521040".           CL**2
00223          05  SN-IVALUE       PICTURE X(7) VALUE "0521045".           CL**2
               05  SR-DMS          PICTURE X(7) VALUE "1320005".
               05  AREA-DMS        PICTURE X(7) VALUE "2220005".
00224      03  STD-ENT-2 REDEFINES STD-ENT-1.                              CL**2
00225          05  STD-ELE-NAME    PICTURE X(7) OCCURS 10.                 CL**2
00226      03  ALI-ENT-1.                                                  CL**2
00227          05  SN-ADATANAM     PICTURE X(7) VALUE "0521105".           CL**2
               05  SN-AIDEN        PICTURE X(7) VALUE "0521110".
00229          05  SN-ASYMBOL      PICTURE X(7) VALUE "0521115".           CL**2
00230          05  SN-ADBMS        PICTURE X(7) VALUE "0521120".           CL**2
               05  SN-DMS          PICTURE X(7) VALUE "0521105".
00231          05  SN-ALENGTH      PICTURE X(7) VALUE "0521125".           CL**2
00232          05  SN-AFORMAT      PICTURE X(7) VALUE "0521130".           CL**2
00233          05  SN-AJUST        PICTURE X(7) VALUE "0521135".           CL**2
00234          05  SN-ASYNC        PICTURE X(7) VALUE "0521140".           CL**2
00235          05  SN-APICTURE     PICTURE X(7) VALUE "0521145".           CL**2
00236          05  SN-AIVALUE      PICTURE X(7) VALUE "0521150".           CL**2
               05  SR-ADMS         PICTURE X(7) VALUE "1321105".
               05  AREA-ADMS       PICTURE X(7) VALUE "2221105".
00237      03  ALI-ENT-2 REDEFINES ALI-ENT-1.                              CL**2
00238          05  ALI-ELE-NAME OCCURS 10 TIMES.                           CL**2
00239              07  ALI-ENTNO  PICTURE XX.                              CL**2
00240              07  ALI-CATNO   PICTURE XXX.                            CL**2
00241              07  ALI-FLDNO   PICTURE XX.                             CL**2
