RE: why isn't my CHGLIBL working?

[Rick Williams <rickw@xxxxxxx>]

Wrap CHGLIBL and the required library list into a single command string and 
call it using QCMDEXC. 

** Beginning of data (testdta)  ******************
PGM
DCL        VAR(&LIST) TYPE(*CHAR) LEN(200)
dcl        &cmd  *char  1000    
RTVDTAARA  DTAARA(GNTDA001 (1 200)) RTNVAR(&LIST)
chgvar     &cmd ('CHGLIBL LIBL(' *CAT &liblst *TCAT ')')      
call       QCMDEXC (&cmd 1000)
/* CHGLIBL    LIBL(&LIST) */
ENDPGM
***** End of data ********************************

-----Original Message-----
From:   Tim Truax [SMTP:truax@telerama.com]
Sent:   Friday, February 02, 2001 5:04 PM
To:     MIDRANGE-L list
Subject:        why isn't my CHGLIBL working?

Hello all,

I am trying to call the CHGLIBL from my CLP (testdta) in this manner:

** Beginning of data (testdta)  ******************
PGM
DCL        VAR(&LIST) TYPE(*CHAR) LEN(200)
RTVDTAARA  DTAARA(GNTDA001 (1 200)) RTNVAR(&LIST)
CHGLIBL    LIBL(&LIST)
ENDPGM
***** End of data ********************************

and it is failing with this error:

call testdta
Value 'TLTLIB    ' for parameter LIBL not a valid name.
Error found on CHGLIBL command.
Function check. CPF0001 unmonitored by TESTDTA at statement 1000,
  instruction X'0027'.
CPF0001 received by TESTDTA at 1000. (C D I R)
CPF0001 received by TESTDTA at 1000. (C D I R)

Heres the *DTAARA.

               Value
Offset          *...+....1....+....2....+....3....+....4....+....5
        0                'TLTLIB IMPOBJLIB IMPDTALIB MSTOBJLIB MSTDTALIB    '
       50                'SUSOBJLIB SUSDTALIB PRODPLIB  PT3OBJLIB PT3DTALIB '
      100                'PODDTALIB GPLLIB    DTALIBHST PRODDLIB  MKTDTALIB '
      150                'JOBACCT   CSVDTALIB CSVOBJLIB ROBOTLIB  QGPL      '
      200                '                                                  '
      250                '                                                  '
      300                '                                                  '
      350                '                                                  '
      400                '                                                  '

Suggestions as to why this is failing will be appreciated.
Tim Truax


 << File: ATT00008.html >> 
+---
| 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
+---