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

52
Copybook/DTSIR109.cpy Normal file
View File

@ -0,0 +1,52 @@
00001 ***** 01/29/02
00002 * DTSIR109
00003 * DTSIR109 EMPLOYER REGISTRATION NOTICE OF MISSING LV007
00004 * WAGE REPORTS REPORT RECORD. DTSIR109
00005 * DTSIR109
00006 * NOTE: R109-YRQ SHOULD BE IN ASCENDING YRQ SEQUENCE. DTSIR109
00007 * THE PRINT MODULE WILL NEED TO FORMAT THEM DTSIR109
00008 * SO THE YEARS ARE DISPLAYED IN DESCENDING ORDER. DTSIR109
00009 * DTSIR109
00010 * IF R109-WAIVE-START-YRQ = ZEROES DTSIR109
00011 * PRINT NO QUARTER WAIVEMENT MESSAGE DTSIR109
00012 * ELSE DTSIR109
00013 * IF R109-WAIVE-START-YRQ = R109-WAIVE-END-YRQ DTSIR109
00014 * PRINT SINGLE QUARTER WAIVEMENT MESSAGE DTSIR109
00015 * ELSE DTSIR109
00016 * PRINT MULTIPLE QUARTER WAIVEMENT MESSAGE. DTSIR109
00017 * DTSIR109
00018 * MODIFIED 11/09/1998 D.SHEPPERSON DTSIR109
00019 * CHANGE ALL REFERENCE TO "ABATE" TO "WAIVE". DTSIR109
00020 * DTSIR109
00021 * 11/01/2001 MODIFIED FOR HOUSEHOLD. GD. DTSIR109
00022 * DTSIR109
00023 ***** DTSIR109
00024 DTSIR109
00025 10 R109-LENGTH PIC S9(04) COMP. DTSIR109
00026 DTSIR109
00027 10 R109-SORT-AREA. DTSIR109
00028 15 R109-REC-TYPE PIC X(03) VALUE '109'. DTSIR109
00029 15 R109-OP-ID PIC X(08). DTSIR109
00030 15 R109-EMP-NO PIC S9(07) COMP-3. DTSIR109
00031 15 R109-FLD-REP-ID PIC X(02). DTSIR109
00032 DTSIR109
00033 10 R109-DATA-AREA. DTSIR109
00034 15 R109-RPT-TYPE PIC X(01). DTSIR109
00035 88 R109-RPT-QUARTERLY-88 VALUE 'Q'. DTSIR109
00036 88 R109-RPT-ANNUAL-88 VALUE 'A'. DTSIR109
00037 15 R109-LIAB-DATE PIC S9(09) COMP-3. DTSIR109
00038 15 R109-MAIL-DATE PIC S9(09) COMP-3. DTSIR109
00039 15 R109-FMT-ADDR. DTSIR109
00040 20 R109-FMT-LINE OCCURS 5 TIMES DTSIR109
00041 INDEXED BY R109-FMT-IDX DTSIR109
00042 PIC X(40). DTSIR109
00043 15 R109-ZIP PIC X(10). DTSIR109
00044 15 R109-ADVANCE-BARCODE PIC X(14). DTSIR109
00045 15 R109-YRQ-CNT PIC S9(04) COMP. DTSIR109
00046 15 R109-YRQ OCCURS 24 TIMES DTSIR109
00047 PIC S9(05) COMP-3. DTSIR109
00048 15 R109-WAIVE-AREA. DTSIR109
00049 20 R109-WAIVE-START-YRQ DTSIR109
00050 PIC S9(05) COMP-3. DTSIR109
00051 20 R109-WAIVE-END-YRQ PIC S9(05) COMP-3. DTSIR109
00052 20 R109-WAIVE-DATE PIC S9(09) COMP-3. DTSIR109