× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: why isn't my CHGLIBL working?
  • From: rob@xxxxxxxxx
  • Date: Mon, 5 Feb 2001 12:19:28 -0500


Like this standard from BPCSMENU:
RTVDTAARA DTAARA(&USRLIB/INLIBL) RTNVAR(&LIBL)
 CHGVAR     VAR(&CMD) VALUE('CHGLIBL LIBL(' *CAT &LIBL +
              *BCAT 'QGPL QTEMP' *TCAT ')')
CALL PGM(QCMDEXC) PARM(&CMD &LEN)

Yes, you CAN have multiple libraries in there.

Rob Berendt

==================
Remember the Cole!


                                                                                
                                         
                    Rick Williams                                               
                                         
                    <rickw@ibm.net>            To:     
"'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>             
                    Sent by:                   cc:                              
                                         
                    owner-midrange-l@mi        Subject:     RE: why isn't my 
CHGLIBL working?                            
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    02/03/01 03:24 AM                                           
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         




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



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.