Forum
Anonym
Versuch mal:
/* REXX */ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
PARSE UPPER ARG SQLCODE Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
SQLC = D2X(SQLCODE,8) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
SQLC = X2C(SQLC) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
                           Â
SQLCA = ‚SQLCA Â ‚ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
SQLCA = SQLCA !! Â X2C(00000088) Â Â Â Â Â Â Â Â Â Â Â Â
SQLCA = SQLCA !! Â SQLC Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
SQLCA = SQLCA !! Â X2C(0000) Â Â Â Â Â Â Â Â Â Â Â Â Â Â
SQLCA = SQLCA !! Â COPIES(‚ ‚,78) Â Â Â Â Â Â Â Â Â Â Â Â
SQLCA = SQLCA !! Â COPIES(X2C(00),24) Â Â Â Â Â Â Â Â Â Â
SQLCA = SQLCA !! Â 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); Â Â Â Â Â Â Â Â Â Â Â Â Â Â