*COMDECK  RPTDEF15
00001  01  ENTRYTYPE-15-RPTDATA.                                        06/26/78
00002 ****************************************************************  RPTDEF15
00003 *                                                                    LV001
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,                 CL**2
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR       CL**2
00006 *        RECORD ENTRIES-TYPE 15                                      CL**2
00007 *                                                                    CL**2
00008 ***************************************************************      CL**2
00009      03  ENTRY-TYPE-CONSTANT     PICTURE XX  VALUE "15".             CL**2
00010 ******************************************************************   CL**2
00011 *                                                                    CL**2
00012 *    CATEGORY HEADING CONSTANTS FOR TYPE 15-RECORD                   CL**2
00013 *                                                                    CL**2
00014 ******************************************************************   CL**2
00015      03  15-CAT-HEADERS.                                             CL**2
00016          05  ENT15-CN            PICTURE X(21)   VALUE               CL**2
00017         "010020030200210300900".                                     CL**2
00018          05  ENT15-CN2   REDEFINES ENT15-CN.                         CL**2
00019              07  ENT15-CATNUMS   PICTURE XXX OCCURS 7.               CL**2
00020          05  ENT15-CH.                                               CL**2
00021              07  FILLER          PICTURE X(30)   VALUE               CL**2
00022             "    ---CONTROL CATEGORY---    ".                        CL**2
00023              07  FILLER          PICTURE X(30)   VALUE               CL**2
00024             "---CLASSIFICATION CATEGORY--- ".                        CL**2
00025              07  FILLER          PICTURE X(30)   VALUE               CL**2
00026             "  ---DESCRIPTION CATEGORY---  ".                        CL**2
00027              07  FILLER          PICTURE X(30)   VALUE               CL**2
00028             "     ---NAMES CATEGORY---     ".                        CL**2
00029              07  FILLER          PICTURE X(30)   VALUE               CL**2
00030             "   ---ATTRIBUTE CATEGORY---   ".                        CL**2
00031              07  FILLER          PICTURE X(30)   VALUE               CL**2
00032             "   ---STRUCTURE CATEGORY---   ".                        CL**2
00033              07  FILLER          PICTURE X(30)   VALUE               CL**2
00034             "     ---OTHER CATEGORY---     ".                        CL**2
00035          05  ENT15-CATH  REDEFINES  ENT15-CH.                        CL**2
00036              07  ENT15-CATHDRS   PICTURE X(30) OCCURS 7.             CL**2
00037 ********************************************************             CL**2
00038 *                                                                    CL**2
00039 *    FIELD HEADING CONSTANTS                                         CL**2
00040 *                                                                    CL**2
00041 *********************************************************            CL**2
00042          05  FLD1520005-HCON       PICTURE X(10)   VALUE             CL**2
00043             "DATA NAME=".                                            CL**2
00044          05  FLD1520010-HCON       PICTURE X(11)   VALUE             CL**2
00045             "IDENTIFIER=".                                           CL**2
00046          05  FLD1520015-HCON     PICTURE X(7)    VALUE               CL**2
00047             "SYMBOL=".                                               CL**2
00048          05  FLD1520020-HCON     PICTURE X(10)   VALUE               CL**2
00049             "DBMS NAME=".                                            CL**2
00050          05  FLD1520025-HCON     PICTURE X(10)  VALUE                CL**2
00051             "USER NAME=".                                            CL**2
00052          05  FLD1521005-HCON     PICTURE X(15)   VALUE               CL**2
00053             "MAXIMUM LENGTH=".                                       CL**2
00054          05  FLD1521010-HCON     PICTURE X(15)   VALUE               CL**2
00055             "MINIMUM LENGTH=".                                       CL**2
00056          05  FLD1521015-HCON     PICTURE X(8)    VALUE               CL**2
00057             "STORAGE=".                                              CL**2
00058          05  FLD1530005-HCON       PICTURE X(14)   VALUE             CL**2
00059             "CATALOGUE NAME".                                        CL**2
00060          05  FLD1530010-HCON       PICTURE X(6)    VALUE             CL**2
00061             "FILLER".                                                CL**2
00062          05  FLD1530015-HCON         PICTURE X(10)    VALUE          CL**2
00063             "REDEFINES=".                                            CL**2
00064          05  FLD15300OCC-HCON      PICTURE X(7)    VALUE             CL**2
00065             "OCCURS:".                                               CL**2
00066          05  FLD1530020-HCON       PICTURE X(5)    VALUE             CL**2
00067             "FROM=".                                                 CL**2
00068          05  FLD1530025-HCON     PICTURE X(3)    VALUE               CL**2
00069             "TO=".                                                   CL**2
00070          05  FLD1530030-HCON     PICTURE X(11)   VALUE               CL**2
00071             "INDEXED BY=".                                           CL**2
00072          05  FLD1530035-HCON     PICTURE X(13)   VALUE               CL**2
00073             "DEPENDING ON=".                                         CL**2
00074          05  FLD1530040-HCON       PICTURE XXX     VALUE             CL**2
00075             "KEY".                                                   CL**2
00076          05  FLD1530045-HCON       PICTURE X(9)    VALUE             CL**2
00077             "INCLUSION".                                             CL**2
00078          05  FLD1530050-HCON       PICTURE X(5)    VALUE             CL**2
00079             "ALIAS".                                                 CL**2
00080          05  FLD1530002-HCON     PICTURE X(9)  VALUE                 CL**2
00081             "FLOATING=".                                             CL**2
00082          05  FLD1530007-HCON     PICTURE X(8)  VALUE                 CL**2
00083             "FILLING=".                                              CL**2
00084          05  FLD1530012-HCON     PICTURE X(9)  VALUE                 CL**2
00085             "TRAILING=".                                             CL**2
00086          05  FLD1530017-HCON     PICTURE X(12) VALUE                 CL**2
00087             "EDIT LENGTH=".                                          CL**2
00088          05  FLD1530022-HCON     PICTURE X(15) VALUE                 CL**2
00089             "DECIMAL PLACES=".                                       CL**2
00090          05  FLD1530027-HCON     PICTURE X(12)  VALUE                CL**2
00091             "COUNT FIELD=".                                          CL**2
00092          05  FLD1530032-HCON     PICTURE X(13)  VALUE                CL**2
00093             "TEXT LINE NO=".                                         CL**2
00094          05  FLD1530037-HCON     PICTURE X(5)  VALUE                 CL**2
00095             "TEXT=".                                                 CL**2
00096 *********************************************************            CL**2
00097 *                                                                    CL**2
00098 *    FIELD CODES AND THEIR MEAININGS                                 CL**2
00099 *                                                                    CL**2
00100 *********************************************************            CL**2
00101 *                                                                    CL**2
00102 *    ATTRIBUTE SR STORAGE                                            CL**2
00103 *                                                                    CL**2
00104          05  FLD1521015-CV       PICTURE X(5)   VALUE                CL**2
00105         "ABCS9".                                                     CL**2
00106          05  FLD1521015-CD  REDEFINES  FLD1521015-CV.                CL**2
00107              07  FLD1521015-CODES PICTURE X OCCURS 5.                CL**2
00108          05  FLD1521015-MV       PICTURE X(50)   VALUE               CL**2
00109         "AUTOMATIC BASED     CONTROLLEDSTATIC    XXXXXXXXXX".        CL**2
00110          05  FLD1521015-MD   REDEFINES FLD1521015-MV.                CL**2
00111              07  FLD1521015-MNG  PICTURE X(10) OCCURS 5.             CL**2
00112 *                                                                    CL**2
00113 *    STC-SR-KEY                                                      CL**2
00114 *                                                                    CL**2
00115          05 FLD1530040-CV        PICTURE X(5)        VALUE           CL**2
00116         "MNUD9".                                                     CL**2
00117          05  FLD1530040-CD   REDEFINES FLD1530040-CV.                CL**2
00118              07 FLD1530040-CODES PICTURE X OCCURS 5.                 CL**2
00119          05 FLD1530040-MV        PICTURE X(45)       VALUE           CL**2
00120         "MULTIPLE NO       UNIQUE   DUPLICATEXXXXXXXXX".             CL**2
00121          05 FLD1530040-MD REDEFINES FLD1530040-MV.                   CL**2
00122              07 FLD1530040-MNG   PICTURE X(9) OCCURS 5.              CL**2
00123 *                                                                    CL**2
00124 *    STC-SR-DBD-INC                                                  CL**2
00125 *                                                                    CL**2
00126          05  FLD1530045-CV       PICTURE X(3)   VALUE                CL**2
00127         "NY9".                                                       CL**2
00128          05  FLD1530045-CD   REDEFINES FLD1530045-CV.                CL**2
00129              07  FLD1530045-CODES PICTURE X OCCURS 3.                CL**2
00130          05  FLD1530045-MV       PICTURE X(9)   VALUE                CL**2
00131         "NO YESXXX".                                                 CL**2
00132          05  FLD1530045-MD   REDEFINES FLD1530045-MV.                CL**2
00133              07  FLD1530045-MNG  PICTURE X(3)  OCCURS 3.             CL**2
00134 ******************************************************************   CL**2
00135 *    STANDARD CATEGORY RPT DETAIL LINES FOR ENTRY TYPE 15 (REC)      CL**2
00136 ******************************************************************   CL**2
00137      03  15-CAT-DETAIL-LINES.                                        CL**2
00138 *    NAME LINES                                                      CL**2
00139          05  CAT15200-LINE1.                                         CL**2
00140              07  FLD1520005-HDG  PICTURE  X(10).                     CL**2
00141              07  FLD1520005-VAL  PICTURE  X(32).                     CL**2
00142              07  FILLER          PICTURE  XX.                        CL**2
00143              07  FLD1520015-HDG  PICTURE  X(7).                      CL**2
00144              07  FLD1520015-VAL  PICTURE  X(8).                      CL**2
00145              07  FILLER          PICTURE  X(11).                     CL**2
00146          05  CAT15200-LINE2 REDEFINES CAT15200-LINE1.                CL**2
00147              07  FLD1520010-HDG  PICTURE  X(11).                     CL**2
00148              07  FLD1520010-VAL  PICTURE  X(31).                     CL**2
00149              07  FILLER          PICTURE  XX.                        CL**2
00150              07  FLD1520020-HDG  PICTURE  X(10).                     CL**2
00151              07  FLD1520020-VAL  PICTURE  X(8).                      CL**2
00152              07  FILLER          PICTURE X(8).                       CL**2
00153          05  CAT15200-LINE3  REDEFINES  CAT15200-LINE2.              CL**2
00154              07  FLD1520025-HDG  PICTURE X(10).                      CL**2
00155              07  FLD1520025-VAL  PICTURE X(8).                       CL**2
00156              07  FILLER          PICTURE X(52).                      CL**2
00157 *    ATTRIBUTE LINE                                                  CL**2
00158          05  CAT15210-LINE1  REDEFINES  CAT15200-LINE3.              CL**2
00159              07  FLD1521005-HDG  PICTURE X(15).                      CL**2
00160              07  FLD1521005-VAL  PICTURE ZZZ9.                       CL**2
00161              07  FILLER          PICTURE XXXX.                       CL**2
00162              07  FLD1521010-HDG  PICTURE X(15).                      CL**2
00163              07  FLD1521010-VAL  PICTURE ZZZ9.                       CL**2
00164              07  FILLER          PICTURE XXXX.                       CL**2
00165              07  FLD1521015-HDG  PICTURE X(8).                       CL**2
00166              07  FLD1521015-VAL.                                     CL**2
00167                  09  FLD1521015-POS1 PICTURE X.                      CL**2
00168                  09  FILLER      PICTURE X(9).                       CL**2
00169              07  FILLER          PICTURE X(6).                       CL**2
00170 *    STRUCTURE LINES                                                 CL**2
00171          05  CAT15300-LINE1 REDEFINES CAT15210-LINE1.                CL**2
00172              07 FLD1530005-HDG   PICTURE X(14).                      CL**2
00173              07 FILLER           PICTURE X(19).                      CL**2
00174              07 FLD1530050-HDG   PICTURE X(5).                       CL**2
00175              07 FILLER           PICTURE X(2).                       CL**2
00176              07 FLD1530010-HDG   PICTURE X(6).                       CL**2
00177              07 FILLER           PICTURE X(3).                       CL**2
00178              07 FLD1530040-HDG   PICTURE X(3).                       CL**2
00179              07  FILLER          PICTURE X(7).                       CL**2
00180              07 FLD1530045-HDG   PICTURE X(9).                       CL**2
00181              07  FILLER          PICTURE XX.                         CL**2
00182          05  CAT15300-LINE2 REDEFINES CAT15300-LINE1.                CL**2
00183              07  FLD1530005-VAL  PICTURE X(32).                      CL**2
00184              07  FILLER          PICTURE XX.                         CL**2
00185              07  FLD1530050-VAL  PICTURE ZZZ9.                       CL**2
00186              07  FILLER          PICTURE XXX.                        CL**2
00187              07  FLD1530010-VAL  PICTURE ZZZ9.                       CL**2
00188              07  FILLER          PICTURE X(4).                       CL**2
00189              07  FLD1530040-VAL.                                     CL**2
00190                  09  FLD1530040-POS1 PICTURE X.                      CL**2
00191                  09  FILLER          PICTURE X(8).                   CL**2
00192              07 FILLER           PICTURE XXX.                        CL**2
00193              07  FLD1530045-VAL.                                     CL**2
00194                  09  FLD1530045-POS1 PICTURE X.                      CL**2
00195                  09  FILLER          PICTURE XX.                     CL**2
00196              07  FILLER          PICTURE X(6).                       CL**2
00197          05  CAT15300-LINE3 REDEFINES CAT15300-LINE2.                CL**2
00198              07 FILLER           PICTURE X(46).                      CL**2
00199              07 FLD15300OCC-HDG  PICTURE X(7).                       CL**2
00200              07 FILLER           PICTURE X.                          CL**2
00201              07 FLD1530020-HDG   PICTURE X(5).                       CL**2
00202              07 FLD1530020-VAL   PICTURE ZZ9.                        CL**2
00203              07 FILLER           PICTURE XX.                         CL**2
00204              07 FLD1530025-HDG   PICTURE X(3).                       CL**2
00205              07 FLD1530025-VAL   PICTURE ZZ9.                        CL**2
00206          05  CAT15300-LINE4 REDEFINES CAT15300-LINE3.                CL**2
00207              07 FILLER           PICTURE X(28).                      CL**2
00208              07 FLD1530015-HDG   PICTURE X(10).                      CL**2
00209              07 FLD1530015-VAL   PICTURE X(32).                      CL**2
00210          05  CAT15300-LINE5  REDEFINES CAT15300-LINE4.               CL**2
00211              07 FILLER           PICTURE X(27).                      CL**2
00212              07 FLD1530030-HDG   PICTURE X(11).                      CL**2
00213              07  FLD1530030-VAL  PICTURE X(32).                      CL**2
00214          05  CAT15300-LINE6 REDEFINES CAT15300-LINE5.                CL**2
00215              07 FILLER           PICTURE X(25).                      CL**2
00216              07 FLD1530035-HDG   PICTURE X(13).                      CL**2
00217              07 FLD1530035-VAL   PICTURE X(32).                      CL**2
00218          05  CAT15300-LINE7  REDEFINES  CAT15300-LINE6.              CL**2
00219              07  FLD1530002-HDG  PICTURE X(9).                       CL**2
00220              07  FLD1530002-VAL  PICTURE X.                          CL**2
00221              07  FILLER          PICTURE XX.                         CL**2
00222              07  FLD1530007-HDG  PICTURE X(8).                       CL**2
00223              07  FLD1530007-VAL  PICTURE X.                          CL**2
00224              07  FILLER          PICTURE XX.                         CL**2
00225              07  FLD1530012-HDG  PICTURE X(9).                       CL**2
00226              07  FLD1530012-VAL  PICTURE X.                          CL**2
00227              07  FILLER          PICTURE X(37).                      CL**2
00228          05  CAT15300-LINE8  REDEFINES  CAT15300-LINE7.              CL**2
00229              07  FLD1530017-HDG  PICTURE X(12).                      CL**2
00230              07  FLD1530017-VAL  PICTURE Z9.                         CL**2
00231              07  FILLER          PICTURE XX.                         CL**2
00232              07  FLD1530022-HDG  PICTURE X(15).                      CL**2
00233              07  FLD1530022-VAL  PICTURE 9.                          CL**2
00234              07  FILLER          PICTURE XX.                         CL**2
00235              07  FLD1530027-HDG  PICTURE X(12).                      CL**2
00236              07  FLD1530027-VAL  PICTURE Z9.                         CL**2
00237              07  FILLER          PICTURE X(22).                      CL**2
00238          05  CAT15300-LINE9  REDEFINES  CAT15300-LINE8.              CL**2
00239              07  FLD1530032-HDG  PICTURE X(13).                      CL**2
00240              07  FLD1530032-VAL  PICTURE 9.                          CL**2
00241              07  FILLER          PICTURE XX.                         CL**2
00242              07  FLD1530037-HDG  PICTURE X(5).                       CL**2
00243              07  FLD1530037-VAL  PICTURE X(16).                      CL**2
00244              07  FILLER          PICTURE X(33).                      CL**2
