|
<![CDATA[
0000-MAIN-020.
**
** CONTINUATION OF UPDATE PROCESS?
**
IF Z-ACTION-CODE = "0" AND A-USER-ERROR-CODE = "3"
MOVE "Y" TO UPDATE-MODE
.
.
.
MOVE "U" TO ZE-WORK-BYTE (1)
PERFORM 9997-ZATT.
**
** RECEIPTS ONLY VALID FOR PAYMENT SUBCODES
**
]]>
<![CDATA[
***Make receipt for all subcodes.
]]>
<![CDATA[
***MOD BEGINS
**DD IF BC-CHG-PAY NOT = "P"
**DD MOVE TV-WS-RECEIPT TO ZE-SRCH
**DD MOVE "P" TO ZE-WORK-BYTE (1)
**DD PERFORM 9997-ZATT.
***MOD ENDS
**
** SUBCODE MUST NOT BE CONTRACT, ETC.
**
IF UPDATE-MODE = "N"
************************************************************************
4500-DD-030.
**
MOVE BC-ROOT-SEG TO Z-RECORD-AREA.
MOVE ZERO TO DATA-OCCUR-CTR.
MOVE BC-ROOT-SEG-CODE TO HOLD-SEG-CODE.
MOVE BC-FILE-NAME TO HOLD-FILE-CODE.
PERFORM 9500-BUILD-SCREEN-STRING.
**
** IF THE CHARGE-PAY INDICATOR ON THE SUBCODE RECORD IS
** "C" (CHARGE) DISPLAY "D" (DEBIT) AS THE DEFAULT, IF
** IT IS "P" (PAYMENT) DISPLAY "C" (CREDIT).
**
IF UPDATE-MODE = "Y"
IF BD-AMT < ZERO
MOVE "C" TO ZE-WORK
ELSE
MOVE "D" TO ZE-WORK
ELSE IF SDT-SCR = REFUND-SCREEN
MOVE "C" TO ZE-WORK
ELSE IF BC-CHG-PAY = "C" OR
BC-AP-FEED = "Y"
MOVE "D" TO ZE-WORK
ELSE
MOVE "C" TO ZE-WORK.
MOVE TV-BD-D-C TO ZE-SRCH.
PERFORM 9992-ZPUT.
**
** MOVE VALUE "N" TO RECEIPT FLAG
**
IF BRW-RECEIPT-CTR > ZERO AND BC-CHG-PAY = "P"
MOVE "M" TO ZE-WORK
ELSE
]]>
<![CDATA[
***Default receipt flag to Y.
]]>
<![CDATA[
***MOD BEGINS
**DD MOVE "N" TO ZE-WORK.
MOVE "Y" TO ZE-WORK.
***MOD ENDS
MOVE TV-WS-RECEIPT TO ZE-SRCH.
PERFORM 9992-ZPUT.
**
** PROTECT FIELDS IF MAINT NOT ALLOWED.
**
]]>
|
Get your own Free Homepage 