112 lines
8.7 KiB
COBOL
112 lines
8.7 KiB
COBOL
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
|