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

22
Copybook/EWGSEG01.cpy Normal file
View File

@ -0,0 +1,22 @@
00001 ******************************************************************03/22/04
00002 * SEGMENT ONE - WAGE DATA *EWGSEG01
00003 ****************************************************************** LV008
00004 05 WGP-SEGMENT-ONE PIC X(74). CL**7
00005 05 FILLER EWGSEG01
00006 REDEFINES EWGSEG01
00007 WGP-SEGMENT-ONE. CL**5
00008 10 WGP-KEY PIC X(12). CL**8
00009 10 FILLER EWGSEG01
00010 REDEFINES EWGSEG01
00011 WGP-KEY. EWGSEG01
00012 15 WGP-SSN PIC 9(9). EWGSEG01
00013 15 WGP-NAME-CHK PIC X(3). CL**7
00014 10 WGP-SEGMENT-CTRS. EWGSEG01
00015 15 WGP-SG1-CTR PIC S9(4) COMP. EWGSEG01
00016 15 WGP-SG1-START PIC S9(8) COMP. EWGSEG01
00017 15 WGP-SG2-CTR PIC S9(4) COMP. EWGSEG01
00018 15 WGP-SG2-START PIC S9(8) COMP. EWGSEG01
00019 10 FILLER REDEFINES WGP-SEGMENT-CTRS OCCURS 2 TIMES. EWGSEG01
00020 15 WGP-SEG-CTR PIC S9(4) COMP. EWGSEG01
00021 15 WGP-SEG-STR PIC S9(8) COMP. EWGSEG01
00022 10 FILLER PIC X(50). CL**3