*COMDECK  DATACOM 
00001  01  COMMON-RPTDATA.                                              07/12/78
00002 *                                                                 DATACOM 
00003 *    THIS REFINES LINE FORMATS  FIELD VALUES, CODES AND WORK AREAS   LV001
00004 *    WHICH ARE COMMON TO ALL ENTRY TYPES.                         DATACOM 
00005 ******************************************************************DATACOM 
00006 *    STANDARD CATEGORY RPT DETAIL LINES COMMON TO ALL ENTRY TYPES DATACOM 
00007 ******************************************************************DATACOM 
00008      03  00-CAT-DETAIL-LINES.                                     DATACOM 
00009 *    CONTROL CATEGORY                                             DATACOM 
00010          05  CAT00010-LINE.                                       DATACOM 
00011              07  FLD0001005-HDG  PICTURE X(11).                   DATACOM 
00012              07  FLD0001005-VAL  PICTURE X(32).                   DATACOM 
00013              07  FILLER          PICTURE X.                       DATACOM 
00014              07  FLD0001010-HDG  PICTURE X(7).                    DATACOM 
00015              07  FLD0001010-VAL.                                  DATACOM 
00016                  09  FLD0001010-POS1 PICTURE X.                   DATACOM 
00017                  09  FILLER          PICTURE X(7).                DATACOM 
00018              07  FILLER          PICTURE X.                       DATACOM 
00019              07  FLD0001015-HDG  PICTURE X(9).                    DATACOM 
00020              07  FLD0001015-VAL  PICTURE X.                       DATACOM 
00021 *    KEYWORD CATEGORY                                             DATACOM 
00022          05  CAT00020-LINE REDEFINES CAT00010-LINE.               DATACOM 
00023              07  FLD0002005-HDG  PICTURE X(3).                    DATACOM 
00024              07  FLD0002005-VAL PICTURE X(67).                    DATACOM 
00025 *"   DESCRIPTION CATEGORY                                         DATACOM 
00026          05  CAT00030-LINE REDEFINES CAT00020-LINE.               DATACOM 
00027              07  FLD0003005-VAL  PICTURE X.                       DATACOM 
00028              07  FLD0003010-VAL  PICTURE X(66).                   DATACOM 
00029              07  FILLER          PICTURE X(3).                    DATACOM 
00030 *    OTHER CATEGORY                                               DATACOM 
00031          05  CAT00900-LINE REDEFINES CAT00020-LINE.               DATACOM 
00032              07  FLD0090005-VAL  PICTURE X.                       DATACOM 
00033              07  FLD0090010-VAL  PICTURE X(66).                   DATACOM 
00034              07  FILLER          PICTURE X(3).                    DATACOM 
00035 ******************************************************************DATACOM 
00036 *    STANDARD FIELD HEADING CONSTANTS FOR DETAIL LINES            DATACOM 
00037 *        COMMON TO ALL ENTRY TYPES                                DATACOM 
00038 ******************************************************************DATACOM 
00039      03  00-FIELD-HDG-CONSTANTS.                                  DATACOM 
00040          05  FLD0001005-HCONA    PICTURE X(11)  VALUE             DATACOM 
00041             "  ALIAS OF ".                                        DATACOM 
00042          05  FLD0001010-HCON     PICTURE X(7)   VALUE             DATACOM 
00043             "STATUS=".                                            DATACOM 
00044          05  FLD0001015-HCON     PICTURE X(9)   VALUE             DATACOM 
00045             "SECURITY=".                                          DATACOM 
00046          05  FLD0002005-HCON     PICTURE X(3)   VALUE             DATACOM 
00047             "   ".                                                DATACOM 
00048          05  FLD0001005-HCONV    PICTURE X(11)  VALUE             DATACOM 
00049             "VERSION OF ".                                        DATACOM 
00050          05  SUB-HEADING-LINE.                                    DATACOM 
00051              07  FILLER          PICTURE X(14)   VALUE            DATACOM 
00052             "CATALOGUE NAME".                                     DATACOM 
00053              07  FILLER          PICTURE X(8)    VALUE SPACE.     DATACOM 
00054              07  FILLER          PICTURE X(9)    VALUE            DATACOM 
00055             "REV  LINE".                                          DATACOM 
00056              07  FILLER          PICTURE X(5)    VALUE SPACE.     DATACOM 
00057              07  FILLER          PICTURE X(4)    VALUE            DATACOM 
00058             "TYPE".                                               DATACOM 
00059              07  FILLER          PICTURE X(92)   VALUE SPACE.     DATACOM 
00060          05  CONTINUATION-LINE.                                   DATACOM 
00061              07  CATA-NAME-LINE  PICTURE X(56)   VALUE SPACE.     DATACOM 
00062              07  FILLER          PICTURE X(72)   VALUE SPACE.     DATACOM 
00063              07  STATEMENT-LINE.                                  DATACOM 
00064                  09  FILLER      PICTURE X(5)    VALUE SPACE.     DATACOM 
00065                  09  FILLER      PICTURE X(30)   VALUE            DATACOM 
00066                 "* CONTINUED FROM PREVIOUS PAGE".                 DATACOM 
00067                  09  FILLER      PICTURE X(97)   VALUE SPACE.     DATACOM 
00068 *********************************************************         DATACOM 
00069 *     FIELD CODES AND THEIR MEANINGS                              DATACOM 
00070 *       COMMON TO ALL ENTRY TYPES-FOR COMMON CATS                 DATACOM 
00071 **********************************************************        DATACOM 
00072      03  00-CAT-CODES.                                            DATACOM 
00073 *  STATUS OF ENTRY                                                DATACOM 
00074          05  FLD0001010-CV       PICTURE X(4)    VALUE            DATACOM 
00075         "EPO9".                                                   DATACOM 
00076          05  FLD0001010-CD  REDEFINES  FLD0001010-CV.             DATACOM 
00077              07  FLD0001010-CODES PICTURE X OCCURS 4.             DATACOM 
00078          05  FLD0001010-MV       PICTURE X(32)   VALUE            DATACOM 
00079         "EXISTINGPROPOSEDOBSOLETEXXXXXXXX".                       DATACOM 
00080          05  FLD0001010-MD   REDEFINES FLD0001010-MV.             DATACOM 
00081              07  FLD0001010-MNG  PICTURE X(8) OCCURS 4.           DATACOM 
00082      03  WORK-FIELDS.                                             DATACOM 
00083          05  DATA-OPEN-SW PICTURE X.                              DATACOM 
00084          05  HIT-WORK-REC.                                        DATACOM 
00085          07  HIT-WORK-NAME       PICTURE X(32).                   DATACOM 
00086          07  HIT-WORK-ENTTYPE    PICTURE XX.                      DATACOM 
               05  HIT-TBL-LIMIT           PICTURE 9999 VALUE 1000. 
