DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
37
Copybook/DTSIL074.cpy
Normal file
37
Copybook/DTSIL074.cpy
Normal file
@ -0,0 +1,37 @@
|
||||
00001 ***** 11/14/05
|
||||
00002 * DTSIL074
|
||||
00003 * DTSIL074 FEIN EDIT MODULE LINKAGE. LV005
|
||||
00004 * DTSIL074
|
||||
00005 * DTSIL074
|
||||
00006 * 09/08/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIL074
|
||||
00007 * 06/23/2004 ADDED L074-DUP-STAT-UNK-88 - DTSIL074
|
||||
00008 * THIS VALUE SET WHEN ACCOUNT WITH DTSIL074
|
||||
00009 * MATCHING FEIN FOUND AND STATUS IS DTSIL074
|
||||
00010 * UNKNOWN. A NEW ACTIVE ACCOUNT SHOULDDTSIL074
|
||||
00011 * NOT BE ADDED IN THIS CASE. GD. DTSIL074
|
||||
00012 * DTSIL074
|
||||
00013 ***** DTSIL074
|
||||
00014 DTSIL074
|
||||
00015 10 L074-OPTION PIC X(01). DTSIL074
|
||||
00016 88 L074-ANY-DUP-88 VALUE '1'. DTSIL074
|
||||
00017 88 L074-ACTIVE-DUP-88 VALUE '2'. DTSIL074
|
||||
00018 DTSIL074
|
||||
00019 10 L074-RESULT-IND PIC X(01). DTSIL074
|
||||
00020 88 L074-NO-DUP-88 VALUE '0'. DTSIL074
|
||||
00021 88 L074-DUP-BUT-OK-88 VALUE '1'. DTSIL074
|
||||
00022 88 L074-OK-88 VALUE '0' '1'. DTSIL074
|
||||
00023 88 L074-DUP-NOT-OK-88 VALUE '2'. DTSIL074
|
||||
00024 88 L074-DUP-STAT-UNK-88 VALUE '3'. DTSIL074
|
||||
00025 88 L074-FILE-CLOSED-88 VALUE '9'. DTSIL074
|
||||
00026 DTSIL074
|
||||
00027 10 L074-EMP-NO PIC S9(07) COMP-3. DTSIL074
|
||||
00028 DTSIL074
|
||||
00029 10 L074-FEIN PIC S9(09) COMP-3. DTSIL074
|
||||
00030 DTSIL074
|
||||
00031 10 L074-INACTIVE-EMP-NO PIC S9(07) COMP-3. DTSIL074
|
||||
00032 DTSIL074
|
||||
00033 10 L074-MSG-AREA. DTSIL074
|
||||
00034 15 L074-MSG-ID PIC X(04). DTSIL074
|
||||
00035 15 L074-MSG-TEXT PIC X(60). DTSIL074
|
||||
00036 DTSIL074
|
||||
00037 10 FILLER PIC X(15). DTSIL074
|
||||
Reference in New Issue
Block a user