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

56
Copybook/DTSIR112.cpy Normal file
View File

@ -0,0 +1,56 @@
00001 ***** 01/29/02
00002 * DTSIR112
00003 * DTSIR112 EMPLOYER REGISTRATION NOTICE OF SUBJECTIVITY LV004
00004 * (UI-47) REPORT RECORD. DTSIR112
00005 * DTSIR112
00006 * NOTE: IF R112-EMP-CLASS = 'R', R112-LAST-RATE-END-YRQ DTSIR112
00007 * WILL BE THE VALUE OF MHDR-LAST-REG-RATE-END-YRQ. DTSIR112
00008 * IF R112-EMP-CLASS = 'G', R112-LAST-RATE-END-YRQ DTSIR112
00009 * WILL BE THE VALUE OF MHDR-LAST-GOV-RATE-END-YRQ. DTSIR112
00010 * IF R112-EMP-CLASS = 'S', R112-LAST-RATE-END-YRQ DTSIR112
00011 * DOES NOT APPLY. DTSIR112
00012 * DTSIR112
00013 * R112-RATE-AREA WILL CARRY THE MOST RECENT SIX DTSIR112
00014 * RATES ASCENDING BY MRTE-EFF-YRQ. DTSIR112
00015 * THE REPORT MODULE WILL DETERMINE WHICH RATES DTSIR112
00016 * TO DISPLAY AND THE SEQUENCE FOR DISPLAY. DTSIR112
00017 * DTSIR112
00018 * DTSIR112
00019 * 10/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIR112
00020 * DTSIR112
00021 * 11/02/2001 MODIFIED FOR HOUSEHOLD. GD DTSIR112
00022 * DTSIR112
00023 ***** DTSIR112
00024 DTSIR112
00025 10 R112-LENGTH PIC S9(04) COMP. DTSIR112
00026 DTSIR112
00027 10 R112-SORT-AREA. DTSIR112
00028 15 R112-REC-TYPE PIC X(03) VALUE '112'. DTSIR112
00029 15 R112-OP-ID PIC X(08). DTSIR112
00030 15 R112-EMP-NO PIC S9(07) COMP-3. DTSIR112
00031 DTSIR112
00032 10 R112-DATA-AREA. DTSIR112
00033 15 R112-RPT-TYPE PIC X(01). DTSIR112
00034 88 R112-RPT-QUARTERLY-88 VALUE 'Q'. DTSIR112
00035 88 R112-RPT-ANNUAL-88 VALUE 'A'. DTSIR112
00036 15 R112-RUN-DATE PIC S9(09) COMP-3. DTSIR112
00037 15 R112-FMT-ADDR. DTSIR112
00038 20 R112-FMT-LINE OCCURS 5 TIMES DTSIR112
00039 INDEXED BY R112-FMT-IDX DTSIR112
00040 PIC X(40). DTSIR112
00041 15 R112-ZIP PIC X(10). DTSIR112
00042 15 R112-ADVANCED-BARCODE PIC X(14). DTSIR112
00043 15 R112-FIRST-LIAB-YRQ PIC S9(05) COMP-3. DTSIR112
00044 15 R112-LAST-LIAB-YRQ PIC S9(05) COMP-3. DTSIR112
00045 15 R112-SCHED-START-YRQ PIC S9(05) COMP-3. DTSIR112
00046 15 R112-EMP-CLASS PIC X(01). DTSIR112
00047 88 R112-CLASS-RATED-88 VALUE 'R'. DTSIR112
00048 88 R112-CLASS-SELF-INS-88 VALUE 'S'. DTSIR112
00049 15 R112-LAST-RATE-END-YRQ PIC S9(05) COMP-3. DTSIR112
00050 15 R112-RATE-CNT PIC S9(04) COMP. DTSIR112
00051 15 R112-RATE-AREA OCCURS 6 TIMES DTSIR112
00052 INDEXED BY R112-RATE-IDX. DTSIR112
00053 20 R112-RATE-EFF-YRQ PIC S9(05) COMP-3. DTSIR112
00054 20 R112-RATE-END-YRQ PIC S9(05) COMP-3. DTSIR112
00055 20 R112-UI-RATE PIC S9(01)V9(04) DTSIR112
00056 COMP-3. DTSIR112