29 lines
2.2 KiB
COBOL
29 lines
2.2 KiB
COBOL
00001 ***** 04/24/03
|
|
00002 * EFTIFACH
|
|
00003 * EFTIFACH ACH DISHONORED CHECK FILE LV039
|
|
00004 * SKELETAL RECORD DESCRIPTION CL*39
|
|
00005 * CL*17
|
|
00006 * THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE CL*39
|
|
00007 * DISHONORED TO DOES EVERY DAY. DOES BUILDS NO GOOD CL*39
|
|
00008 * CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS CL*39
|
|
00009 * THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE. CL*39
|
|
00010 * CL*39
|
|
00011 * THERE ARE 7 RECORD TYPES IN THIS FILE. CL*39
|
|
00012 * CL*39
|
|
00013 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE CL*17
|
|
00014 * SKELETAL RECORD THAT CAN CONTAIN ANY OF THESE RECORD CL*39
|
|
00015 * TYPES. THE IMPORT PROCESS READS THE INPUT DATA INTO THIS CL*39
|
|
00016 * RECORD, AND THEN MOVES IT TO THE APPROPRIATE COPY BOOK CL*39
|
|
00017 * BASED ON THE VALUE IN THE FIRST FIELD (RECORD TYPE CODE). CL*39
|
|
00018 * CL*23
|
|
00019 ***** EFTIFACH
|
|
00020 10 FACH-SKELETAL-REC. CL*39
|
|
00021 15 FACH-TYPE PIC X(01). CL*39
|
|
00022 88 FACH-TYPE-HEADER-88 VALUE '1'. CL*39
|
|
00023 88 FACH-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. CL*39
|
|
00024 88 FACH-TYPE-ENTRY-DETAIL-88 VALUE '6'. CL*39
|
|
00025 88 FACH-TYPE-ADDENDA-88 VALUE '7'. CL*39
|
|
00026 88 FACH-TYPE-TRAILER-88 VALUE '9'. CL*39
|
|
00027 CL*30
|
|
00028 15 FACH-FILLER PIC X(93). CL*39
|