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

67
Copybook/DTSIL113.cpy Normal file
View File

@ -0,0 +1,67 @@
00001 ***** 09/04/98
00002 * DTSIL113
00003 * DTSIL113 RETURNS A FEW BITS (PRIMARY NAME, CLASS, LV002
00004 * STATUS, FIRST OPO NAME, FIRST OPO TITLE, AND DTSIL113
00005 * DEFAULT TAX MAILING ADDRESS) FOR A SPECIFIED DTSIL113
00006 * RELATED-EMP-NO. RESETS FILE POSITION INDICATOR DTSIL113
00007 * TO THE MPRF RECORD OF L113-CURRENT-EMP-NO. DTSIL113
00008 * DTSIL113
00009 * GENERALLY USED TO OBTAIN INFORMATION ABOUT DTSIL113
00010 * A PREDECESSOR (OR OTHER RELATED EMPLOYER). DTSIL113
00011 * DTSIL113
00012 ***** DTSIL113
00013 SKIP1 DTSIL113
00014 10 L113-LENGTH PIC S9(04) COMP VALUE +450. DTSIL113
00015 SKIP1 DTSIL113
00016 10 L113-CURRENT-EMP-NO PIC S9(07) COMP-3. DTSIL113
00017 SKIP1 DTSIL113
00018 10 L113-RELATED-EMP-NO PIC S9(07) COMP-3. DTSIL113
00019 SKIP3 DTSIL113
00020 10 L113-EMP-RESULT-IND PIC X(01). DTSIL113
00021 88 L113-EMP-FOUND-88 VALUE '0'. DTSIL113
00022 88 L113-EMP-NOT-FOUND-88 VALUE '1'. DTSIL113
00023 88 L113-FILE-CLOSED-88 VALUE '9'. DTSIL113
00024 SKIP1 DTSIL113
00025 10 L113-ADDR-RESULT-IND PIC X(01). DTSIL113
00026 88 L113-ADDR-FOUND-88 VALUE '0'. DTSIL113
00027 88 L113-ADDR-NOT-FOUND-88 VALUE '1'. DTSIL113
00028 SKIP1 DTSIL113
00029 10 L113-OPO-RESULT-IND PIC X(01). DTSIL113
00030 88 L113-OPO-FOUND-88 VALUE '0'. DTSIL113
00031 88 L113-OPO-NOT-FOUND-88 VALUE '1'. DTSIL113
00032 SKIP3 DTSIL113
00033 10 L113-RETURN-AREA. DTSIL113
00034 15 L113-PRIMARY-NAME PIC X(40). CL**2
00035 SKIP1 DTSIL113
00036 15 L113-EMP-CLASS PIC X(01). DTSIL113
00037 88 L113-CLASS-CHG-ONLY-88 VALUE 'C'. DTSIL113
00038 88 L113-CLASS-REG-88 VALUE 'R'. DTSIL113
00039 88 L113-CLASS-REIMB-88 VALUE 'S'. DTSIL113
00040 88 L113-CLASS-UNK-88 VALUE 'U'. DTSIL113
00041 88 L113-CLASS-SUB-88 VALUE 'R' 'S' DTSIL113
00042 'G'. DTSIL113
00043 SKIP1 DTSIL113
00044 15 L113-EMP-STATUS PIC X(01). DTSIL113
00045 88 L113-STATUS-ACT-88 VALUE 'A'. DTSIL113
00046 88 L113-STATUS-INACT-88 VALUE 'I'. DTSIL113
00047 88 L113-STATUS-NEVERSUB-88 VALUE 'N'. DTSIL113
00048 88 L113-STATUS-UNK-88 VALUE 'U'. DTSIL113
00049 88 L113-STATUS-SUB-88 VALUE 'A' 'I'. DTSIL113
00050 SKIP1 DTSIL113
00051 15 L113-OPO-ID-1-NAME PIC X(32). DTSIL113
00052 15 L113-OPO-ID-1-TITLE PIC X(20). DTSIL113
00053 SKIP1 DTSIL113
00054 15 L113-MAILING-ADDRESS. DTSIL113
00055 20 L113-MAILING-LINE OCCURS 5 TIMES DTSIL113
00056 INDEXED BY L113-MAILING-IDXDTSIL113
00057 PIC X(40). DTSIL113
00058 SKIP1 DTSIL113
00059 15 L113-ZIP PIC X(10). DTSIL113
00060 15 L113-DELIV-POINT PIC X(02). DTSIL113
00061 15 L113-CHECK-DIGIT PIC X(01). DTSIL113
00062 SKIP1 DTSIL113
00063 10 FILLER PIC X(66). DTSIL113
00064 SKIP1 DTSIL113
00065 10 L113-MSG-AREA. DTSIL113
00066 15 L113-MSG-ID PIC X(04). DTSIL113
00067 15 L113-MSG-TEXT PIC X(60). DTSIL113