Perhaps something like this would allow a LENGTH GT 1000 - you could
give it a try:
ARG WHATEVER
ADDRESS IPCS
PSA_ADDRESS = '00000000'
"EVALUATE" PSA_ADDRESS||. ,
"POSITION("X2D(00)") LENGTH("WHATEVER") REXX(STORAGE(DATA_IN_PSA))"
SAY 'DATA STARTING AT PSA ADDRESS 0 WITH LENGTH 'WHATEVER' IS NOW = '
SAY X2D(DATA_IN_PSA) /* or X2C(DATA_IN_PSA) */
EXIT 0
Cheers, Chris Poncelet (retired sysprog)
On 30/12/2019 20:25, [email protected] wrote:
> Hello,
> .
> After much testing and research I have the following RUNCHAIN command -
> IP RUNC ADDRESS(50_40713830) LINK(3:7) LEN(X'30') CHAIN(1000)
> NULL(X'14617ADC') +
> DISP VERIFY EXEC((LIST X+10? LENGTH(1000))
> .
> Im trying to avoid hard coding values where possible.
> .
> The RUNCHAIN command performs well in a batch IPCS job -
> I am experiencing syntax errors when I try to assign
> a Variable to the LENGTH(1000)). At the moment the DISP VERIFY statement
> always lists 1000 bytes.
> Is there a technique I can use to assign a variable to the LENGTH ?
> DISP VERIFY EXEC((LIST X+10? LENGTH(x+10)) <- Fails on a syntax error...Paul
> D'Angelo.
> .
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
> .
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
