**************************************************************
**
** 08/16/00 RE INHOUSE CHANGE FOR EFT PROCESSING
**
**************************************************************
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Modifications for VBE820
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
01 PROGRAM-SWITCHES.
. . . . . .
. . . . . .
. . . . . .
03 CC-PAY-THRU-SW PIC X(01) VALUE 'N'.
03 EDI-REMIT-SW PIC X(01) VALUE SPACE.
03 FIRST-VOUCHER-SW PIC X(01) VALUE 'Y'.
03 LAST-PAGE-SW PIC X(01) VALUE 'N'.
03 PAY-FREEZE-SW PIC X(01) VALUE SPACE.
03 PRENOTE-SW PIC X(01) VALUE 'N'.
03 REJECT-VENDOR-SW PIC X(01) VALUE 'N'.
03 REMITTANCE-SW PIC X(01) VALUE 'N'.
03 RPT-SUMMARY-SW PIC X(01) VALUE 'N'.
03 SELECT-4X-SW PIC X(01) VALUE 'N'.
**CC
**CC change begins
**CC
03 VOUCHER-EOF-SW PIC X(01) VALUE 'N'.
**CC
**CC change ends
**CC
*
01 PROGRAM-SUBSCRIPTS.
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
3000-PROCESS-000.
MOVE 'N' TO VO-CMD-CODE.
PERFORM 8100-VOUCHER-FILE-IO THRU 8100-VOUCHER-FILE-IO-EXIT.
IF VO-RTN-CODE = '8'
**CC
**CC change begins
**CC
MOVE 'Y' TO VOUCHER-EOF-SW
**CC
**CC change ends
**CC
PERFORM 3100-NEW-VENDOR THRU 3100-NEW-VENDOR-EXIT
GO TO 3000-PROCESS-900.
IF VO-DROP NOT = '0'
GO TO 3000-PROCESS-000.
IF VO-CHECK-NO NOT = SPACES
GO TO 3000-PROCESS-000.
IF VO-BANK NOT = CC-BANK
GO TO 3000-PROCESS-000.
IF VO-CURR-CODE NOT = CC-CURR-CODE
GO TO 3000-PROCESS-000.
. . . . . .
. . . . . .
. . . . . .
3000-PROCESS-100.
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
3100-NVEND-200.
**CC
**CC change begins
**CC
*
* NEED TO RE-READ THE VOUCHER FILE TO RESET THE
* FILE POINTER TO THE LAST RECORD READ AFTER
* PROCESSING THE VOUCHER TABLE.
*
**CC
**CC change ends
**CC
SET T UP BY 1.
IF T > HOLDT
MOVE HOLD-VOUCHER-REC TO VO-RECORD
**CC
**CC change begins
**CC
**DD GO TO 3100-NVEND-300.
IF VOUCHER-EOF-SW = 'Y'
GO TO 3100-NVEND-300
ELSE
MOVE 'R' TO VO-CMD-CODE
MOVE VO-KEY TO VO-NOM-KEY
PERFORM 8100-VOUCHER-FILE-IO
THRU 8100-VOUCHER-FILE-IO-EXIT
GO TO 3100-NVEND-300.
**CC
**CC change ends
**CC
MOVE '3' TO WS-EXT-TYPE.
MOVE VOUCHER-HOLD (T) TO VO-RECORD
MOVE VOUCHER-HOLD (T) TO WS-EXT-BODY.
PERFORM 4000-WRITE-EXTRACT THRU 4000-WRITE-EXTRACT-EXIT.
GO TO 3100-NVEND-200.
*
* INITIALIZE HEADER WORK AREAS. HOLD VENDOR NUMBER.
*
3100-NVEND-300.
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
End of Modifications for VBE820
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
FRS Accounts Payable In-House Changes
Last Modified: Tuesday, 28-Nov-2000 11:24:49 CST
©2000 All Rights Reserved