00001 ***** 11/18/98 00002 * DTSIS66 FIELD ASSIGNMENT BY NUMBER SEARCH SEND/RECEIVE AREA DTSIS66 00003 ***** LV003 00004 10 FILLER PIC X(12). DTSIS66 00005 10 MAP-SCR-TYPE-AREA. DTSIS66 00006 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS66 00007 15 MAP-SCR-TYPE-A PIC X(01). DTSIS66 00008 15 MAP-SCR-TYPE PIC X(02). DTSIS66 00009 10 MAP-CICS-REGION-NAME-AREA. DTSIS66 00010 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS66 00011 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS66 00012 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS66 00013 10 MAP-SYS-DATE-AREA. DTSIS66 00014 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS66 00015 15 MAP-SYS-DATE-A PIC X(01). DTSIS66 00016 15 MAP-SYS-DATE PIC X(08). DTSIS66 00017 10 MAP-EMP-NO-AREA. DTSIS66 00018 15 F660216. DTSIS66 00019 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS66 00020 20 MAP-EMP-NO-1-A PIC X(01). DTSIS66 00021 20 MAP-EMP-NO-1 PIC X(03). DTSIS66 00022 15 F660220. DTSIS66 00023 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS66 00024 20 MAP-EMP-NO-2-A PIC X(01). DTSIS66 00025 20 MAP-EMP-NO-2 PIC X(03). DTSIS66 00026 10 F660226. DTSIS66 00027 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00028 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00029 15 MAP-PRIMARY-NAME PIC X(40). CL**2 00030 10 MAP-SYS-TIME-AREA. DTSIS66 00031 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS66 00032 15 MAP-SYS-TIME-A PIC X(01). DTSIS66 00033 15 MAP-SYS-TIME PIC X(08). DTSIS66 00034 10 F660419. DTSIS66 00035 15 MAP-STATUS-ACTIVE-L PIC S9(04) COMP. DTSIS66 00036 15 MAP-STATUS-ACTIVE-A PIC X(01). DTSIS66 00037 15 MAP-STATUS-ACTIVE PIC X(01). DTSIS66 00038 88 MAP-STATUS-ACTIVE-NO VALUE 'N'. DTSIS66 00039 88 MAP-STATUS-ACTIVE-YES VALUE 'Y'. DTSIS66 00040 88 MAP-STATUS-ACTIVE-VALID VALUE 'Y' 'N'. DTSIS66 00041 10 F660429. DTSIS66 00042 15 MAP-STATUS-HELD-L PIC S9(04) COMP. DTSIS66 00043 15 MAP-STATUS-HELD-A PIC X(01). DTSIS66 00044 15 MAP-STATUS-HELD PIC X(01). DTSIS66 00045 88 MAP-STATUS-HELD-NO VALUE 'N'. DTSIS66 00046 88 MAP-STATUS-HELD-YES VALUE 'Y'. DTSIS66 00047 88 MAP-STATUS-HELD-VALID VALUE 'Y' 'N'. DTSIS66 00048 10 F660444. DTSIS66 00049 15 MAP-STATUS-COMPLETE-L PIC S9(04) COMP. DTSIS66 00050 15 MAP-STATUS-COMPLETE-A PIC X(01). DTSIS66 00051 15 MAP-STATUS-COMPLETE PIC X(01). DTSIS66 00052 88 MAP-STATUS-COMPLETE-NO VALUE 'N'. DTSIS66 00053 88 MAP-STATUS-COMPLETE-YES VALUE 'Y'. DTSIS66 00054 88 MAP-STATUS-COMPLETE-VALID VALUE 'Y' 'N'. DTSIS66 00055 10 F660459. DTSIS66 00056 15 MAP-STATUS-PROCESSED-L PIC S9(04) COMP. DTSIS66 00057 15 MAP-STATUS-PROCESSED-A PIC X(01). DTSIS66 00058 15 MAP-STATUS-PROCESSED PIC X(01). DTSIS66 00059 88 MAP-STATUS-PROCESSED-NO VALUE 'N'. DTSIS66 00060 88 MAP-STATUS-PROCESSED-YES VALUE 'Y'. DTSIS66 00061 88 MAP-STATUS-PROCESSED-VALID VALUE 'Y' 'N'. DTSIS66 00062 10 F660473. DTSIS66 00063 15 MAP-STATUS-KILLED-L PIC S9(04) COMP. DTSIS66 00064 15 MAP-STATUS-KILLED-A PIC X(01). DTSIS66 00065 15 MAP-STATUS-KILLED PIC X(01). DTSIS66 00066 88 MAP-STATUS-KILLED-NO VALUE 'N'. DTSIS66 00067 88 MAP-STATUS-KILLED-YES VALUE 'Y'. DTSIS66 00068 88 MAP-STATUS-KILLED-VALID VALUE 'Y' 'N'. DTSIS66 00069 10 MAP-DUE-DATE-FROM-AREA. DTSIS66 00070 15 F660519. DTSIS66 00071 20 MAP-DUE-DATE-FROM-MO-L PIC S9(04) COMP. DTSIS66 00072 20 MAP-DUE-DATE-FROM-MO-A PIC X(01). DTSIS66 00073 20 MAP-DUE-DATE-FROM-MO PIC X(02). DTSIS66 00074 15 F660522. DTSIS66 00075 20 MAP-DUE-DATE-FROM-DA-L PIC S9(04) COMP. DTSIS66 00076 20 MAP-DUE-DATE-FROM-DA-A PIC X(01). DTSIS66 00077 20 MAP-DUE-DATE-FROM-DA PIC X(02). DTSIS66 00078 15 F660525. DTSIS66 00079 20 MAP-DUE-DATE-FROM-YR-L PIC S9(04) COMP. DTSIS66 00080 20 MAP-DUE-DATE-FROM-YR-A PIC X(01). DTSIS66 00081 20 MAP-DUE-DATE-FROM-YR PIC X(02). DTSIS66 00082 10 MAP-DUE-DATE-TO-AREA. DTSIS66 00083 15 F660530. DTSIS66 00084 20 MAP-DUE-DATE-TO-MO-L PIC S9(04) COMP. DTSIS66 00085 20 MAP-DUE-DATE-TO-MO-A PIC X(01). DTSIS66 00086 20 MAP-DUE-DATE-TO-MO PIC X(02). DTSIS66 00087 15 F660533. DTSIS66 00088 20 MAP-DUE-DATE-TO-DA-L PIC S9(04) COMP. DTSIS66 00089 20 MAP-DUE-DATE-TO-DA-A PIC X(01). DTSIS66 00090 20 MAP-DUE-DATE-TO-DA PIC X(02). DTSIS66 00091 15 F660536. DTSIS66 00092 20 MAP-DUE-DATE-TO-YR-L PIC S9(04) COMP. DTSIS66 00093 20 MAP-DUE-DATE-TO-YR-A PIC X(01). DTSIS66 00094 20 MAP-DUE-DATE-TO-YR PIC X(02). DTSIS66 00095 10 MAP-TABLE. DTSIS66 00096 15 MAP-LINE OCCURS 12 TIMES. DTSIS66 00097 20 MAP-LINE-L PIC S9(04) COMP. DTSIS66 00098 20 MAP-LINE-A PIC X(01). DTSIS66 00099 18 MAP-LINE-DATA. DTSIS66 00100 20 MAP-LINE-NO PIC Z9. DTSIS66 00101 20 FILLER PIC X(03). DTSIS66 00102 20 MAP-ASSIGN-NO PIC 99B99999. DTSIS66 00103 20 FILLER PIC X(02). DTSIS66 00104 20 MAP-STATUS-CD PIC X(01). DTSIS66 00105 20 FILLER PIC X(02). DTSIS66 00106 20 MAP-FLD-REP-ID PIC X(02). DTSIS66 00107 20 FILLER PIC X(02). DTSIS66 00108 20 MAP-ASSIGN-TYPE PIC X(02). DTSIS66 00109 20 FILLER PIC X(02). DTSIS66 00110 20 MAP-ASSIGN-TYPE-DESC PIC X(10). DTSIS66 00111 20 FILLER PIC X(02). DTSIS66 00112 20 MAP-START-DATE PIC X(08). DTSIS66 00113 20 FILLER PIC X(02). DTSIS66 00114 20 MAP-DUE-DATE PIC X(08). DTSIS66 00115 20 FILLER PIC X(02). DTSIS66 00116 20 MAP-COMPLETED-DATE PIC X(08). DTSIS66 00117 20 FILLER PIC X(02). DTSIS66 00118 20 MAP-PROCESSED-DATE PIC X(08). DTSIS66 00119 10 F662121. DTSIS66 00120 15 MAP-LINE-NUMBER-L PIC S9(04) COMP. DTSIS66 00121 15 MAP-LINE-NUMBER-A PIC X(01). DTSIS66 00122 15 MAP-LINE-NUMBER PIC X(02). DTSIS66 00123 88 MAP-LINE-NUMBER-VALID VALUE '01' '02' '03' '04' DTSIS66 00124 '05' '06' '07' '08' DTSIS66 00125 '09' '10' '11' '12'. DTSIS66 00126 15 MAP-LINE-NUMBER-N REDEFINES DTSIS66 00127 MAP-LINE-NUMBER PIC 9(02). DTSIS66 00128 10 F662140. DTSIS66 00129 15 MAP-SCREEN-ID-L PIC S9(04) COMP. DTSIS66 00130 15 MAP-SCREEN-ID-A PIC X(01). DTSIS66 00131 15 MAP-SCREEN-ID PIC X(02). DTSIS66 00132 10 F662303. CL**2 00133 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS66 00134 15 MAP-KEY-BACK-A PIC X(01). DTSIS66 00135 15 MAP-KEY-BACK PIC X(07). DTSIS66 00136 10 F662312. CL**2 00137 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS66 00138 15 MAP-KEY-FWRD-A PIC X(01). DTSIS66 00139 15 MAP-KEY-FWRD PIC X(07). DTSIS66 00140 10 F662325. CL**2 00141 15 MAP-KEY-NEW-SEARCH-L PIC S9(04) COMP. CL**2 00142 15 MAP-KEY-NEW-SEARCH-A PIC X(01). CL**3 00143 15 MAP-KEY-NEW-SEARCH PIC X(20). CL**3 00144 10 MAP-MSG-AREA. DTSIS66 00145 15 MAP-MSG-ID-AREA. DTSIS66 00146 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS66 00147 20 MAP-MSG-ID-A PIC X(01). DTSIS66 00148 20 MAP-MSG-ID PIC X(08). DTSIS66 00149 15 MAP-MSG-TEXT-AREA. DTSIS66 00150 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS66 00151 20 MAP-MSG-TEXT-A PIC X(01). DTSIS66 00152 20 MAP-MSG-TEXT PIC X(58). DTSIS66 00153 10 MAP-GOTO-AREA. DTSIS66 00154 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS66 00155 15 MAP-GOTO-A PIC X(01). DTSIS66 00156 15 MAP-GOTO PIC X(02). DTSIS66