Got the 1st one also.. thanks Pedro.. you suggestion worked..
![Smile :)](https://www.ibmmainframeforum.com/images/smilies/icon_e_smile.gif)
Thanks to Enrico as well...
![Smile :)](https://www.ibmmainframeforum.com/images/smilies/icon_e_smile.gif)
here is the code for refrence:
Rexx1:
CALL REXX2 XSUBSYS,XCRTRID,XTBLNME,XINPFLE,SQLRTCD
SQLRTCD = REXX2(XSUBSYS,XCRTRID,XTBLNME,XINPFLE)
Rexx2:
ARG XSUBSYS,XCRTRID,XTBLNME,XINPFLE,SQLRTCD
SAY 'NIK1 ' XSUBSYS
SAY 'NIK2 ' XCRTRID
SAY 'NIK3 ' XTBLNME
SAY 'NIK4 ' XINPFLE
SAY 'NIK5 ' SQLRTCD
.......
IF (SQLCD1 ¬= 0 | SQLCD2 ¬= 0 | SQLCD3 ¬= 0 | SQLCD4 ¬= 0 | ,
SQLCD5 ¬= 0 | SQLCD6 ¬= 0 | SQLCD7 ¬= 0 ) THEN
DO
SQLRTCD = 1
END
ELSE
DO
IF SQLDA1 = 0 THEN
SQLRTCD = 2
ELSE DO
SQLRTCD = 3
END
END
RETURN (SQLRTCD)
Thanks
Nikesh