GETMAIN RESP
Posted: Fri Jul 13, 2012 9:45 am
Hi
I using GETMAIN to obtain memory for my Linkage section in Cobol CICS Program. Im checking response as below,
EXEC CICS
GETMAIN ..
RESP(WS-ROSP)
END-EXEC
IF WS-ROSP not equal to DFHRESP(NORMAL)
MOVE EIBRESP to WS-1 (--This X(02))
MOVE EIBRESP to WS-2 (--This X(03))
RETURN to CICS
END-IF
Im am trying to display the error code on Screen using WS-1 and WS-2.
The error code isnot getting displayed properly. Im aware that the EIRESP and EIBRESP2 are 4 bytes Comp --> S9(08) COMP.
Please help me display the error code correctly. For eg if there is LENGTHERR the I should get EIBRESP 22. (please correct me if Im wrong with the error code interpretation)
I using GETMAIN to obtain memory for my Linkage section in Cobol CICS Program. Im checking response as below,
EXEC CICS
GETMAIN ..
RESP(WS-ROSP)
END-EXEC
IF WS-ROSP not equal to DFHRESP(NORMAL)
MOVE EIBRESP to WS-1 (--This X(02))
MOVE EIBRESP to WS-2 (--This X(03))
RETURN to CICS
END-IF
Im am trying to display the error code on Screen using WS-1 and WS-2.
The error code isnot getting displayed properly. Im aware that the EIRESP and EIBRESP2 are 4 bytes Comp --> S9(08) COMP.
Please help me display the error code correctly. For eg if there is LENGTHERR the I should get EIBRESP 22. (please correct me if Im wrong with the error code interpretation)