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

40
Copybook/DTSIR731.cpy Normal file
View File

@ -0,0 +1,40 @@
00001 ***** 07/27/98
00002 * DTSIR731
00003 * MACIR731 PURGE BUSINESS NAMES REPORT RECORDS. LV001
00004 * DTSIR731
00005 * NOTE: MULTIPLE REPORT RECORDS WILL USUALLY EXIST DTSIR731
00006 * FOR ONE EMPLOYER SINCE R731-NAME CAN BE ANY DTSIR731
00007 * ONE OF THREE DIFFERENT TYPES OF NAMES THAT DTSIR731
00008 * GO WITH THE EMPLOYER. DTSIR731
00009 * DTSIR731
00010 * R731-LIAB-DATE MAY BE EQUAL TO ZERO DTSIR731
00011 * (EMPLOYER NEVER LIABLE). DTSIR731
00012 * DTSIR731
00013 * R731-INACT-DATE MAY BE EQUAL TO ZERO DTSIR731
00014 * (EMPLOYER NEVER LIABLE). DTSIR731
00015 * DTSIR731
00016 * IF ARCHIVE LOGIC IS MODIFIED, THEN DTSIR731
00017 * R731-INACT-DATE MAY BE EQUAL TO ALL NINES DTSIR731
00018 * (EMPLOYER IS ACTIVE). DTSIR731
00019 * DTSIR731
00020 ***** DTSIR731
00021 SKIP1 DTSIR731
00022 10 R731-LENGTH PIC S9(04) COMP VALUE +097. DTSIR731
00023 SKIP1 DTSIR731
00024 10 R731-SORT-AREA. DTSIR731
00025 15 R731-REC-TYPE PIC X(03) VALUE '731'. DTSIR731
00026 15 R731-NAME PIC X(40). DTSIR731
00027 15 R731-EMP-NO PIC S9(07) COMP-3. DTSIR731
00028 SKIP1 DTSIR731
00029 10 R731-DATA-AREA. DTSIR731
00030 15 R731-EMP-CLASS PIC X(01). DTSIR731
00031 88 R731-CLASS-REG-88 VALUE 'R'. DTSIR731
00032 88 R731-CLASS-GOV-88 VALUE 'G'. DTSIR731
00033 88 R731-CLASS-REIMB-88 VALUE 'S'. DTSIR731
00034 88 R731-CLASS-NEVER-SUB-88 VALUE 'N'. DTSIR731
00035 15 R731-CITY PIC X(25). DTSIR731
00036 15 R731-ST PIC X(02). DTSIR731
00037 15 R731-ZIP-FIRST5 PIC X(05). DTSIR731
00038 15 R731-LIAB-DATE PIC S9(09) COMP-3. DTSIR731
00039 15 R731-INACT-DATE PIC S9(09) COMP-3. DTSIR731
00040 15 R731-PURGE-DATE PIC S9(09) COMP-3. DTSIR731