giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

111
Copybook/DTSIS12.cpy Normal file
View File

@ -0,0 +1,111 @@
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