RE: Granting another group profile

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