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