00001 ***** 12/22/98 00002 * DTSIS91 00003 * DTSIS91 PURGE INDICATOR INQUIRY/UPDATE LV002 00004 * SEND/RECEIVE AREA. DTSIS91 00005 * DTSIS91 00006 ***** DTSIS91 00007 SKIP1 DTSIS91 00008 10 FILLER PIC X(12). DTSIS91 00009 SKIP1 DTSIS91 00010 10 MAP-SCR-TYPE-AREA. DTSIS91 00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS91 00012 15 MAP-SCR-TYPE-A PIC X(01). DTSIS91 00013 15 MAP-SCR-TYPE PIC X(02). DTSIS91 00014 SKIP1 DTSIS91 00015 10 MAP-CICS-REGION-NAME-AREA. DTSIS91 00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS91 00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS91 00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS91 00019 SKIP1 DTSIS91 00020 10 MAP-SYS-DATE-AREA. DTSIS91 00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS91 00022 15 MAP-SYS-DATE-A PIC X(01). DTSIS91 00023 15 MAP-SYS-DATE PIC X(08). DTSIS91 00024 SKIP1 DTSIS91 00025 10 MAP-SYS-TIME-AREA. DTSIS91 00026 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS91 00027 15 MAP-SYS-TIME-A PIC X(01). DTSIS91 00028 15 MAP-SYS-TIME PIC X(08). DTSIS91 00029 SKIP1 DTSIS91 00030 10 MAP-EMP-NO-AREA. DTSIS91 00031 15 MAP-EMP-NO-1-AREA. DTSIS91 00032 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS91 00033 20 MAP-EMP-NO-1-A PIC X(01). DTSIS91 00034 20 MAP-EMP-NO-1 PIC X(03). DTSIS91 00035 20 MAP-EMP-NO-1-N REDEFINES MAP-EMP-NO-1 DTSIS91 00036 PIC 9(03). DTSIS91 00037 15 MAP-EMP-NO-2-AREA. DTSIS91 00038 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS91 00039 20 MAP-EMP-NO-2-A PIC X(01). DTSIS91 00040 20 MAP-EMP-NO-2 PIC X(03). DTSIS91 00041 20 MAP-EMP-NO-2-N REDEFINES MAP-EMP-NO-2 DTSIS91 00042 PIC 9(03). DTSIS91 00043 SKIP1 DTSIS91 00044 10 MAP-PRIMARY-NAME-AREA. CL**2 00045 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2 00046 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2 00047 15 MAP-PRIMARY-NAME PIC X(40). CL**2 00048 SKIP1 DTSIS91 00049 10 MAP-PURGE-IND-AREA. DTSIS91 00050 15 MAP-PURGE-IND-L PIC S9(04) COMP. DTSIS91 00051 15 MAP-PURGE-IND-A PIC X(01). DTSIS91 00052 15 MAP-PURGE-IND PIC X(01). DTSIS91 00053 88 MAP-PURGE-ALL-YES-88 VALUE 'Y'. DTSIS91 00054 88 MAP-PURGE-ALL-NO-88 VALUE 'N'. DTSIS91 00055 SKIP1 DTSIS91 00056 10 MAP-DISREGARD-EDITS-AREA. DTSIS91 00057 15 MAP-DISREGARD-EDITS-L PIC S9(04) COMP. DTSIS91 00058 15 MAP-DISREGARD-EDITS-A PIC X(01). DTSIS91 00059 15 MAP-DISREGARD-EDITS PIC X(01). DTSIS91 00060 88 MAP-DISREGARD-EDITS-YES-88 VALUE 'Y'. DTSIS91 00061 88 MAP-DISREGARD-EDITS-NO-88 VALUE 'N'. DTSIS91 00062 SKIP1 DTSIS91 00063 10 MAP-KEY-MOD-AREA. DTSIS91 00064 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS91 00065 15 MAP-KEY-MOD-A PIC X(01). DTSIS91 00066 15 MAP-KEY-MOD PIC X(07). DTSIS91 00067 SKIP1 DTSIS91 00068 10 MAP-MSG-AREA. DTSIS91 00069 15 MAP-MSG-ID-AREA. DTSIS91 00070 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS91 00071 20 MAP-MSG-ID-A PIC X(01). DTSIS91 00072 20 MAP-MSG-ID PIC X(08). DTSIS91 00073 15 MAP-MSG-TEXT-AREA. DTSIS91 00074 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS91 00075 20 MAP-MSG-TEXT-A PIC X(01). DTSIS91 00076 20 MAP-MSG-TEXT PIC X(58). DTSIS91 00077 SKIP1 DTSIS91 00078 10 MAP-GOTO-AREA. DTSIS91 00079 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS91 00080 15 MAP-GOTO-A PIC X(01). DTSIS91 00081 15 MAP-GOTO PIC X(02). DTSIS91