38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
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
|