54 lines
4.2 KiB
COBOL
54 lines
4.2 KiB
COBOL
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
|