>> "I have tested both versions in 1.13 and 2.3 systems successfully."
> Good to know Willie! Could you post the essentials of your successful INFO
> call to return DSNAME for DDNAME?
> I'd like to see how it differs from mine, which failed.
Willie:
Here are the essentials of my version which works.
The request parm *does not* have a halfword length prefix:
CALL BPXWDYN,(INFODD,INRTDSN),VL
[...]
INFODD DC C'INFO DD(DDNAME)',X'00'
INRTDSN DC AL2(45),C'INRTDSN',XL38'00'
And here is the version which fails with a S0C4.
The request parm *does* have a halfword length prefix:
CALL BPXWDYN,(INFODD,INRTDSN),VL
[...]
INFODD DC CALL BPXWDYN,(INFODD,INRTDSN),VL
[...]
INFODD DC AL2(16),C'INFO DD(DDNAME)',X'00'
INRTDSN DC AL2(45),C'INRTDSN',XL38'00'
The manual says the above should work, but it doesn't.
Could you post the essentials of your successful INFO call using a request parm
with a halfword lenth prefix?
I'd like to see how it differs from mine.
