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

46
Copybook/DTSIELOG.cpy Normal file
View File

@ -0,0 +1,46 @@
00001 ***** 05/22/01
00002 * DTSIELOG
00003 * DTSIELOG ELECTRONIC FILER LOG RECORD. LV001
00004 * THERE IS ONE LOG RECORD FOR EACH ITEM SUBMITTED DTSIELOG
00005 * ELECTRONICALLY. DTSIELOG
00006 * DTSIELOG
00007 ***** DTSIELOG
00008 SKIP1 DTSIELOG
00009 10 ELOG-KEY-AREA. DTSIELOG
00010 15 ELOG-REC-TYPE PIC S9(04) COMP. DTSIELOG
00011 88 ELOG-LOG-88 VALUE +03. DTSIELOG
00012 15 ELOG-LOG-NO PIC 9(10). DTSIELOG
00013 15 FILLER REDEFINES ELOG-LOG-NO. DTSIELOG
00014 20 ELOG-LOG-NO-PFX PIC 9(04). DTSIELOG
00015 20 ELOG-LOG-NO-SFX PIC 9(06). DTSIELOG
00016 15 ELOG-KEY-FILLER PIC X(12). DTSIELOG
00017 SKIP1 DTSIELOG
00018 10 ELOG-DATA-AREA. DTSIELOG
00019 15 ELOG-ELF-ID PIC S9(07) COMP-3. DTSIELOG
00020 15 ELOG-DATA-TYPE-CD PIC X(02). DTSIELOG
00021 88 ELOG-PRT-UC30-88 VALUE '01'. DTSIELOG
00022 88 ELOG-BEN-CHARGE-88 VALUE '02'. DTSIELOG
00023 88 ELOG-WAGE-88 VALUE '03'. DTSIELOG
00024 88 ELOG-IRS-1TR-FEIN-88 VALUE '04'. DTSIELOG
00025 88 ELOG-IRS-940-CERT-88 VALUE '05'. DTSIELOG
00026 88 ELOG-IRS-WKLY-XMATCH-88 VALUE '06'. DTSIELOG
00027 88 ELOG-RR-RETIRE-88 VALUE '07'. DTSIELOG
00028 88 ELOG-BANK-RECON-OUT-88 VALUE '08'. DTSIELOG
00029 88 ELOG-BANK-RECON-IN-88 VALUE '09'. DTSIELOG
00030 88 ELOG-1099-88 VALUE '10'. DTSIELOG
00031 15 ELOG-BOX-NO PIC X(08). DTSIELOG
00032 15 ELOG-STATUS-CD PIC X(01). DTSIELOG
00033 88 ELOG-STAT-RCVD-88 VALUE '0'. DTSIELOG
00034 88 ELOG-STAT-DATA-CNTR-88 VALUE '1'. DTSIELOG
00035 88 ELOG-STAT-COMPLETE-88 VALUE '2'. DTSIELOG
00036 88 ELOG-STAT-FAILED-88 VALUE '3'. DTSIELOG
00037 88 ELOG-STAT-WITHDRAWN-88 VALUE '4'. DTSIELOG
00038 15 ELOG-RCVD-DATE PIC S9(09) COMP-3. DTSIELOG
00039 15 ELOG-COMPLETE-DATE PIC S9(09) COMP-3. DTSIELOG
00040 88 ELOG-STATUS-ACTIVE-88 VALUE ZERO. DTSIELOG
00041 15 ELOG-ORIG-VOL PIC X(06). DTSIELOG
00042 15 ELOG-FILLER PIC X(29). DTSIELOG
00043 15 ELOG-ESTB-OPID PIC X(08). DTSIELOG
00044 15 ELOG-ESTB-DATE PIC S9(09) COMP-3. DTSIELOG
00045 15 ELOG-CHNG-OPID PIC X(08). DTSIELOG
00046 15 ELOG-CHNG-DATE PIC S9(09) COMP-3. DTSIELOG