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

54
Copybook/DTSIL621.cpy Normal file
View File

@ -0,0 +1,54 @@
00001 ***** 03/01/12
00002 * DTSIL621
00003 * DTSIL621 ADDRESS LOOKUP. LV001
00004 * DTSIL621
00005 * REVISED FOR DC: OCTOBER 1998 - GD DTSIL621
00006 * DTSIL621
00007 * WHEN REQUESTING A TAX MAILING ADDRESS, THE CALLING DTSIL621
00008 * PROGRAM MUST SET L621-ID-NO-TAD-88 TO TRUE. DTSIL621
00009 * DTSIL621
00010 * WHEN REQUESTING A BENEFITS ADDRESS, THE CALLING DTSIL621
00011 * PROGRAM MUST SET L621-ID-NO-BAA-PRIM-88 TO TRUE. DTSIL621
00012 * DTSIL621
00013 ***** DTSIL621
00014 SKIP1 DTSIL621
00015 10 L621-EMP-NO PIC S9(07) COMP-3. DTSIL621
00016 SKIP1 DTSIL621
00017 10 L621-NAME PIC X(40). DTSIL621
00018 SKIP1 DTSIL621
00019 10 L621-ADDR-TYPE PIC X(01). DTSIL621
00020 88 L621-LOOKUP-TAD-88 VALUE '1'. DTSIL621
00021 88 L621-LOOKUP-TAA-88 VALUE '2'. DTSIL621
00022 88 L621-LOOKUP-OPO-88 VALUE '3'. DTSIL621
00023 88 L621-LOOKUP-BAA-88 VALUE '4'. DTSIL621
00024 SKIP1 DTSIL621
00025 10 L621-ID-NO PIC S9(03) COMP-3. DTSIL621
00026 88 L621-ID-NO-BAA-PRIM-88 VALUE +0. DTSIL621
00027 88 L621-ID-NO-TAD-MAIL-88 VALUE +1. DTSIL621
00028 88 L621-ID-NO-TAD-PHYS-88 VALUE +2. DTSIL621
00029 SKIP1 DTSIL621
00030 10 L621-RESULT-IND PIC X(01). DTSIL621
00031 88 L621-ADDR-FOUND-88 VALUE '0'. DTSIL621
00032 88 L621-ADDR-NOT-FOUND-88 VALUE '1'. DTSIL621
00033 88 L621-FILE-CLOSED-88 VALUE '9'. DTSIL621
00034 SKIP1 DTSIL621
00035 10 L621-UC223-IND PIC X(01). DTSIL621
00036 88 L621-UC223-YES-88 VALUE 'Y'. DTSIL621
00037 88 L621-UC223-NO-88 VALUE 'N'. DTSIL621
00038 SKIP2 DTSIL621
00039 10 L621-RETURN-AREA. DTSIL621
00040 15 L621-PRIMARY-NAME PIC X(40). DTSIL621
00041 SKIP1 DTSIL621
00042 15 L621-TITLE PIC X(20). DTSIL621
00043 SKIP1 DTSIL621
00044 15 L621-FMT-ADDR. DTSIL621
00045 20 R621-FMT-LINE OCCURS 5 TIMES DTSIL621
00046 INDEXED BY R621-FMT-IDX PIC X(40). DTSIL621
00047 15 L621-ZIP PIC X(10). DTSIL621
00048 15 L621-ADVANCED-BARCODE PIC X(14). DTSIL621
00049 SKIP1 DTSIL621
00050 10 L621-MSG-AREA. DTSIL621
00051 15 L621-MSG-ID PIC X(04). DTSIL621
00052 15 L621-MSG-TEXT PIC X(60). DTSIL621
00053 SKIP1 DTSIL621
00054 10 FILLER PIC X(43). DTSIL621