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

88
Copybook/DTSIR902.cpy Normal file
View File

@ -0,0 +1,88 @@
00001 ***** 01/29/02
00002 * DTSIR902
00003 * DTSIR902 EMPLOYER QUARTERLY REPORT (UC-30) LV009
00004 * REPORT RECORD. DTSIR902
00005 * DTSIR902
00006 * NOTE: IF R902-QTRLY-CR-AMT = +0, PRINT SPACES. DTSIR902
00007 * DTSIR902
00008 * IF R902-DAILY-WAIVER-START-YRQ = DTSIR902
00009 * R902-DAILY-WAIVER-END-YRQ, PRINT SINGLE DTSIR902
00010 * QUARTER WAIVER MESSAGE. DTSIR902
00011 * DTSIR902
00012 * 01/16/1999 EMPLOYER QUARTERLY REPORT EXTERNAL DTSIR902
00013 * DESIGN NOT AVAILABLE. DTSIR902 DTSIR902
00014 * "FAKED" FROM REQUIREMENTS DOCUMENT DTSIR902
00015 * AND MONTANA CODE. ONCE THE EMPLOYER DTSIR902
00016 * QUARTERLY REPORT IS AVAILABLE, PLEASE DTSIR902
00017 * REVIEW DTSIR902. DTSIR902
00018 * DTSIR902
00019 ***** DTSIR902
00020 DTSIR902
00021 10 R902-LENGTH PIC S9(04) COMP. DTSIR902
00022 DTSIR902
00023 10 R902-SORT-AREA. DTSIR902
00024 15 R902-REC-TYPE PIC X(03) VALUE '902'. DTSIR902
00025 15 R902-SORT-TYPE PIC X(01). DTSIR902
00026 88 R902-SORT-TYPE-QTR-88 VALUE 'Q'. DTSIR902
00027 88 R902-SORT-TYPE-DAILY-88 VALUE 'D'. DTSIR902
00028 15 R902-VAR-SORT-AREA PIC X(18). DTSIR902
00029 15 R902-QUARTERLY-SORT-AREA REDEFINES DTSIR902
00030 R902-VAR-SORT-AREA. DTSIR902
00031 20 R902-QUARTERLY-EMP-CLASS DTSIR902
00032 PIC X(01). DTSIR902
00033 88 R902-QUARTERLY-RATED-88 VALUE 'R'. DTSIR902
00034 88 R902-QUARTERLY-SELF-INS-88 VALUE 'S'. DTSIR902
00035 20 R902-QUARTERLY-ZIP-CODE DTSIR902
00036 PIC X(10). DTSIR902
00037 20 R902-QUARTERLY-EMP-NO DTSIR902
00038 PIC S9(07) COMP-3. DTSIR902
00039 20 R902-QUARTERLY-YRQ PIC S9(05) COMP-3. DTSIR902
00040 DTSIR902
00041 15 R902-DAILY-SORT-AREA REDEFINES DTSIR902
00042 R902-VAR-SORT-AREA. DTSIR902
00043 20 R902-DAILY-TYPE PIC X(01). DTSIR902
00044 88 R902-INACT-88 VALUE 'I'. DTSIR902
00045 88 R902-LIAB-DETERM-88 VALUE 'L'. DTSIR902
00046 88 R902-REQUEST-88 VALUE 'R'. DTSIR902
00047 *********************88 R902-ELF-ADD-88 VALUE 'E'. DTSIR902
00048 20 R902-DAILY-OP-ID PIC X(08). DTSIR902
00049 20 R902-DAILY-EMP-CLASS DTSIR902
00050 PIC X(01). DTSIR902
00051 88 R902-DAILY-RATED-88 VALUE 'R'. DTSIR902
00052 88 R902-DAILY-SELF-INS-88 VALUE 'S'. DTSIR902
00053 20 R902-DAILY-EMP-NO PIC S9(07) COMP-3. DTSIR902
00054 20 R902-DAILY-YRQ PIC S9(05) COMP-3. DTSIR902
00055 20 FILLER PIC X(01). DTSIR902
00056 DTSIR902
00057 10 R902-DATA-AREA. DTSIR902
00058 15 R902-RUN-IND PIC X(01). DTSIR902
00059 88 R902-QUARTERLY-88 VALUE 'Q'. DTSIR902
00060 88 R902-DAILY-88 VALUE 'D'. DTSIR902
00061 15 R902-PRI-NAME-FIRST4 PIC X(04). DTSIR902
00062 15 R902-FMT-ADDR. DTSIR902
00063 20 R902-FMT-LINE OCCURS 5 TIMES DTSIR902
00064 INDEXED BY R902-FMT-IDX DTSIR902
00065 PIC X(40). DTSIR902
00066 15 R902-ZIP PIC X(10). DTSIR902
00067 15 R902-ADVANCED-BARCODE PIC X(14). DTSIR902
00068 15 R902-TAX-WAGE-BASE PIC S9(07)V9(02) DTSIR902
00069 COMP-3. DTSIR902
00070 15 R902-UI-RATE PIC S9(01)V9(04) DTSIR902
00071 COMP-3. DTSIR902
00072 15 R902-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIR902
00073 15 R902-FEIN PIC S9(09) COMP-3. DTSIR902
00074 15 R902-QTRLY-CR-AMT PIC S9(09)V9(02) DTSIR902
00075 COMP-3. DTSIR902
00076 15 R902-INDUSTRY-CD PIC X(06). DTSIR902
00077 15 R902-DAILY-WAIVER-START-YRQ DTSIR902
00078 PIC S9(05) COMP-3. DTSIR902
00079 15 R902-DAILY-WAIVER-END-YRQ DTSIR902
00080 PIC S9(05) COMP-3. DTSIR902
00081 15 R902-DAILY-WAIVER-DATE PIC S9(09) COMP-3. DTSIR902
00082 15 R902-DAILY-SUPPLEMENTAL-IND DTSIR902
00083 PIC X(01). DTSIR902
00084 88 R902-DAILY-SUPL-YES-88 VALUE 'Y'. DTSIR902
00085 15 R902-ELECTRNIC-WAGE-FILER-IND DTSIR902
00086 PIC X(01). DTSIR902
00087 88 R902-ELECTRNIC-WAGES-YES-88 VALUE 'Y'. DTSIR902
00088 88 R902-ELECTRNIC-WAGES-NO-88 VALUE 'N'. DTSIR902