DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
29
Copybook/DTSIL081.cpy
Normal file
29
Copybook/DTSIL081.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
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
|
||||
Reference in New Issue
Block a user