DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
53
Copybook/DTSIL111.cpy
Normal file
53
Copybook/DTSIL111.cpy
Normal 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
|
||||
Reference in New Issue
Block a user