× 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: Granting another group profile
  • From: "Richard Casey" <casey_r@xxxxxxxxxxxxxxxx>
  • Date: Wed, 28 Feb 2001 12:50:19 -0500
  • Importance: Normal

Gord,

I goofed on that code (knew I should have tested it!).
See my updated version when it gets posted to the list.

Basically, instead of this:

              CHGVAR     VAR(&SUPGRPPRF) +
                         VALUE(&USER *CAT %SST(&SUPGRPPRF 1 140))
              CHGUSRPRF  USRPRF(&GRPLIST) SUPGRPPRF(&SUPGRPPRF)

use this:
              DCL        VAR(&CMD) TYPE(*CHAR) LEN(200)
              ...
              CHGVAR     VAR(&CMD) +
                         VALUE('CHGUSRPRF USRPRF(' *TCAT &GRPLIST *TCAT +
                         ') SUPGRPPRF(' *TCAT &USER *BCAT +
                         %SST(&SUPGRPPRF 1 140) *TCAT ')')
              CALL       PGM(QCMDEXC) PARM(&CMD 200)

Hope this helps!
Richard

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Gord Hutchinson
Sent: Wednesday, February 28, 2001 11:54 AM
To: MIDRANGE-L@midrange.com
Subject: Re: Granting another group profile


On Wed, 28 Feb 2001 10:55:59 -0500, "Richard Casey"
<casey_r@popmail.firn.edu>
wrote:

>/* Add profile to current supplemental profile list. */
>              CHGVAR     VAR(&SUPGRPPRF) +
>                         VALUE(&USER *CAT %SST(&SUPGRPPRF 1 140))
>              CHGUSRPRF  USRPRF(&GRPLIST) SUPGRPPRF(&SUPGRPPRF)
>              GOTO       CMDLBL(GETREC)
>

Coincidentally,  I am trying to do the same thing.  What I have done is a
DSPUSRPRF to an outfile.  I am then changing &UPSUPG to include the new
group
profile.  Unfortunately, when I do the CHGUSRPRF, I am getting CPD0078 -
"Value
'OEXGROUP   ' for parameter SUPGRPPRF not a valid name".  OEXGROUP is the
first
of 4 groups currently in SUPGRPPRF (I am trying to add a 5th).

Gord


--
Gord Hutchinson
Database Administrator
TST Overland Express
ghutchinson@tstoverland.com
905-212-6330
fax: 905-602-8895

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

Replies:

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.