30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 05/11/04
|
|
00002 * DTSIL081
|
|
00003 * DTSIL081 CLAIMANT NAME LOOKUP MODULE LINKAGE. LV010
|
|
00004 * DTSIL081
|
|
00005 * DTSIL081
|
|
00006 * 09/08/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIL081
|
|
00007 * DTSIL081
|
|
00008 ***** DTSIL081
|
|
00009 DTSIL081
|
|
00010 10 L081-RESULT-IND PIC X(01). DTSIL081
|
|
00011 88 L081-NAME-FOUND VALUE '1'. DTSIL081
|
|
00012 88 L081-NAME-NOT-FOUND VALUE '2'. DTSIL081
|
|
00013 88 L081-FILE-CLOSED VALUE '3'. DTSIL081
|
|
00014 DTSIL081
|
|
00015 10 L081-CLAIMANT-SSN PIC 9(09) COMP-3. DTSIL081
|
|
00016 DTSIL081
|
|
00017 10 L081-CLAIMANT-NAME PIC X(32). DTSIL081
|
|
00018 DTSIL081
|
|
00019 10 L081-CLAIMANT-ADDRESS. DTSIL081
|
|
00020 15 L081-CLAIMANT-STREET PIC X(40). DTSIL081
|
|
00021 15 L081-CLAIMANT-CITY PIC X(15). DTSIL081
|
|
00022 15 L081-CLAIMANT-STATE PIC X(02). DTSIL081
|
|
00023 15 L081-CLAIMANT-ZIP PIC X(10). DTSIL081
|
|
00024 DTSIL081
|
|
00025 10 L081-MSG-AREA. DTSIL081
|
|
00026 15 L081-MSG-ID PIC X(04). DTSIL081
|
|
00027 15 L081-MSG-TEXT PIC X(60). DTSIL081
|
|
00028 DTSIL081
|
|
00029 10 FILLER PIC X(24). DTSIL081
|