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

29
Copybook/DTSIESKL.cpy Normal file
View File

@ -0,0 +1,29 @@
00001 ***** 12/01/05
00002 * DTSIESKL
00003 * DTSIESKL ELECTRONIC MEDIA SKELETAL RECORDDEFINITION LV015
00004 * DTSIESKL
00005 ***** DTSIESKL
00006 SKIP1 DTSIESKL
00007 10 ESKL-KEY-AREA. DTSIESKL
00008 15 ESKL-REC-TYPE PIC S9(04) COMP. DTSIESKL
00009 88 ESKL-HDR-88 VALUE +01. DTSIESKL
00010 88 ESKL-PRF-88 VALUE +02. DTSIESKL
00011 88 ESKL-LOG-88 VALUE +03. DTSIESKL
00012 88 ESKL-MSG-88 VALUE +04. DTSIESKL
00013 88 ESKL-EMH-88 VALUE +05. DTSIESKL
00014 88 ESKL-TRG-88 VALUE +06. DTSIESKL
00015 15 ESKL-KEY-FILLER PIC X(22). DTSIESKL
00016 10 ESKL-ELOG-KEY-AREA REDEFINES ESKL-KEY-AREA. DTSIESKL
00017 15 FILLER PIC S9(04) COMP. DTSIESKL
00018 15 ESKL-ELOG-LOG-NO PIC 9(10). CL*15
00019 15 FILLER PIC X(12). DTSIESKL
00020 10 ESKL-EEMH-KEY-AREA REDEFINES ESKL-KEY-AREA. DTSIESKL
00021 15 FILLER PIC S9(04) COMP. DTSIESKL
00022 15 ESKL-EMP-NO PIC S9(07) COMP-3. DTSIESKL
00023 15 ESKL-REPORTING-DATE PIC S9(09) COMP-3. DTSIESKL
00024 15 ESKL-DATA-TYPE-CD PIC X(02). DTSIESKL
00025 15 ESKL-EEMH-LOG-NO PIC X(10). CL*15
00026 15 FILLER PIC X(01). DTSIESKL
00027 SKIP1 DTSIESKL
00028 10 ESKL-DATA-AREA. DTSIESKL
00029 15 ESKL-DATA-FILLER PIC X(1000). DTSIESKL