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

109
Copybook/DTSIELEN.cpy Normal file
View File

@ -0,0 +1,109 @@
00001 ***** 05/22/01
00002 * DTSIELEN
00003 * DTSIELEN ELECRONIC MEDIA MASTER FILE RECORD LENGTHS. LV012
00004 * DTSIELEN
00005 * ELEN-*-REC-LEN IS THE LENGTH OF THE DTSIELEN
00006 * COMPLETE RECORD. DTSIELEN
00007 * DTSIELEN
00008 * DTSIELEN
00009 * 01/18/2001 INITIAL DEVELOPMENT. GD. DTSIELEN
00010 * DTSIELEN
00011 * DTSIELEN
00012 * TO ADD A NEW RECORD TYPE TO THE MASTER FILE: DTSIELEN
00013 * DTSIELEN
00014 * 1. MODIFY DTSIELEN. DTSIELEN
00015 * DTSIELEN
00016 * 2. MODIFY DTSIESKL. DTSIELEN
00017 * DTSIELEN
00018 * 3. CREATE DTSIE*** (WHERE *** IS THE IDENTIFIER OF DTSIELEN
00019 * THE NEW RECORD TYPE). DTSIELEN
00020 * DTSIELEN
00021 * 4. COMPILE DTSCU835, DTSBU935, DTSBD998 DTSIELEN
00022 * DTSIELEN
00023 * DTSIELEN
00024 ***** DTSIELEN
00025 DTSIELEN
00026 10 ELEN-LENGTHS-AREA. DTSIELEN
00027 DTSIELEN
00028 ***** DTSIELEN
00029 * REC-TYPE = 01 DTSIELEN
00030 ***** DTSIELEN
00031 15 ELEN-HDR-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIELEN
00032 15 ELEN-HDR-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN
00033 15 ELEN-HDR-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN
00034 15 ELEN-HDR-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
00035 15 ELEN-HDR-FILE-ID PIC S9(04) COMP VALUE +1. DTSIELEN
00036 15 ELEN-HDR-PREFIX PIC X(04) VALUE 'EHDR'.DTSIELEN
00037 DTSIELEN
00038 ***** DTSIELEN
00039 * REC-TYPE = 02 DTSIELEN
00040 ***** DTSIELEN
00041 15 ELEN-PRF-KEY-LEN PIC S9(04) COMP VALUE +8. DTSIELEN
00042 15 ELEN-PRF-REC-LEN PIC S9(04) COMP VALUE +769. DTSIELEN
00043 15 ELEN-PRF-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN
00044 15 ELEN-PRF-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
00045 15 ELEN-PRF-FILE-ID PIC S9(04) COMP VALUE +1. DTSIELEN
00046 15 ELEN-PRF-PREFIX PIC X(04) VALUE 'EPRF'.DTSIELEN
00047 DTSIELEN
00048 ***** DTSIELEN
00049 * REC-TYPE = 03 DTSIELEN
00050 ***** DTSIELEN
00051 15 ELEN-LOG-KEY-LEN PIC S9(04) COMP VALUE +12. DTSIELEN
00052 15 ELEN-LOG-REC-LEN PIC S9(04) COMP VALUE +110. DTSIELEN
00053 15 ELEN-LOG-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN
00054 15 ELEN-LOG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
00055 15 ELEN-LOG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN
00056 15 ELEN-LOG-PREFIX PIC X(04) VALUE 'ELOG'.DTSIELEN
00057 DTSIELEN
00058 ***** DTSIELEN
00059 * REC-TYPE = 04 DTSIELEN
00060 ***** DTSIELEN
00061 15 ELEN-MSG-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN
00062 15 ELEN-MSG-REC-LEN PIC S9(04) COMP VALUE +132. DTSIELEN
00063 15 ELEN-MSG-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN
00064 15 ELEN-MSG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
00065 15 ELEN-MSG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN
00066 15 ELEN-MSG-PREFIX PIC X(04) VALUE 'EMSG'.DTSIELEN
00067 DTSIELEN
00068 ***** DTSIELEN
00069 * REC-TYPE = 05 DTSIELEN
00070 ***** DTSIELEN
00071 15 ELEN-EMH-KEY-LEN PIC S9(04) COMP VALUE +23. DTSIELEN
00072 15 ELEN-EMH-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN
00073 15 ELEN-EMH-AIX-IND PIC X(01) VALUE 'Y'. DTSIELEN
00074 15 ELEN-EMH-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
00075 15 ELEN-EMH-FILE-ID PIC S9(04) COMP VALUE +3. DTSIELEN
00076 15 ELEN-EMH-PREFIX PIC X(04) VALUE 'EEMH'.DTSIELEN
00077 DTSIELEN
00078 ***** DTSIELEN
00079 * REC-TYPE = 06 DTSIELEN
00080 ***** DTSIELEN
00081 15 ELEN-TRG-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN
00082 15 ELEN-TRG-REC-LEN PIC S9(04) COMP VALUE +64. DTSIELEN
00083 15 ELEN-TRG-AIX-IND PIC X(01) VALUE 'N'. DTSIELEN
00084 15 ELEN-TRG-DEL-IND PIC X(01) VALUE 'Y'. DTSIELEN
00085 15 ELEN-TRG-FILE-ID PIC S9(04) COMP VALUE +2. DTSIELEN
00086 15 ELEN-TRG-PREFIX PIC X(04) VALUE 'ETRG'.DTSIELEN
00087 DTSIELEN
00088 DTSIELEN
00089 DTSIELEN
00090 10 FILLER REDEFINES ELEN-LENGTHS-AREA. DTSIELEN
00091 15 ELEN-LENGTH OCCURS 6 TIMES DTSIELEN
00092 INDEXED BY ELEN-IDX. DTSIELEN
00093 20 ELEN-KEY-LEN PIC S9(04) COMP. DTSIELEN
00094 20 ELEN-REC-LEN PIC S9(04) COMP. DTSIELEN
00095 20 ELEN-AIX-IND PIC X(01). DTSIELEN
00096 88 ELEN-AIX-YES-88 VALUE 'Y'. DTSIELEN
00097 88 ELEN-AIX-NO-88 VALUE 'N'. DTSIELEN
00098 20 ELEN-DEL-IND PIC X(01). DTSIELEN
00099 88 ELEN-DEL-EPRF-OK-88 VALUE 'Y'. DTSIELEN
00100 88 ELEN-DEL-EPRF-NOT-OK-88 VALUE 'N'. DTSIELEN
00101 20 ELEN-FILE-ID PIC S9(04) COMP. DTSIELEN
00102 20 ELEN-REC-PREFIX PIC X(04). DTSIELEN
00103 DTSIELEN
00104 DTSIELEN
00105 10 ELEN-MAX-REC-ID PIC S9(04) COMP VALUE +6. DTSIELEN
00106 DTSIELEN
00107 10 ELEN-MAX-KEY-LEN PIC S9(04) COMP VALUE +24. DTSIELEN
00108 DTSIELEN
00109 10 ELEN-MAX-REC-LEN PIC S9(04) COMP VALUE +1024. DTSIELEN