34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 12/17/03
|
|
00002 * EFTIF907
|
|
00003 * EFTIF907 UNUSUAL CONDITIONS ENCOUNTERED GOVONE RECORD. LV027
|
|
00004 * EFTIF907
|
|
00005 * CL**2
|
|
00006 * 04/23/2003 REVIEWED AND MODIFIED FOR DC. ZL1 CL**6
|
|
00007 * CL**2
|
|
00008 ***** EFTIF907
|
|
00009 CL**2
|
|
00010 10 F907-LENGTH PIC S9(04) COMP. CL**7
|
|
00011 CL**2
|
|
00012 10 F907-SORT-AREA. CL**7
|
|
00013 15 F907-REC-TYPE PIC X(03) VALUE '907'. CL*19
|
|
00014 15 F907-MSG-ID PIC X(03). CL**7
|
|
00015 15 FILLER REDEFINES F907-MSG-ID. CL**7
|
|
00016 20 F907-MSG-ID-CHAR-1 PIC X(01). CL**7
|
|
00017 20 FILLER PIC X(02). EFTIF907
|
|
00018 15 F907-EMP-NO PIC S9(07) COMP-3. CL**7
|
|
00019 CL**2
|
|
00020 10 F907-DATA-AREA. CL**7
|
|
00021 * 15 F907-MSG-TEXT PIC X(55). CL*19
|
|
00022 15 F907-MSG-TEXT PIC X(45). CL*21
|
|
00023 15 FILLER PIC X(01). CL*14
|
|
00024 15 F907-GOV1-REC. CL*10
|
|
00025 * 20 F907-GOV1-RECID PIC X(04). CL*21
|
|
00026 20 F907-GOV1-RECID PIC X(02). CL*21
|
|
00027 20 FILLER PIC X(01). CL*22
|
|
00028 20 F907-GOV1-DATA PIC X(40). CL*19
|
|
00029 20 F907-GOV1-TRACE PIC X(15). CL*19
|
|
00030 15 F907-GOV1-REC-ERR REDEFINES F907-GOV1-REC CL*23
|
|
00031 PIC X(58). CL*27
|
|
00032 15 FILLER PIC X(01). CL*23
|
|
00033 15 F907-MODULE-NAME PIC X(08). CL**7
|