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

32
Copybook/DTSIX167.cpy Normal file
View File

@ -0,0 +1,32 @@
00001 ***** 08/28/13
00002 * DTSIX167
00003 * DTSIX167 DPC DATA EXTRACT FOR DATABASE LV009
00004 * DTSIX167
00005 * DTSIX167
00006 * DTSIX167
00007 *********************************** CL**4
00008 ** DPC DATA ** CL**8
00009 *********************************** CL**4
00010 15 X167-REC-TYPE PIC X(03) VALUE '167'. CL**8
00011 15 FILLER PIC X(01) VALUE ','. DTSIX167
00012 15 X167-EMP-NO PIC 9(06). CL**8
00013 15 FILLER PIC X(01) VALUE ','. DTSIX167
00014 15 X167-ESTB-DATE PIC X(10). CL**8
00015 15 FILLER PIC X(01) VALUE ','. DTSIX167
00016 15 X167-STATUS PIC X(01). CL**8
00017 15 FILLER PIC X(01) VALUE ','. DTSIX167
00018 15 X167-ESTB-OPID PIC X(08). CL**8
00019 15 FILLER PIC X(01) VALUE ','. DTSIX167
00020 15 X167-STATUS-OPID PIC X(08). CL**8
00021 15 FILLER PIC X(01) VALUE ','. CL**3
00022 15 X167-STATUS-DATE PIC X(10). CL**8
00023 15 FILLER PIC X(01) VALUE ','. CL**3
00024 15 X167-STMT-DATE PIC X(10). CL**8
00025 15 FILLER PIC X(01) VALUE ','. CL**4
00026 15 X167-BALANCE PIC ----------9.99. CL**9
00027 15 FILLER PIC X(01) VALUE ','. CL**4
00028 15 X167-FREQUENCY PIC X(01). CL**8
00029 15 FILLER PIC X(01) VALUE ','. CL**4
00030 15 X167-START-DATE PIC X(10). CL**8
00031 15 FILLER PIC X(01) VALUE ','. CL**8
00032 15 X167-PAYMENT-AMT PIC --------9.99. CL**9