Re: why isn't my CHGLIBL working?

["William Washington III" <w.washington@xxxxxxxx>]

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