00089          05  HIT-TBL-LIMIT-PLUS1 PICTURE   99    VALUE            DATACOM 
00090              26.                                                  DATACOM 
00091          05  FRLINE-LIMIT        PICTURE 9(4).                    DATACOM 
00092          05  TOLINE-LIMIT        PICTURE 9(4).                    DATACOM 
00093          05  FORLINE-LIMIT       PICTURE 9(4).                    DATACOM 
00094          05  CATLINE-COUNTER     PICTURE 9(4).                    DATACOM 
00095          05  ENTRY-NAME          PICTURE X(32).                   DATACOM 
00096          05  ENTRY-TYPE-NO       PICTURE 99.                      DATACOM 
00097          05  ENTRY-TYPE-NAME     PICTURE X(8).                    DATACOM 
00098          05  CATEGORY-NUMBER     PICTURE XXX.                     DATACOM 
00099          05  CATEGORY-OUTPUT-SW  PICTURE X.                       DATACOM 
00100          05  1ST-HIT-OVER-SW  PICTURE X VALUE "X".                DATACOM 
00101          05  HIT-COUNTER   PICTURE 9(5) VALUE 0.                  DATACOM 
00102          05  HITS-PER-RECORD     PICTURE 99  VALUE 86.            DATACOM 
               05  CON-KEY PIC 999. 
               05  SUB1               PICTURE 9(4) COMP-1.
