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

24
Copybook/DTSIL018.cpy Normal file
View File

@ -0,0 +1,24 @@
00001 ***** 08/24/98
00002 * DTSIL018
00003 * DTSIL018 EMP NO FROM SCREEN FORMAT/EDIT MODULE LINKAGE. LV003
00004 * DTSIL018
00005 ***** DTSIL018
00006 SKIP1 DTSIL018
00007 10 L018-RESULT-IND PIC X(01). DTSIL018
00008 88 L018-NO-ENTRY VALUE '0'. DTSIL018
00009 88 L018-VALID VALUE '1'. DTSIL018
00010 88 L018-NOT-VALID VALUE '2'. DTSIL018
00011 SKIP1 DTSIL018
00012 10 L018-S-EMP-NO-AREA. DTSIL018
00013 15 L018-S-EMP-NO1-AREA. DTSIL018
00014 20 L018-S-EMP-NO1-L PIC S9(04) COMP. DTSIL018
00015 20 L018-S-EMP-NO1-A PIC X(01). DTSIL018
00016 20 L018-S-EMP-NO1 PIC X(03). DTSIL018
00017 15 L018-S-EMP-NO2-AREA. DTSIL018
00018 20 L018-S-EMP-NO2-L PIC S9(04) COMP. DTSIL018
00019 20 L018-S-EMP-NO2-A PIC X(01). DTSIL018
00020 20 L018-S-EMP-NO2 PIC X(03). DTSIL018
00021 SKIP1 DTSIL018
00022 10 L018-EMP-NO PIC S9(07) COMP-3. DTSIL018
00023 SKIP1 DTSIL018
00024 10 FILLER PIC X(13). DTSIL018