My memory was faulty . I checked the system at work via VPN (I have two PCs
at home ,,, personal and company, thru same Router)



Here is clarification, including what's in that CL program on "user menu" so
people can change their password without needing command line access. Even
though they do not need it, most demand it, and their managers echo the
demand.



-

Al Mac

_____

From: Al Macintyre





The odd words on BPCS LOGO screen which I was referring to, are at very top
of ours:

Functions Utilities Exit Help

Put cursor over one of those words, then press enter.



If you Work with members using PDM,

specify FILE BPCSDOC in *LIBL library, you will find BPCS documentation
which came with that version of BPCS (in our case we have heavily added to
that). Position to SSALOG which will get you the BPCS logic manual for that
version of BPCS. This should explain a LOT of stuff you need to know.



Here is cut and paste of the CL program we are using:

/*********************************************************************/
/* */
/* Program - SYSMSGPASS Users easy access to IBM password change */
/* from BPCS menus without command line */
/*********************************************************************/
PGM

CHGPWD
/* User keys in old password then new one twice */

ENDPGM
****************** End of data ****************************************



Here maybe is what was in my memory from GO ASSIST.

/*********************************************************************/
/* */
/* Program - SYSMSGA runs "Go Assist Messages Multiple" */
/* Sends Message to Any or All Users */
/* */
/* Purpose of this is to make "Go Assist" */
/* version of Messages Multiple */
/* available from a BPCS menu */
/* without granting command line authority */
/* and limiting the amount of other stuff */
/*********************************************************************/
PGM

/* GO ASSIST */

CALL PGM(QSYS/QEZSNDMG) /* This is an API, +
according to NEWS/400 annual issue on +
AS/400 tips = <http://www.news400.com>
www.news400.com */

ENDPGM



Here's another, where I used lots of comments, because sometimes I forget
how to do some stuff, when I not been there recently.

/*********************************************************************/
/* */
/* Program - SYSMSGUSER Users easy access to Profile SAFE STUFF */
/* from BPCS menus without command line */
/*********************************************************************/
PGM

/* Chapter SIX of CL manual explains the rules */

/* ?? PARAMETER () displays default */
/* and lets users make changes */
/* such as printer defaults */
/* and general ease of usage */

/* ?* PARAMETER () displays story */
/* and blocks users able to change */
/* Al thinks using this makes sense */
/* when useful to see big picture */

/* ?% PARAMETER () is NOT displayed to user */
/* unless F9 is taken */
/* and still blocks user changing */
/* Al thinks this appropriate when */
/* we anticipate never gonna change */

CHGPRF ??ASTLVL(*N) ?*CURLIB(*N) ?*INLPGM(*N) +
?*INLMNU(*N) ??TEXT(*N) ??KBDBUF(*N) +
?*JOBD(*N) ?%DOCPWD(*N) ?*MSGQ(*N) +
??DLVRY(*N) ?*SEV(*N) ??PRTDEV(*N) +
??OUTQ(*N) ?%ATNPGM(*N) ?*SRTSEQ(*N) +
?*LANGID(*N) ?*CNTRYID(*N) ?*CCSID(*N) +
?*CHRIDCTL(*N) ?%SETJOBATR(*N) +
?%LOCALE(*N) ??USROPT(*N) ?*HOMEDIR(*N)

MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(ENDIT)) /* +
F3 F12 etc. allowed */

ENDIT: ENDPGM

-

Al Macintyre

BPCS/400 Guru

AT WORK (via VPN)

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.856 / Virus Database: 271.1.1/3171 - Release Date: 10/01/10
13:34:00



This thread ...

Follow-Ups:

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

This mailing list archive is Copyright 1997-2020 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].