00001 ***** 09/29/98 00002 * S75 TICKLER SEARCH SEND/RECEIVE AREA DTSIS75 00003 ***** LV004 00004 10 FILLER PIC X(12). DTSIS75 00005 10 MAP-SCR-TYPE-AREA. DTSIS75 00006 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS75 00007 15 MAP-SCR-TYPE-A PIC X(01). DTSIS75 00008 15 MAP-SCR-TYPE PIC X(02). DTSIS75 00009 10 MAP-CICS-REGION-NAME-AREA. DTSIS75 00010 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS75 00011 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS75 00012 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS75 00013 10 MAP-SYS-DATE-AREA. DTSIS75 00014 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS75 00015 15 MAP-SYS-DATE-A PIC X(01). DTSIS75 00016 15 MAP-SYS-DATE PIC X(08). DTSIS75 00017 10 FLD0221. DTSIS75 00018 15 MAP-DEST-OP-ID-L PIC S9(04) COMP. DTSIS75 00019 15 MAP-DEST-OP-ID-A PIC X(01). DTSIS75 00020 15 MAP-DEST-OP-ID PIC X(08). CL**2 00021 10 MAP-SYS-TIME-AREA. DTSIS75 00022 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS75 00023 15 MAP-SYS-TIME-A PIC X(01). DTSIS75 00024 15 MAP-SYS-TIME PIC X(08). DTSIS75 00025 10 FLD0416. DTSIS75 00026 15 MAP-ACKNOWLEDGED-IND-L PIC S9(04) COMP. DTSIS75 00027 15 MAP-ACKNOWLEDGED-IND-A PIC X(01). DTSIS75 00028 15 MAP-ACKNOWLEDGED-IND PIC X(01). DTSIS75 00029 88 MAP-ACKNOWLEDGED-VALID VALUE 'Y' 'N'. DTSIS75 00030 10 MAP-TRIGGER-DATE-FROM-AREA. DTSIS75 00031 15 FLD0516. DTSIS75 00032 20 MAP-TRIGGER-DATE-FROM-MO-L PIC S9(04) COMP. DTSIS75 00033 20 MAP-TRIGGER-DATE-FROM-MO-A PIC X(01). DTSIS75 00034 20 MAP-TRIGGER-DATE-FROM-MO PIC X(02). DTSIS75 00035 15 FLD0519. DTSIS75 00036 20 MAP-TRIGGER-DATE-FROM-DA-L PIC S9(04) COMP. DTSIS75 00037 20 MAP-TRIGGER-DATE-FROM-DA-A PIC X(01). DTSIS75 00038 20 MAP-TRIGGER-DATE-FROM-DA PIC X(02). DTSIS75 00039 15 FLD0522. DTSIS75 00040 20 MAP-TRIGGER-DATE-FROM-YR-L PIC S9(04) COMP. DTSIS75 00041 20 MAP-TRIGGER-DATE-FROM-YR-A PIC X(01). DTSIS75 00042 20 MAP-TRIGGER-DATE-FROM-YR PIC X(02). DTSIS75 00043 10 MAP-TRIGGER-DATE-TO-AREA. DTSIS75 00044 15 FLD0527. DTSIS75 00045 20 MAP-TRIGGER-DATE-TO-MO-L PIC S9(04) COMP. DTSIS75 00046 20 MAP-TRIGGER-DATE-TO-MO-A PIC X(01). DTSIS75 00047 20 MAP-TRIGGER-DATE-TO-MO PIC X(02). DTSIS75 00048 15 FLD0530. DTSIS75 00049 20 MAP-TRIGGER-DATE-TO-DA-L PIC S9(04) COMP. DTSIS75 00050 20 MAP-TRIGGER-DATE-TO-DA-A PIC X(01). DTSIS75 00051 20 MAP-TRIGGER-DATE-TO-DA PIC X(02). DTSIS75 00052 15 FLD0533. DTSIS75 00053 20 MAP-TRIGGER-DATE-TO-YR-L PIC S9(04) COMP. DTSIS75 00054 20 MAP-TRIGGER-DATE-TO-YR-A PIC X(01). DTSIS75 00055 20 MAP-TRIGGER-DATE-TO-YR PIC X(02). DTSIS75 00056 10 MAP-TABLE. DTSIS75 00057 15 MAP-LINE OCCURS 12 TIMES. DTSIS75 00058 20 MAP-LINE-L PIC S9(04) COMP. DTSIS75 00059 20 MAP-LINE-A PIC X(01). DTSIS75 00060 18 MAP-LINE-DATA. DTSIS75 00061 20 MAP-LINE-NO PIC Z9. DTSIS75 00062 20 FILLER PIC X(03). DTSIS75 00063 20 MAP-PRIMARY-NAME PIC X(25). CL**2 00064 20 FILLER PIC X(03). DTSIS75 00065 20 MAP-EMP-NO PIC 999B999. DTSIS75 00066 20 FILLER PIC X(03). DTSIS75 00067 20 MAP-SOURCE PIC X(08). CL**2 00068 20 FILLER PIC X(03). DTSIS75 00069 20 MAP-TRIGGER-DATE PIC X(08). DTSIS75 00070 20 FILLER PIC X(02). CL**4 00071 20 MAP-ACKNOWLEDGE-DATE PIC X(08). DTSIS75 00072 20 FILLER PIC X(02). CL**4 00073 20 MAP-TYPE PIC X(03). DTSIS75 00074 20 FILLER PIC X(02). DTSIS75 00075 10 FLD2121. DTSIS75 00076 15 MAP-LINE-NUMBER-L PIC S9(04) COMP. DTSIS75 00077 15 MAP-LINE-NUMBER-A PIC X(01). DTSIS75 00078 15 MAP-LINE-NUMBER PIC X(02). DTSIS75 00079 88 MAP-LINE-NUMBER-VALID VALUE '01' THRU '12'. DTSIS75 00080 15 MAP-LINE-NUMBER-N REDEFINES DTSIS75 00081 MAP-LINE-NUMBER PIC 9(02). DTSIS75 00082 10 FLD2140. DTSIS75 00083 15 MAP-SCREEN-ID-L PIC S9(04) COMP. DTSIS75 00084 15 MAP-SCREEN-ID-A PIC X(01). DTSIS75 00085 15 MAP-SCREEN-ID PIC X(02). DTSIS75 00086 10 F742309. CL**3 00087 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS75 00088 15 MAP-KEY-BACK-A PIC X(01). DTSIS75 00089 15 MAP-KEY-BACK PIC X(07). DTSIS75 00090 10 F742318. CL**3 00091 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS75 00092 15 MAP-KEY-FWRD-A PIC X(01). DTSIS75 00093 15 MAP-KEY-FWRD PIC X(07). DTSIS75 00094 10 F742327. CL**3 00095 15 MAP-KEY-TICK-INQ-L PIC S9(04) COMP. DTSIS75 00096 15 MAP-KEY-TICK-INQ-A PIC X(01). DTSIS75 00097 15 MAP-KEY-TICK-INQ PIC X(20). CL**3 00098 10 MAP-MSG-AREA. DTSIS75 00099 15 MAP-MSG-ID-AREA. DTSIS75 00100 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS75 00101 20 MAP-MSG-ID-A PIC X(01). DTSIS75 00102 20 MAP-MSG-ID PIC X(08). DTSIS75 00103 15 MAP-MSG-TEXT-AREA. DTSIS75 00104 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS75 00105 20 MAP-MSG-TEXT-A PIC X(01). DTSIS75 00106 20 MAP-MSG-TEXT PIC X(58). DTSIS75 00107 10 MAP-GOTO-AREA. DTSIS75 00108 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS75 00109 15 MAP-GOTO-A PIC X(01). DTSIS75 00110 15 MAP-GOTO PIC X(02). DTSIS75