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

53
Copybook/DTSIL111.cpy Normal file
View File

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