MVSFORUMS.com

[Muthu]

I am presently working in ASM-COB conversion testing project and have couple of queries.

1. I have asssembler AMODE 24 RMODE 24 program that calls COBOL2 program having RMODE 24 and AMODE 24. This call is done by BALR instruction (BALR 14,15). We are converting COBOL2 program to COBOL370 which is going to be AMODE 31 RMODE ANY. This call will fail due to compatibility issue. So as per IBM book manager we have written a macro, CEE2BK32 z/OS V1R4.0 Language Environment Bookshelf - SA22-7563-01, 14.2 Calling COBOL from Assembler , We have written a macro that will save the current mode in one reg, then convert BALR to BASSM and restore back the AMODE from the reg.

My query is whether just replacing BALR with BASSM won't take care of saving/restoring the mode.Do we really need to save and restore after call. Our test run seems to be working fine for just replacing BALR with BASSM. Any special case when this will fail?????

2. To ensure that BASSM is working, we need to prove the same with displays and so I would like to display PSW before and after the BASSM call. I know that R14 will contain the return address and we can display R14 before and after call but prefer to display PSW..Is there a way to display PSW itself?