Re: why isn't my CHGLIBL working?

Use QCMDEXC to invoke the CHGLIBL command.  That way, you don't have to worry 
about the
spacing, i.e. allocating 10 or 11 spaces per library the list.  You _do_ have 
to put at
least one space between the libraries.  You're still limited to 25 max 
libraries, though!

For example:

DCL &CMD *CHAR 308                   /* CHGLIBL command string   */
DCL &CMDLEN *DEC (15 5) VALUE(308)   /* Max length of cmd string */
DCL &NEWLIBL *CHAR 275               /* New library list         */
DCL &NEWCURL *CHAR 10                /* New Current Library      */
DCL &USRLIBL *CHAR 275               /* existing library list    */
DCL &CURUSER *CHAR 10

RTVJOBA    USRLIBL(&USRLIBL) CURUSER(&CURUSER) /* save existing libs */
CHGVAR &NEWLIBL ('LIBR1 LIBR2 LIBR3 LIBR4 LIBRARY5 LIB6')
CHGVAR &NEWCURL ('NEWCURRLIB')

CHGVAR &CMD ('CHGLIBL LIBL(' *TCAT &NEWLIBL *TCAT ') +
                    CURLIB(' *TCAT &NEWCURL *TCAT ')')
CALL QCMDEXC (&CMD &CMDLEN)          /* set the library list     */

Hope this helps!  This is my production technique.  I'm sure it's not unique.  
Use the info
retrieved from the RTVJOBA to reset the library list when you're finished in a 
similar
manner.

William Washington III


At 05:10 PM 2/3/2001 +0100, you wrote:


  Leif Svalgaard wrote:

  >
  >
  >      From: Tim Truax
  >       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.
  >
  >      Heres the *DTAARA.
  >                     Value
  >      Offset
  >      *...+....1....+....2....+....3....+....4....+....5
  >              0                'TLTLIB IMPOBJLIB IMPDTALIB
  >      MSTOBJLIB=========================>1234567???     name must
  >      be 10 long I guess.
  >

  Tim,

  I think any mentioned library should be in elements of 11 characters I
  think (check the command. An it should be called by API QCMDEXC the way
  you want to do it.

  Regards,

  Carel Teijgeler

+---
| 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
+---