*COMDECK  RPTDEF55
00001  01  ENTRYTYPE-55-RPTDATA.                                        08/02/78
00002 ****************************************************************  RPTDEF55
00003 *                                                                    LV001
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF55
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF55
00006 *        TASK ENTRIES                                             RPTDEF55
00007 *                                                                 RPTDEF55
00008 ***************************************************************   RPTDEF55
00009      03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "55".          CL**2
00010 ******************************************************************   CL**2
00011 *                                                                    CL**2
00012 *    CATEGORY HEADING CONSTANTS FOR TYPE 55- TASK                    CL**2
00013 *                                                                    CL**2
00014 ******************************************************************   CL**2
00015      03  55-CAT-HEADERS.                                             CL**2
00016          05  ENT55-CN            PICTURE X(24)   VALUE               CL**2
00017         "010020030140200280800900".                                  CL**2
00018          05  ENT55-CN2   REDEFINES   ENT55-CN.                       CL**2
00019              07  ENT55-CATNUMS   PICTURE XXX OCCURS 8.               CL**2
00020          05  ENT55-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             " ---RESPONSIBILITY CATEGORY---".                        CL**2
00029              07  FILLER          PICTURE X(30)   VALUE               CL**2
00030             "       ---NAME CATEGORY---    ".                        CL**2
00031              07  FILLER          PICTURE X(30)   VALUE               CL**2
00032             "  ---SCHEDULING CATEGORY---   ".                        CL**2
00033              07  FILLER          PICTURE X(30)   VALUE               CL**2
00034             "  ---RELATIONAL CATEGORY---   ".                        CL**2
00035              07  FILLER          PICTURE X(30)   VALUE               CL**2
00036             "     ---OTHER CATEGORY---     ".                        CL**2
00037          05  ENT55-CATH  REDEFINES  ENT55-CH.                        CL**2
00038              07  ENT55-CATHDRS   PICTURE X(30) OCCURS 8.             CL**2
00039 ********************************************************             CL**2
00040 *                                                                    CL**2
00041 *    FIELD HEADING CONSTANTS                                         CL**2
00042 *                                                                    CL**2
00043      05  FLD5514005-HCON         PICTURE X(7)    VALUE               CL**2
00044         "STATUS=".                                                   CL**2
00045      05  FLD5514010-HCON         PICTURE X(9)    VALUE               CL**2
00046         "FUNCTION=".                                                 CL**2
00047      05  FLD5514015-HCON         PICTURE X(11)   VALUE               CL**2
00048         "DEPARTMENT=".                                               CL**2
00049      05  FLD5514020-HCON         PICTURE X(7)    VALUE               CL**2
00050         "PERSON=".                                                   CL**2
00051      05  FLD5514025-HCON         PICTURE X(6)    VALUE               CL**2
00052         "PHONE=".                                                    CL**2
00053      05  FLD5514030-HCON         PICTURE X(6)    VALUE               CL**2
00054         "TITLE=".                                                    CL**2
00055      05  FLD5514035-HCON         PICTURE X(5)    VALUE               CL**2
00056         "MAIL=".                                                     CL**2
00057      05  FLD5514040-HCON         PICTURE X(5)    VALUE               CL**2
00058         "DATE=".                                                     CL**2
00059          05  FLD5520005-HCON     PICTURE X(10)   VALUE            RPTDEF55
00060             "TASK NAME=".                                         RPTDEF55
00061          05  FLD5520010-HCON     PICTURE X(8)    VALUE            RPTDEF55
00062             "TASK ID=".                                           RPTDEF55
00063          05  FLD5528005-HCON     PICTURE X(13)   VALUE            RPTDEF55
00064             "NORMAL START=".                                      RPTDEF55
00065          05  FLD5528010-HCON     PICTURE X(12)   VALUE            RPTDEF55
00066             "NORMAL STOP=".                                       RPTDEF55
00067          05  FLD5528015-HCON     PICTURE X(11)   VALUE            RPTDEF55
00068             "NORMAL DAY=".                                        RPTDEF55
00069          05  FLD5528020-HCON     PICTURE X(15)   VALUE            RPTDEF55
00070             "DEADLINE START=".                                    RPTDEF55
00071          05  FLD5528025-HCON     PICTURE X(14)   VALUE            RPTDEF55
00072             "DEADLINE STOP=".                                     RPTDEF55
00073          05  FLD5528030-HCON     PICTURE X(13)   VALUE            RPTDEF55
00074             "DEADLINE DAY=".                                      RPTDEF55
00075          05  FLD5528035-HCON     PICTURE X(6)    VALUE            RPTDEF55
00076             "CYCLE=".                                             RPTDEF55
00077          05  FLD5528040-HCON     PICTURE X(15)   VALUE            RPTDEF55
00078             "PRECEDING STEP=".                                    RPTDEF55
00079          05  FLD5580005-HCON   PICTURE X(14)   VALUE                 CL**2
00080             "CATALOGUE NAME".                                        CL**2
00081          05  FLD5580015-HCON   PICTURE X(3)     VALUE                CL**2
00082             "I/O".                                                   CL**2
00083          05  FLD5580020-HCON   PICTURE X(5)     VALUE                CL**2
00084             "CYCLE".                                                 CL**2
00085      05  FLD5580010-HCON         PICTURE X(7)    VALUE               CL**2
00086             "PARTIAL".                                               CL**2
00087 ********************************************************             CL**2
00088 *                                                                    CL**2
00089 *    FIELD CODES AND THEIR MEANINGS                                  CL**2
00090 *                                                                    CL**2
00091 **********************************************************           CL**2
00092 *                                                                    CL**2
00093 *    RESP-TSK-STATUS                                                 CL**2
00094 *                                                                    CL**2
00095      05  FLD5514005-CV           PICTURE X(3)    VALUE               CL**2
00096     "CP9".                                                           CL**2
00097      05  FLD5514005-CD  REDEFINES  FLD5514005-CV.                    CL**2
00098          07  FLD5514005-CODES  PICTURE X OCCURS 3.                   CL**2
00099      05  FLD5514005-MV           PICTURE X(21)   VALUE               CL**2
00100     "CURRENTPAST   XXXXXXX".                                         CL**2
00101      05  FLD5514005-MD  REDEFINES  FLD5514005-MV.                    CL**2
00102          07  FLD5514005-MNG    PICTURE X(7) OCCURS 3.                CL**2
00103 *                                                                    CL**2
00104 *    RESP-TSK-FUNC                                                   CL**2
00105 *                                                                    CL**2
00106      05  FLD5514010-CV           PICTURE X(4)    VALUE               CL**2
00107     "DCT9".                                                          CL**2
00108      05  FLD5514010-CD  REDEFINES  FLD5514010-CV.                    CL**2
00109          07  FLD5514010-CODES    PICTURE X OCCURS 4.                 CL**2
00110      05  FLD5514010-MV           PICTURE X(36)   VALUE               CL**2
00111     "DEVELOPEDCHANGED  TESTED   XXXXXXXXX".                          CL**2
00112      05  FLD5514010-MD  REDEFINES  FLD5514010-MV.                    CL**2
00113          07  FLD5514010-MNG      PICTURE X(9) OCCURS 4.              CL**2
00114 *                                                                 RPTDEF55
00115 *    REL-TSK-PUSE                                                 RPTDEF55
00116 *                                                                 RPTDEF55
00117          05  FLD5528035-CV           PICTURE X(8)    VALUE           CL**2
00118         "ADMQRSW9".                                                  CL**2
00119          05  FLD5528035-CD   REDEFINES FLD5528035-CV.                CL**2
00120              07  FLD5528035-CODES    PICTURE X OCCURS 8.             CL**2
00121          05  FLD5528035-MV           PICTURE X(104)  VALUE           CL**2
00122         "ANNUALLY     DAILY        MONTHLY      QUARTERLY    ON RE   CL**2
00123 -       "QUEST   SEMI-ANNUALLYWEEKLY       XXXXXXXXXXXXX".           CL**2
00124          05  FLD5528035-MD   REDEFINES FLD5528035-MV.                CL**2
00125              07  FLD5528035-MNG      PICTURE X(13) OCCURS 8.         CL**2
00126      05  FLD5580010-CV           PICTURE X(3)    VALUE               CL**2
00127         "YN9".                                                       CL**2
00128          05  FLD5580010-CD REDEFINES FLD5580010-CV.                  CL**2
00129              07  FLD5580010-CODES PICTURE X OCCURS 3.                CL**2
00130          05  FLD5580010-MV       PICTURE X(9)        VALUE           CL**2
00131         "YESNO XXX".                                                 CL**2
00132          05  FLD5580010-MD REDEFINES FLD5580010-MV.                  CL**2
00133              07  FLD5580010-MNG  PICTURE X(3) OCCURS 3.              CL**2
00134 *                                                                 RPTDEF55
00135 *    REL-TSK-IO                                                      CL**2
00136 *                                                                 RPTDEF55
00137          05  FLD5580015-CV  PICTURE X(4)        VALUE             RPTDEF55
00138         "BIO9".                                                      CL**2
00139          05  FLD5580015-CD   REDEFINES FLD5580015-CV.             RPTDEF55
00140              07  FLD5580015-CODES PICTURE X OCCURS 4.             RPTDEF55
00141          05  FLD5580015-MV       PICTURE X(24)   VALUE               CL**2
00142         "BOTH  INPUT OUTPUTXXXXXX".                               RPTDEF55
00143          05  FLD5580015-MD   REDEFINES FLD5580015-MV.             RPTDEF55
00144              07  FLD5580015-MNG  PICTURE X(6)  OCCURS 4.          RPTDEF55
00145 *                                                                 RPTDEF55
00146 *    REL-TSK-CYCLE                                                   CL**2
00147 *                                                                    CL**2
00148          05  FLD5580020-CV  PICTURE X(8)        VALUE             RPTDEF55
00149         "ADMQRSW9".                                               RPTDEF55
00150          05  FLD5580020-CD   REDEFINES FLD5580020-CV.             RPTDEF55
00151              07  FLD5580020-CODES PICTURE X OCCURS 8.             RPTDEF55
00152          05  FLD5580020-MV       PICTURE X(104)  VALUE               CL**2
00153         "ANNUALLY     DAILY        MONTHLY      QUARTERLY    ON RERPTDEF55
00154 -       "QUEST   SEMI-ANNUALLYWEEKLY       XXXXXXXXXXXXX".        RPTDEF55
00155          05  FLD5580020-MD   REDEFINES FLD5580020-MV.             RPTDEF55
00156              07  FLD5580020-MNG  PICTURE X(13) OCCURS 8.          RPTDEF55
00157 ******************************************************************   CL**2
00158 *    STANDARD CATEGORY REPORT DETAIL LINES FOR ENTRY TYPE 55         CL**2
00159 *        ENTRY TYPE 55 = TAKS                                        CL**2
00160 ******************************************************************   CL**2
00161      03  55-CAT-DETAIL-LINES.                                        CL**2
00162 *  RESPONSIBILITY LINES                                              CL**2
00163          05  CAT55140-LINE1.                                         CL**2
00164              07  FLD5514005-HDG      PICTURE X(7).                   CL**2
00165              07  FLD5514005-VAL.                                     CL**2
00166                  09  FLD5514005-POS1 PICTURE X.                      CL**2
00167                  09  FILLER          PICTURE X(6).                   CL**2
00168              07  FILLER              PICTURE XX.                     CL**2
00169              07  FLD5514010-HDG      PICTURE X(9).                   CL**2
00170              07  FLD5514010-VAL.                                     CL**2
00171                  09  FLD5514010-POS1 PICTURE X.                      CL**2
00172                  09  FILLER          PICTURE X(8).                   CL**2
00173              07  FILLER              PICTURE XX.                     CL**2
00174              07  FLD5514025-HDG      PICTURE X(6).                   CL**2
00175              07  FLD5514025-VAL      PICTURE X(10).                  CL**2
00176              07  FILLER              PICTURE XX.                     CL**2
00177              07  FLD5514035-HDG      PICTURE X(5).                   CL**2
00178              07  FLD5514035-VAL      PICTURE X(5).                   CL**2
00179              07  FILLER              PICTURE X(6).                   CL**2
00180          05  CAT55140-LINE2  REDEFINES  CAT55140-LINE1.              CL**2
00181              07  FLD5514020-HDG      PICTURE X(7).                   CL**2
00182              07  FLD5514020-VAL      PICTURE X(20).                  CL**2
00183              07  FILLER              PICTURE XX.                     CL**2
00184              07  FLD5514030-HDG      PICTURE X(6).                   CL**2
00185              07  FLD5514030-VAL      PICTURE X(15).                  CL**2
00186              07  FILLER              PICTURE X(20).                  CL**2
00187          05  CAT55140-LINE3  REDEFINES CAT55140-LINE2.               CL**2
00188              07  FLD5514015-HDG      PICTURE X(11).                  CL**2
00189              07  FLD5514015-VAL      PICTURE X(32).                  CL**2
00190              07  FILLER              PICTURE XX.                     CL**2
00191              07  FLD5514040-HDG      PICTURE X(5).                   CL**2
00192              07  FLD5514040-VAL      PICTURE X(8).                   CL**2
00193              07  FILLER              PICTURE X(12).                  CL**2
00194 *    NAME LINE                                                       CL**2
00195          05  CAT55200-LINE1  REDEFINES CAT55140-LINE3.               CL**2
00196              07  FLD5520005-HDG  PICTURE X(10).                      CL**2
00197              07  FLD5520005-VAL  PICTURE X(32).                      CL**2
00198              07  FILLER          PICTURE XX.                         CL**2
00199              07  FLD5520010-HDG  PICTURE X(8).                       CL**2
00200              07  FLD5520010-VAL  PICTURE X(10).                      CL**2
00201              07  FILLER          PICTURE X(8).                       CL**2
00202 *    SCHEDULING LINES                                                CL**2
00203          05  CAT55280-LINE1 REDEFINES CAT55200-LINE1.                CL**2
00204              07  FLD5528005-HDG      PICTURE X(13).                  CL**2
00205              07  FLD5528005-VAL  PICTURE ZZZ9.                       CL**2
00206              07  FILLER              PICTURE XX.                     CL**2
00207              07  FLD5528010-HDG      PICTURE X(12).                  CL**2
00208              07  FLD5528010-VAL  PICTURE ZZZ9.                       CL**2
00209              07  FILLER              PICTURE XX.                     CL**2
00210              07  FLD5528015-HDG  PICTURE X(11).                      CL**2
00211              07  FLD5528015-VAL  PICTURE X(10).                      CL**2
00212              07  FILLER          PICTURE X(12).                      CL**2
00213          05  CAT55280-LINE2 REDEFINES CAT55280-LINE1.                CL**2
00214              07  FLD5528020-HDG      PICTURE X(15).                  CL**2
00215              07  FLD5528020-VAL      PICTURE ZZZ9.                   CL**2
00216              07  FILLER              PICTURE XX.                     CL**2
00217              07  FLD5528025-HDG      PICTURE X(14).                  CL**2
00218              07  FLD5528025-VAL      PICTURE ZZZ9.                   CL**2
00219              07  FILLER              PICTURE XX.                     CL**2
00220              07  FLD5528030-HDG      PICTURE X(13).                  CL**2
00221              07  FLD5528030-VAL      PICTURE X(10).                  CL**2
00222              07  FILLER              PICTURE X(6).                   CL**2
00223          05  CAT55280-LINE3  REDEFINES  CAT55280-LINE2.              CL**2
00224              07  FLD5528035-HDG      PICTURE X(6).                   CL**2
00225              07  FLD5528035-VAL.                                     CL**2
00226                  09  FLD5528035-POS1 PICTURE X.                      CL**2
00227                  09  FILLER          PICTURE X(12).                  CL**2
00228              07  FILLER              PICTURE X.                      CL**2
00229              07  FLD5528040-HDG      PICTURE X(15).                  CL**2
00230              07  FLD5528040-VAL      PICTURE X(32).                  CL**2
00231              07  FILLER              PICTURE X(3).                   CL**2
00232 *    RELATION LINES-1ST LINE IS HEADING                              CL**2
00233          05  CAT55800-LINE1  REDEFINES CAT55280-LINE3.               CL**2
00234              07  FLD5580005-HDG      PICTURE X(14).                  CL**2
00235              07  FILLER              PICTURE X(19).                  CL**2
00236              07  FLD5580010-HDG      PICTURE X(7).                   CL**2
00237              07  FILLER              PICTURE XX.                     CL**2
00238              07  FLD5580015-HDG      PICTURE XXX.                    CL**2
00239              07  FILLER              PICTURE X(6).                   CL**2
00240              07  FLD5580020-HDG      PICTURE X(5).                   CL**2
00241              07  FILLER              PICTURE X(14).                  CL**2
00242      05  CAT55800-LINE2  REDEFINES CAT55800-LINE1.                   CL**2
00243          07  FLD5580005-VAL      PICTURE X(32).                      CL**2
00244          07  FILLER              PICTURE XX.                         CL**2
00245          07  FLD5580010-VAL.                                         CL**2
00246              09  FLD5580010-POS1 PICTURE X.                          CL**2
00247              09  FILLER          PICTURE X(6).                       CL**2
00248          07  FILLER              PICTURE XX.                         CL**2
00249          07  FLD5580015-VAL.                                         CL**2
00250              09  FLD5580015-POS1 PICTURE X.                          CL**2
00251              09  FILLER          PICTURE X(5).                       CL**2
00252          07  FILLER              PICTURE XX.                         CL**2
00253          07  FLD5580020-VAL.                                         CL**2
00254              09  FLD5580020-POS1 PICTURE X.                          CL**2
00255              09  FILLER          PICTURE X(12).                      CL**2
00256              07  FILLER          PICTURE X(6).                       CL**2
