DSNTIAR and CALL from REXX.

[Salil]

Hi,

Can you please guide in how to call the DSNTIAR from REXX. I think seen its example somewhere but not able to locate it now. If someone can help, I'd appreciate that.

[Salil]

Thanks for anyone who looked at this thread to help out. I got the following, though not exacly what I was looking but fine for now:

Code: Select all

/* REXX */
TRACE O
"ISPEXEC CONTROL DISPLAY LINE START(1)"
PARSE UPPER ARG SQLCODE
SQLC = X2C(D2X(SQLCODE,8)) ;
SQLCA = 'SQLCA 'X2C(00000088)SQLC||X2C(0000)||COPIES(' ',78)||,
COPIES(X2C(00),24)COPIES(' ',16) ;
TIAR_MSG = X2C(0190)COPIES(' ',400) ;
TEXT_LEN = X2C(00000050) ;
ADDRESS ATTCHPGM 'DSNTIAR SQLCA TIAR_MSG TEXT_LEN'
SAY SUBSTR(TIAR_MSG,4,400);