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

85
Copybook/DTSIR910.cpy Normal file
View File

@ -0,0 +1,85 @@
00001 ***** 11/11/02
00002 * DTSIR910
00003 * DTSIR910 EMPLOYER ANNUAL REPORT (UC-30H) LV003
00004 * REPORT RECORD. DTSIR910
00005 * DTSIR910
00006 * NOTE: IF R910-ANN-CR-AMT = +0, PRINT SPACES. DTSIR910
00007 * DTSIR910
00008 * IF R910-DAILY-WAIVER-START-YRQ = DTSIR910
00009 * R910-DAILY-WAIVER-END-YRQ, PRINT SINGLE DTSIR910
00010 * QUARTER WAIVER MESSAGE. DTSIR910
00011 * DTSIR910
00012 * 11/02/2001 MODIFIED FROM DTSIR902 FOR HOUSEHOLD DTSIR910
00013 * EMPLOYERS REPORTING ANNUALLY. DTSIR910
00014 * DTSIR910
00015 * 05/02/2002 ADD TABLE CONTAINS 10 OCCURENCES ON DTSIR910
00016 * SSN FOR UC30H ANNUAL MAILING PROCESSES. DTSIR910
00017 * DTSIR910
00018 ***** DTSIR910
00019 DTSIR910
00020 10 R910-LENGTH PIC S9(04) COMP. DTSIR910
00021 DTSIR910
00022 10 R910-SORT-AREA. DTSIR910
00023 15 R910-REC-TYPE PIC X(03) VALUE '910'. DTSIR910
00024 15 R910-SORT-TYPE PIC X(01). DTSIR910
00025 88 R910-SORT-TYPE-ANN-88 VALUE 'A'. DTSIR910
00026 88 R910-SORT-TYPE-DAILY-88 VALUE 'D'. DTSIR910
00027 15 R910-VAR-SORT-AREA PIC X(18). DTSIR910
00028 15 R910-ANNUAL-SORT-AREA REDEFINES DTSIR910
00029 R910-VAR-SORT-AREA. DTSIR910
00030 20 R910-ANNUAL-ZIP-CODE DTSIR910
00031 PIC X(10). DTSIR910
00032 20 R910-ANNUAL-EMP-NO DTSIR910
00033 PIC S9(07) COMP-3. DTSIR910
00034 20 R910-ANNUAL-YR PIC S9(05) COMP-3. DTSIR910
00035 20 FILLER PIC X(01). DTSIR910
00036 DTSIR910
00037 15 R910-DAILY-SORT-AREA REDEFINES DTSIR910
00038 R910-VAR-SORT-AREA. DTSIR910
00039 20 R910-DAILY-TYPE PIC X(01). DTSIR910
00040 88 R910-INACT-88 VALUE 'I'. DTSIR910
00041 88 R910-LIAB-DETERM-88 VALUE 'L'. DTSIR910
00042 88 R910-REQUEST-88 VALUE 'R'. DTSIR910
00043 *********************88 R910-ELF-ADD-88 VALUE 'E'. DTSIR910
00044 20 R910-DAILY-OP-ID PIC X(08). DTSIR910
00045 20 R910-DAILY-EMP-NO PIC S9(07) COMP-3. DTSIR910
00046 20 R910-DAILY-YR PIC S9(05) COMP-3. DTSIR910
00047 20 FILLER PIC X(02). DTSIR910
00048 DTSIR910
00049 10 R910-DATA-AREA. DTSIR910
00050 15 R910-RUN-IND PIC X(01). DTSIR910
00051 88 R910-ANNUAL-88 VALUE 'A'. DTSIR910
00052 88 R910-DAILY-88 VALUE 'D'. DTSIR910
00053 15 R910-PRI-NAME-FIRST4 PIC X(04). DTSIR910
00054 15 R910-FMT-ADDR. DTSIR910
00055 20 R910-FMT-LINE OCCURS 5 TIMES DTSIR910
00056 INDEXED BY R910-FMT-IDX DTSIR910
00057 PIC X(40). DTSIR910
00058 15 R910-ZIP PIC X(10). DTSIR910
00059 15 R910-ADVANCED-BARCODE PIC X(14). DTSIR910
00060 15 R910-TAX-WAGE-BASE PIC S9(07)V9(02) DTSIR910
00061 COMP-3. DTSIR910
00062 15 R910-UI-RATE PIC S9(01)V9(04) DTSIR910
00063 COMP-3. DTSIR910
00064 15 R910-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIR910
00065 15 R910-FEIN PIC S9(09) COMP-3. DTSIR910
00066 15 R910-ANN-CR-AMT PIC S9(09)V9(02) DTSIR910
00067 COMP-3. DTSIR910
00068 15 R910-DAILY-WAIVER-START-YRQ DTSIR910
00069 PIC S9(05) COMP-3. DTSIR910
00070 15 R910-DAILY-WAIVER-END-YRQ DTSIR910
00071 PIC S9(05) COMP-3. DTSIR910
00072 15 R910-DAILY-WAIVER-DATE PIC S9(09) COMP-3. DTSIR910
00073 15 R910-DAILY-SUPPLEMENTAL-IND DTSIR910
00074 PIC X(01). DTSIR910
00075 88 R910-DAILY-SUPL-YES-88 VALUE 'Y'. DTSIR910
00076 15 R910-ELECTRNIC-WAGE-FILER-IND DTSIR910
00077 PIC X(01). DTSIR910
00078 88 R910-ELECTRNIC-WAGES-YES-88 VALUE 'Y'. DTSIR910
00079 88 R910-ELECTRNIC-WAGES-NO-88 VALUE 'N'. DTSIR910
00080 15 R910-SSN-LINE-CNT PIC S9(04) COMP. DTSIR910
00081 15 R910-SSN-UC30H. DTSIR910
00082 20 R910-SSN-LINE OCCURS 10 TIMES DTSIR910
00083 INDEXED BY R910-SSN-IDX DTSIR910
00084 PIC S9(09) COMP-3. DTSIR910
00085 DTSIR910