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



unfortunately it's not so easy

>      RTVUSRPRF  USRPRF(&USR) SUPGRPPRF(&SUPGRPPRF)

now you got an array (!!!) of 15 fields of char(10)

>      CHGUSRPRF  USRPRF(&USR) SUPGRPPRF(&SUPGRPPRF &NEWENTRY)

this cannot work because you would add starting after element 15

my suggestion would be

loop thru the array with %sst and check where the next free entry is, i.e.
the
element is blank

then insert you first value at that position

the change the user profile

hth Rolf

---------------------------
Dipl.Inf.(FH) Rolf P Mittag
IBM Partner in Development
Leipziger Str. 50
D-69214 Eppelheim
Fon: +49 (6221) 76 78 60
Fax: +49 (6221) 76 80 26
eMl: rm@r-m-e-d-v.de



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.