Re: library list variables

[Don <dr2@xxxxxxxxxxxx>]

Rolf,

something tells me that this is a pre-5.1 version...

Don in DC

-----

On Wed, 2 May 2001, Rolf Mittag wrote:

>  dcl  &USRLIBL   *char (   275    )
> 
>  dcl  &cmd       *char (   512    )
>  dcl  &cmdLen    *dec  (    15 5  ) 512
> 
>  rtvJobA USRLIBL(&USRLIBL)
> 
>     processing starts here
> 
>  chgVar %sst(&cmd   1  13) 'chgLibL LibL('
>  chgVar %sst(&§cmd  14 275) &UsrLibL
>  chgVar %sst(&cmd 289   1) ')'
>  call   qCaExec (&cmd &cmdLen)
> 
> ---------------------------
> Dipl.Inf.(FH) Rolf P Mittag
> IBM Partner in Development
> Leipziger Str. 50
> D-69214 Eppelheim
> Fon: +49 (6221) 76 78 60
> Fax: +49 (6221) 76 80 26
> eMl: rm@r-m-e-d-v.de
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---