You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
END-EVALUATE.<br />
PERFORM WRITEQ-TRANSIENT-DATA<br />
CONTINUE.<br />
EVALUATE-READNEXT-RESPONSE.<br />
EVALUATE FILE-RESPONSE<br />
WHEN DFHRESP(FILENOTFOUND)<br />
MOVE 'FILENOTFND' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(ILLOGIC)<br />
MOVE 'ILLOGIC ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(INVREQ )<br />
MOVE 'INVREQ ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(IOERR )<br />
MOVE 'IOERR ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(ISCINVREQ)<br />
MOVE 'ISCINVREQ ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(LENGERR)<br />
MOVE 'LENGERR ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(NOTAUTH)<br />
MOVE 'NOTAUTH ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(NOTFND)<br />
MOVE 'NOTFND ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
END-EVALUATE.<br />
PERFORM WRITEQ-TRANSIENT-DATA<br />
CONTINUE.<br />
EVALUATE-ENDBROWSE-RESPONSE.<br />
EVALUATE FILE-RESPONSE<br />
WHEN DFHRESP(FILENOTFOUND)<br />
MOVE 'FILENOTFND' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(ILLOGIC)<br />
MOVE 'ILLOGIC ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(INVREQ )<br />
MOVE 'INVREQ ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(IOERR )<br />
MOVE 'IOERR ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(ISCINVREQ)<br />
MOVE 'ISCINVREQ ' TO ERR-TYPE<br />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
WHEN DFHRESP(NOTAUTH)<br />
MOVE 'NOTAUTH ' TO ERR-TYPE<br />
16 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.