You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
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 />
MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT<br />
END-EVALUATE.<br />
PERFORM WRITEQ-TRANSIENT-DATA<br />
CONTINUE.<br />
WRITEQ-TRANSIENT-DATA.<br />
EXEC <strong>CICS</strong> WRITEQ TD QUEUE('CSMT')<br />
FROM(ERROR-MESSAGE)<br />
LENGTH(LENGTH OF ERROR-MESSAGE)<br />
RESP(TRANSDATA-RESPONSE)<br />
END-EXEC<br />
IF TRANSDATA-RESPONSE = DFHRESP(NORMAL)<br />
CONTINUE<br />
ELSE<br />
MOVE 'WRITE TD' TO OPR-CALL-TYPE<br />
MOVE 'SEVERE ERR' TO OPR-TYPE<br />
MOVE 'TRANSIENT DATA WRITE FAILED' TO OPR-TEXT<br />
EXEC <strong>CICS</strong> WRITE OPERATOR<br />
TEXT(OPERATOR-MESSAGE)<br />
TEXTLENGTH(LENGTH OF OPERATOR-MESSAGE)<br />
RESP(OPERATOR-RESPONSE)<br />
END-EXEC<br />
END-IF<br />
CONTINUE.<br />
ABEND-ERR.<br />
EXEC <strong>CICS</strong> ASSIGN ABCODE(ERR-TYPE) END-EXEC<br />
30 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.