00105          05  SUB2                PICTURE   S99  COMP SYNC.        DATACOM 
00106          05  SUB3                PICTURE   S99  COMP SYNC.        DATACOM 
00107          05  SUB4                PICTURE   S99  COMP SYNC.        DATACOM 
00108          05  SUB5                PICTURE   S99  COMP SYNC.        DATACOM 
00109          05  SUB6                PICTURE   S99  COMP SYNC.        DATACOM 
00110           05  DISPLAY-LINE-LENGTH PICTURE XXX VALUE "132".        DATACOM 
00111      03  QUERY-MESSAGES.                                          DATACOM 
00112          05  NO-LINES-MSG.                                        DATACOM 
00113              07  FILLER          PICTURE XX VALUE SPACES.         DATACOM 
00114              07  NLM             PICTURE X(55)   VALUE            DATACOM 
00115             "DCQRY-015-I * REQUESTED LINES NOT PRESENT FOR CATEGORDATACOM 
00116 -           "Y.".                                                 DATACOM 
00117          05  NO-CAT-MSG.                                          DATACOM 
00118              07  FILLER          PICTURE XX VALUE SPACES.         DATACOM 
00119              07  NC7             PICTURE X(45)   VALUE            DATACOM 
00120             "DCQRY-020-I * REQUESTED CATEGORY NOT DEFINED.".      DATACOM 
00121              07  FILLER          PICTURE X(9) VALUE SPACES.       DATACOM 
00122          05  NO-CATS-MSG.                                         DATACOM 
00123              07  FILLER          PICTURE XX VALUE SPACES.         DATACOM 
00124              07  NCPM            PICTURE X(47)   VALUE            DATACOM 
00125             "DCQRY-025-I * REQUESTED CATEGORIES NOT DEFINED.".    DATACOM 
00126              07  FILLER          PICTURE X(9)    VALUE SPACES.    DATACOM 
00127          05  PROGRAM-PROBLEM-MSG.                                 DATACOM 
00128              07  FILLER          PICTURE XX VALUE SPACES.         DATACOM 
00129              07  PPM             PICTURE X(30)     VALUE          DATACOM 
00130             "DCQRY-099-F * PROGRAM PROBLEM-".                     DATACOM 
00131              07  PROBLEM-NO      PICTURE X.                       DATACOM 
00132              07  FILLER          PICTURE X(23) VALUE SPACES.      DATACOM 
00133          05  LIST-LINE-MSG.                                       DATACOM 
00134              07 FILLER           PICTURE XX    VALUE SPACES.      DATACOM 
00135              07  LIST-LINE-NAME  PICTURE X(32).                   DATACOM 
00136              07  FILLER          PICTURE XX    VALUE SPACES.      DATACOM 
00137              07  LIST-LINE-ENTTYPE PICTURE X(8) VALUE             DATACOM 
00138             "GROUP   ".                                           DATACOM 
00139              07  FILLER          PICTURE X(12) VALUE SPACES.      DATACOM 
00140          05  CERR-110.                                            DATACOM 
00141              07  FILLER          PICTURE X(44)   VALUE            DATACOM 
00142             "DCQRY-950-F ERROR * MAST3 READ CLIENT RECORD".       DATACOM 
00143              07  FILLER          PICTURE X(12)   VALUE SPACE.     DATACOM 
00144           05  CERR-120.                                           DATACOM 
00145              07  FILLER          PICTURE X(41)   VALUE            DATACOM 
00146             "DCQRY-970-F ERROR * MAST3 READ HIT RECORD".          DATACOM 
00147              07  FILLER          PICTURE X(15)   VALUE SPACE.     DATACOM 
