*COMDECK  RPTDEF32
00001  01  ENTRYTYPE-32-RPTDATA.                                        01/16/78
00002 ******************************************************************RPTDEF32
00003 *    CATEGORY HEADINGS, FIELD CONSTANTS AND CODE VALUES              LV002
00004 ******************************************************************   CL**2
00005      03  32-CAT-HEADERS.                                             CL**2
00006          05  ENT32-CN            PICTURE X(24)   VALUE               CL**2
00007         "010020030140200215300900".                                  CL**2
00008          05  ENT32-CN2  REDEFINES  ENT32-CN.                         CL**2
00009              07  ENT32-CATNUMS       PICTURE XXX OCCURS 8.           CL**2
00010          05  ENT32-CH.                                               CL**2
00011              07  FILLER              PICTURE X(30)   VALUE           CL**2
00012             "    ---CONTROL CATEGORY---    ".                        CL**2
00013              07  FILLER              PICTURE X(30)   VALUE           CL**2
00014             "---CLASSIFICATION CATEGORY--- ".                        CL**2
00015              07  FILLER              PICTURE X(30)   VALUE           CL**2
00016             "  ---DESCRIPTION CATEGORY---  ".                        CL**2
00017              07  FILLER              PICTURE X(30)   VALUE           CL**2
00018             "---RESPONSIBILITY CATEGORY--- ".                        CL**2
00019              07  FILLER              PICTURE X(30)   VALUE           CL**2
00020             "     ---NAME CATEGORY---      ".                        CL**2
00021              07  FILLER              PICTURE X(30)   VALUE           CL**2
00022             "    ---IOAREA CATEGORY---     ".                        CL**2
00023              07  FILLER              PICTURE X(30)   VALUE           CL**2
00024             "   ---STRUCTURE CATEGORY---   ".                        CL**2
00025              07  FILLER              PICTURE X(30)   VALUE           CL**2
00026             "     ---OTHER CATEGORY---     ".                        CL**2
00027          05  ENT32-CATH REDEFINES  ENT32-CH.                         CL**2
00028              07  ENT32-CATHDRS   PICTURE X(30)  OCCURS 8.            CL**2
00029 **********************************************************           CL**2
00030 *    STD CATEGORY REPORT DETAIL LINES FOR TYPE 32 (DATABASE).        CL**2
00031 ******************************************                           CL**2
00032      03  32-CAT-DETAIL-LINES.                                        CL**2
00033 *    RESPONSIBILITY LINES                                            CL**2
00034          05  CAT32140-LINE1.                                         CL**2
00035              07  FLD3214005-HDG      PICTURE X(7).                   CL**2
00036              07  FLD3214005-VAL.                                     CL**2
00037              09  FLD3214005-POS1 PICTURE X.                          CL**2
00038                  09  FILLER          PICTURE X(7).                   CL**2
00039              07  FILLER              PICTURE XX.                     CL**2
00040              07  FLD3214010-HDG  PICTURE X(9).                       CL**2
00041              07  FLD3214010-VAL.                                     CL**2
00042                  09  FLD3214010-POS1 PICTURE X.                      CL**2
00043                  09  FILLER          PICTURE X(9).                   CL**2
00044              07  FILLER              PICTURE XX.                     CL**2
00045              07  FLD3214025-HDG  PICTURE X(6).                       CL**2
00046              07  FLD3214025-VAL      PICTURE X(10).                  CL**2
00047              07  FILLER          PICTURE XX.                         CL**2
00048              07  FLD3214035-HDG      PICTURE X(5).                   CL**2
00049              07  FLD3214035-VAL      PICTURE X(5).                   CL**2
00050              07  FILLER          PICTURE X(6).                       CL**2
00051          05  CAT32140-LINE2  REDEFINES CAT32140-LINE1.               CL**2
00052              07  FLD3214015-HDG      PICTURE X(11).                  CL**2
00053              07  FLD3214015-VAL      PICTURE X(32).                  CL**2
00054              07  FILLER              PICTURE XX.                     CL**2
00055              07  FLD3214040-HDG      PICTURE X(5).                   CL**2
00056              07  FLD3214040-VAL      PICTURE X(6).                   CL**2
00057              07  FILLER              PICTURE X(14).                  CL**2
00058          05  CAT32140-LINE3  REDEFINES CAT32140-LINE2.               CL**2
00059              07  FLD3214020-HDG      PICTURE X(7).                   CL**2
00060              07  FLD3214020-VAL      PICTURE X(32).                  CL**2
00061              07  FILLER              PICTURE XX.                     CL**2
00062              07  FLD3214030-HDG      PICTURE X(6).                   CL**2
00063              07  FLD3214030-VAL      PICTURE X(15).                  CL**2
00064              07  FILLER              PICTURE X(9).                   CL**2
00065 *    NAME CATEGORY                                                   CL**2
00066          05  CAT32200-LINE1  REDEFINES CAT32140-LINE3.               CL**2
00067              07  FLD3220005-HDG   PICTURE X(8).                      CL**2
00068              07  FLD3220005-VAL  PICTURE X(8).                       CL**2
00069              07  FILLER          PICTURE XX.                         CL**2
00070              07  FLD3220010-HDG  PICTURE X(5).                       CL**2
00071              07  FLD3220010-VAL  PICTURE X(32).                      CL**2
00072              07  FILLER          PICTURE X(14).                      CL**2
00073 *     IOAREA CATEGORY                                                CL**2
00074          05  CAT215-LINE1  REDEFINES  CAT32200-LINE1.                CL**2
00075              07  FLD3221505-HDG       PICTURE X(11).                 CL**2
00076              07  FLD3221505-VAL.                                     CL**2
00077                  09  FLD3221505-POS1  PICTURE X.                     CL**2
00078                  09  FILLER          PICTURE XX.                     CL**2
00079              07  FILLER              PICTURE XX.                     CL**2
00080              07  FLD3221515-HDG       PICTURE X(12).                 CL**2
00081              07  FLD3221515-VAL       PICTURE X(4).                  CL**2
00082              07  FILLER              PICTURE XX.                     CL**2
00083              07  FLD3221520-HDG       PICTURE X(7).                  CL**2
00084              07  FLD3221520-VAL       PICTURE XX.                    CL**2
00085              07  FILLER              PICTURE X(27).                  CL**2
00086 *    STRUCTURE CATEGORY                                              CL**2
00087          05  CAT300-LINE1  REDEFINES  CAT32200-LINE1.                CL**2
00088              07  FLD3230005-HDG      PICTURE X(13).                  CL**2
00089              07  FLD3230005-VAL      PICTURE X(32).                  CL**2
00090              07  FILLER           PICTURE X(25).                     CL**2
00091          05  CAT300-LINE2  REDEFINES  CAT300-LINE1.                  CL**2
00092              07  FLD3230010-HDG        PICTURE X(5).                 CL**2
00093              07  FLD3230010-VAL.                                     CL**2
00094                  09  FLD3230010-POS1 PICTURE X.                      CL**2
00095                  09  FILLER          PICTURE X(7).                   CL**2
00096              07  FILLER              PICTURE XX.                     CL**2
00097              07  FLD3230015-HDG      PICTURE X(8).                   CL**2
00098              07  FLD3230015-VAL.                                     CL**2
00099                  09  FLD3230015-POS1 PICTURE X.                      CL**2
00100                  09  FILLER          PICTURE XX.                     CL**2
00101              07  FILLER           PICTURE X(44).                     CL**2
00102 ************************************************************         CL**2
00103 *    STANDARD FIELD HEADING CONSTANTS FOR DETAIL LINES               CL**2
00104 *        FOR ENTRY TYPE 30 (DATA BASE).                              CL**2
00105 ************************************************************         CL**2
00106      03  30-FIELD-HDG-CONSTANTS.                                     CL**2
00107          05  FLD3214005-HCON         PICTURE X(7)    VALUE           CL**2
00108             "STATUS=".                                               CL**2
00109          05  FLD3214010-HCON     PICTURE X(9)    VALUE               CL**2
00110             "FUNCTION=".                                             CL**2
00111          05  FLD3214015-HCON         PICTURE X(11)   VALUE           CL**2
00112             "DEPARTMENT=".                                           CL**2
00113          05  FLD3214020-HCON         PICTURE X(7)    VALUE           CL**2
00114             "PERSON=".                                               CL**2
00115          05  FLD3214025-HCON         PICTURE X(6)    VALUE           CL**2
00116             "PHONE=".                                                CL**2
00117          05  FLD3214030-HCON         PICTURE X(6)    VALUE           CL**2
00118             "TITLE=".                                                CL**2
00119          05  FLD3214035-HCON         PICTURE X(5)    VALUE           CL**2
00120             "MAIL=".                                                 CL**2
00121          05  FLD3214040-HCON         PICTURE X(5)    VALUE           CL**2
00122             "DATE=".                                                 CL**2
00123          05  FLD3220005-HCON        PICTURE X(8)     VALUE           CL**2
00124             "DB NAME=".                                              CL**2
00125          05  FLD3220010-HCON     PICTURE X(5)    VALUE               CL**2
00126             "NAME=".                                                 CL**2
00127          05  FLD3221505-HCON     PICTURE X(11)    VALUE              CL**2
00128             "TRACK HOLD=".                                           CL**2
00129          05  FLD3221515-HCON     PICTURE X(12)    VALUE              CL**2
00130             "IOAREA NAME=".                                          CL**2
00131          05  FLD3221520-HCON     PICTURE X(7)    VALUE               CL**2
00132             "OCCURS=".                                               CL**2
00133          05  FLD3230005-HCON        PICTURE X(13)   VALUE            CL**2
00134             "DATASET NAME=".                                         CL**2
00135          05  FLD3230010-HCON        PICTURE X(5)   VALUE             CL**2
00136             "TYPE=".                                                 CL**2
00137          05  FLD3230015-HCON        PICTURE X(8)   VALUE             CL**2
00138             "EXCLUDE=".                                              CL**2
00139 *                                                                    CL**2
00140 *    STATUS FIELD CODE                                               CL**2
00141 *                                                                    CL**2
00142          05  FLD3214005-CV       PICTURE X(3)    VALUE               CL**2
00143         "CP9".                                                       CL**2
00144          05  FLD3214005-CD  REDEFINES  FLD3214005-CV.                CL**2
00145              07  FLD3214005-CODES  PICTURE X OCCURS 3.               CL**2
00146          05  FLD3214005-MV       PICTURE X(21)   VALUE               CL**2
00147         "CURRENTPAST   XXXXXXX".                                     CL**2
00148          05  FLD3214005-MD  REDEFINES  FLD3214005-MV.                CL**2
00149              07  FLD3214005-MNG  PICTURE X(7)  OCCURS 3.             CL**2
00150 *                                                                    CL**2
00151 *    FUNCTION FIELD                                                  CL**2
00152 *                                                                    CL**2
00153          05  FLD3214010-CV       PICTURE X(4)     VALUE              CL**2
00154         "CDT9".                                                      CL**2
00155          05  FLD3214010-CD  REDEFINES  FLD3214010-CV.                CL**2
00156              07  FLD3214010-CODES  PICTURE X OCCURS 4.               CL**2
00157          05  FLD3214010-MV           PICTURE  X(36)   VALUE          CL**2
00158          "CHANGED  DEVELOPEDTESTED   XXXXXXXXX".                     CL**2
00159          05  FLD3214010-MD  REDEFINES  FLD3214010-MV.                CL**2
00160              07  FLD3214010-MNG      PICTURE X(9)  OCCURS 4.         CL**2
00161 *                                                                    CL**2
00162 *     TRACK FIELD                                                    CL**2
00163 *                                                                    CL**2
00164          05  FLD3221505-CV         PICTURE X(3)   VALUE              CL**2
00165         "YN9".                                                       CL**2
00166          05  FLD3221505-CD  REDEFINES  FLD3221505-CV.                CL**2
00167              07  FLD3221505-CODES   PICTURE X OCCURS 3.              CL**2
00168          05  FLD3221505-MV         PICTURE X(9)   VALUE              CL**2
00169         "YESNO XXX".                                                 CL**2
00170          05  FLD3221505-MD   REDEFINES   FLD3221505-MV.              CL**2
00171              07  FLD3221505-MNG    PICTURE X(3) OCCURS 3.            CL**2
00172 *                                                                    CL**2
00173 *    TYPE FIELD                                                      CL**2
00174 *                                                                    CL**2
00175          05  FLD3230010-CV      PICTURE X(3)   VALUE                 CL**2
00176         "MV9".                                                       CL**2
00177          05  FLD3230010-CD  REDEFINES  FLD3230010-CV.                CL**2
00178              07  FLD3230010-CODES  PICTURE X  OCCURS 3.              CL**2
00179          05  FLD3230010-MV       PICTURE X(24)   VALUE               CL**2
00180         "MASTER  VARIABLEXXXXXXXX".                                  CL**2
00181          05  FLD3230010-MD  REDEFINES  FLD3230010-MV.                CL**2
00182              07  FLD3230010-MNG   PICTURE X(8)  OCCURS 3.            CL**2
00183 *                                                                    CL**2
00184 *    EXCLUDE FIELD                                                   CL**2
00185 *                                                                    CL**2
00186          05  FLD3230015-CV       PICTURE X(3)   VALUE                CL**2
00187         "YN9".                                                       CL**2
00188          05  FLD3230015-CD  REDEFINES  FLD3230015-CV.                CL**2
00189              07  FLD3230015-CODES  PICTURE X  OCCURS 3.              CL**2
00190          05  FLD3230015-MV        PICTURE X(9)  VALUE                CL**2
00191         "YESNO XXX".                                                 CL**2
00192          05  FLD3230015-MD  REDEFINES  FLD3230015-MV.                CL**2
00193              07  FLD3230015-MNG     PICTURE X(3)  OCCURS 3.          CL**2
