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

67
Copybook/DTSIS00.cpy Normal file
View File

@ -0,0 +1,67 @@
00001 ***** 09/13/12
00002 * DTSIS00
00003 * DTSIS00 MAIN MENU SEND/RECEIVE AREA. LV006
00004 * DTSIS00
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH DTSIS00
00006 * DTSIS00
00007 ***** DTSIS00
00008 DTSIS00
00009 10 FILLER PIC X(12). DTSIS00
00010 DTSIS00
00011 10 MAP-SCR-TYPE-AREA. DTSIS00
00012 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS00
00013 15 MAP-SCR-TYPE-A PIC X(01). DTSIS00
00014 15 MAP-SCR-TYPE PIC X(02). DTSIS00
00015 DTSIS00
00016 10 MAP-CURR-RUN-DATE1-AREA. DTSIS00
00017 15 MAP-CURR-RUN-DATE1-L PIC S9(04) COMP. DTSIS00
00018 15 MAP-CURR-RUN-DATE1-A PIC X(01). DTSIS00
00019 15 MAP-CURR-RUN-DATE1 PIC X(09). DTSIS00
00020 DTSIS00
00021 10 MAP-CICS-REGION-NAME-AREA. DTSIS00
00022 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS00
00023 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS00
00024 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS00
00025 DTSIS00
00026 10 MAP-SYS-DATE-AREA. DTSIS00
00027 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS00
00028 15 MAP-SYS-DATE-A PIC X(01). DTSIS00
00029 15 MAP-SYS-DATE PIC X(08). DTSIS00
00030 DTSIS00
00031 10 MAP-SYS-TIME-AREA. DTSIS00
00032 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS00
00033 15 MAP-SYS-TIME-A PIC X(01). DTSIS00
00034 15 MAP-SYS-TIME PIC X(08). DTSIS00
00035 DTSIS00
00036 10 MAP-OP-ID-AREA. DTSIS00
00037 15 MAP-OP-ID-L PIC S9(04) COMP. DTSIS00
00038 15 MAP-OP-ID-A PIC X(01). DTSIS00
00039 15 MAP-OP-ID PIC X(08). DTSIS00
00040 DTSIS00
00041 10 MAP-OPT-AREA. DTSIS00
00042 15 MAP-OPT-L PIC S9(04) COMP. DTSIS00
00043 15 MAP-OPT-A PIC X(01). DTSIS00
00044 15 MAP-OPT PIC X(02). DTSIS00
00045 DTSIS00
00046 10 MAP-OP-ALARM-IND-AREA. DTSIS00
00047 15 MAP-OP-ALARM-IND-L PIC S9(04) COMP. DTSIS00
00048 15 MAP-OP-ALARM-IND-A PIC X(01). DTSIS00
00049 15 MAP-OP-ALARM-IND PIC X(01). DTSIS00
00050 88 MAP-OP-ALARM-VALID-88 VALUE 'Y' 'N' 'M' 'P' DTSIS00
00051 'E'. DTSIS00
00052 DTSIS00
00053 10 MAP-OP-NAME-AREA. DTSIS00
00054 15 MAP-OP-NAME-L PIC S9(04) COMP. DTSIS00
00055 15 MAP-OP-NAME-A PIC X(01). DTSIS00
00056 15 MAP-OP-NAME PIC X(12). DTSIS00
00057 DTSIS00
00058 10 MAP-MSG-AREA. DTSIS00
00059 15 MAP-MSG-ID-AREA. DTSIS00
00060 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS00
00061 20 MAP-MSG-ID-A PIC X(01). DTSIS00
00062 20 MAP-MSG-ID PIC X(08). DTSIS00
00063 DTSIS00
00064 15 MAP-MSG-TEXT-AREA. DTSIS00
00065 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS00
00066 20 MAP-MSG-TEXT-A PIC X(01). DTSIS00
00067 20 MAP-MSG-TEXT PIC X(58). DTSIS00