25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL017
|
|
00003 * DTSIL017 FEIN FROM SCREEN FORMAT/EDIT MODULE LINKAGE. LV003
|
|
00004 * DTSIL017
|
|
00005 ***** DTSIL017
|
|
00006 SKIP1 DTSIL017
|
|
00007 10 L017-RESULT-IND PIC X(01). DTSIL017
|
|
00008 88 L017-NO-ENTRY VALUE '0'. DTSIL017
|
|
00009 88 L017-VALID VALUE '1'. DTSIL017
|
|
00010 88 L017-NOT-VALID VALUE '2'. DTSIL017
|
|
00011 SKIP1 DTSIL017
|
|
00012 10 L017-S-FEIN-AREA. DTSIL017
|
|
00013 15 L017-S-FEIN1-AREA. DTSIL017
|
|
00014 20 L017-S-FEIN1-L PIC S9(04) COMP. DTSIL017
|
|
00015 20 L017-S-FEIN1-A PIC X(01). DTSIL017
|
|
00016 20 L017-S-FEIN1 PIC X(02). DTSIL017
|
|
00017 15 L017-S-FEIN2-AREA. DTSIL017
|
|
00018 20 L017-S-FEIN2-L PIC S9(04) COMP. DTSIL017
|
|
00019 20 L017-S-FEIN2-A PIC X(01). DTSIL017
|
|
00020 20 L017-S-FEIN2 PIC X(07). DTSIL017
|
|
00021 SKIP1 DTSIL017
|
|
00022 10 L017-FEIN PIC S9(09) COMP-3. DTSIL017
|
|
00023 SKIP1 DTSIL017
|
|
00024 10 FILLER PIC X(09). DTSIL017
|