The following piece of code seems to have solved this problem. I take no credit for the solution which, if you read the entire discussion, was provided by another individual. All I did was make a minor change. I have copied it here because it represent the working solution. The compiled program is in the library with the system/36 program that calls it.
pgm ( +
&pRow +
&pColumn +
)
dcl &pRow *char ( 4 )
dcl &pColumn *char ( 4 )
dcl &Row *char 4
dcl &Column *char 4
dcl &hLoLvlEnv *char 4
dcl &ErrCod *char 8
dcl &RtnVal *char 4
callprc ‘QsnGetCsrAdr’ ( +
&Row +
&Column +
x’00000000′ +
x’00000000′ +
) +
rtnval( +
%bin( &RtnVal ) +
)
chgvar &pRow %bin( &Row )
chgvar &pColumn %bin( &Column )
return
endpgm
Discuss This Question: 16  Replies