00001 ***** 10/29/98 00002 * DTSIS12 00003 * DTSIS12 REGISTRATION SEARCHES LV006 00004 * SEND/RECEIVE AREA. DTSIS12 00005 * DTSIS12 00006 ***** DTSIS12 00007 10 FILLER PIC X(12). DTSIS12 00008 10 MAP-SCR-TYPE-AREA. DTSIS12 00009 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS12 00010 15 MAP-SCR-TYPE-A PIC X(01). DTSIS12 00011 15 MAP-SCR-TYPE PIC X(02). DTSIS12 00012 10 MAP-CICS-REGION-NAME-AREA. DTSIS12 00013 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS12 00014 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS12 00015 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS12 00016 10 MAP-SYS-DATE-AREA. DTSIS12 00017 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS12 00018 15 MAP-SYS-DATE-A PIC X(01). DTSIS12 00019 15 MAP-SYS-DATE PIC X(08). DTSIS12 00020 10 MAP-SYS-TIME-AREA. DTSIS12 00021 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS12 00022 15 MAP-SYS-TIME-A PIC X(01). DTSIS12 00023 15 MAP-SYS-TIME PIC X(08). DTSIS12 00024 10 F120321. DTSIS12 00025 15 MAP-EMP-NAME-L PIC S9(04) COMP. CL**2 00026 15 MAP-EMP-NAME-A PIC X(01). CL**2 00027 15 MAP-EMP-NAME PIC X(40). CL**2 00028 10 F120421. DTSIS12 00029 15 MAP-OPO-NAME-L PIC S9(04) COMP. DTSIS12 00030 15 MAP-OPO-NAME-A PIC X(01). DTSIS12 00031 15 MAP-OPO-NAME PIC X(32). DTSIS12 00032 10 MAP-SSN-AREA. DTSIS12 00033 15 F120521. DTSIS12 00034 20 MAP-SSN-1-L PIC S9(04) COMP. DTSIS12 00035 20 MAP-SSN-1-A PIC X(01). DTSIS12 00036 20 MAP-SSN-1 PIC X(03). DTSIS12 00037 15 F120525. DTSIS12 00038 20 MAP-SSN-2-L PIC S9(04) COMP. DTSIS12 00039 20 MAP-SSN-2-A PIC X(01). DTSIS12 00040 20 MAP-SSN-2 PIC X(02). DTSIS12 00041 15 F120528. DTSIS12 00042 20 MAP-SSN-3-L PIC S9(04) COMP. DTSIS12 00043 20 MAP-SSN-3-A PIC X(01). DTSIS12 00044 20 MAP-SSN-3 PIC X(04). DTSIS12 00045 10 MAP-FEIN-AREA. DTSIS12 00046 15 F120621. DTSIS12 00047 20 MAP-FEIN-1-L PIC S9(04) COMP. DTSIS12 00048 20 MAP-FEIN-1-A PIC X(01). DTSIS12 00049 20 MAP-FEIN-1 PIC X(02). DTSIS12 00050 15 F120624. DTSIS12 00051 20 MAP-FEIN-2-L PIC S9(04) COMP. DTSIS12 00052 20 MAP-FEIN-2-A PIC X(01). DTSIS12 00053 20 MAP-FEIN-2 PIC X(07). DTSIS12 00054 10 MAP-BTN-AREA. CL**2 00055 15 F120721. CL**2 00056 20 MAP-BTN-L PIC S9(04) COMP. CL**2 00057 20 MAP-BTN-A PIC X(01). CL**2 00058 20 MAP-BTN PIC X(09). CL**2 00059 10 MAP-TABLE. DTSIS12 00060 15 MAP-LINE OCCURS 12 TIMES. DTSIS12 00061 20 MAP-LINE-L PIC S9(04) COMP. DTSIS12 00062 20 MAP-LINE-A PIC X(01). DTSIS12 00063 18 MAP-LINE-DATA. DTSIS12 00064 20 MAP-LINE-NO PIC X(02). CL**4 00065 20 FILLER PIC X(02). DTSIS12 00066 20 MAP-NAME PIC X(42). DTSIS12 00067 20 FILLER PIC X(02). DTSIS12 00068 20 MAP-CITY PIC X(12). DTSIS12 00069 20 FILLER PIC X(02). DTSIS12 00070 20 MAP-ST PIC X(02). DTSIS12 00071 20 FILLER PIC X(02). DTSIS12 00072 20 MAP-EMP-NO-1 PIC X(03). DTSIS12 00073 20 FILLER PIC X(01). DTSIS12 00074 20 MAP-EMP-NO-2 PIC X(03). DTSIS12 00075 20 FILLER PIC X(02). DTSIS12 00076 20 MAP-EMP-STATUS PIC X(01). DTSIS12 00077 20 FILLER PIC X(02). DTSIS12 00078 20 MAP-TYPE PIC X(01). DTSIS12 00079 10 MAP-LINE-NUMBER-AREA. CL**5 00080 15 MAP-LINE-NUMBER-L PIC S9(04) COMP. DTSIS12 00081 15 MAP-LINE-NUMBER-A PIC X(01). DTSIS12 00082 15 MAP-LINE-NUMBER PIC X(02). DTSIS12 00083 10 F122240. CL**2 00084 15 MAP-SCREEN-ID-L PIC S9(04) COMP. DTSIS12 00085 15 MAP-SCREEN-ID-A PIC X(01). DTSIS12 00086 15 MAP-SCREEN-ID PIC X(02). DTSIS12 00087 10 F122303. CL**2 00088 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS12 00089 15 MAP-KEY-BACK-A PIC X(01). DTSIS12 00090 15 MAP-KEY-BACK PIC X(07). DTSIS12 00091 10 F122312. CL**2 00092 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS12 00093 15 MAP-KEY-FWRD-A PIC X(01). DTSIS12 00094 15 MAP-KEY-FWRD PIC X(07). DTSIS12 00095 10 F122347. CL**2 00096 15 MAP-KEY-NEW-SEARCH-L PIC S9(04) COMP. CL**3 00097 15 MAP-KEY-NEW-SEARCH-A PIC X(01). CL**3 00098 15 MAP-KEY-NEW-SEARCH PIC X(20). CL**3 00099 10 MAP-MSG-AREA. DTSIS12 00100 15 MAP-MSG-ID-AREA. DTSIS12 00101 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS12 00102 20 MAP-MSG-ID-A PIC X(01). DTSIS12 00103 20 MAP-MSG-ID PIC X(08). DTSIS12 00104 15 MAP-MSG-TEXT-AREA. DTSIS12 00105 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS12 00106 20 MAP-MSG-TEXT-A PIC X(01). DTSIS12 00107 20 MAP-MSG-TEXT PIC X(58). DTSIS12 00108 10 MAP-GOTO-AREA. DTSIS12 00109 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS12 00110 15 MAP-GOTO-A PIC X(01). DTSIS12 00111 15 MAP-GOTO PIC X(02). DTSIS12