Re: ##EMailNumber 01-WNY-5756132 CHGPWD - Reply

["David Gibbs" <devdmg@xxxxxxxxxxxxxxxxxxxxxxxx>]

On 23 Sep 97 at 14:13, jmoreno@militarycars.com wrote:

> Because the command has no parameters it will be difficult ....
> Because a validation program may need to REDO all the validation
> performed in the original CPP it is a redundant PAIN / PAIN / PAIN /
> PAIN. Sorry to tell you no easy way out.  

Um... I beg to differ with you on this.  It's quite easy.

Just write a CL that does the following...

PGM

        DCLF <display file with informational message>

        SNDRCVF

        QSYS/CHGPWD

ENDPGM

Create a CMD called CHGPWD, with the following...

CMD('Alternate CHGPWD')

Create the CL and CMD in a library that's placed HIGHER on the system 
library list than QSYS.

Thus, when the CHGPWD command is invoked, the custom version is 
called... the information is displayed, and the QSYS version of 
CHGPWD is then invoked.

Of course, if IBM were to add parameters to the CHGPWD command, it 
will become a bit harder.  But for all versions of OS400 that I've 
seen (upto V3R1), it's a piece of cake.

david
--

David Gibbs
Sr. Software Engineer
Silvon Software
Westmont, IL
(630) 655-3313 x6479
http://www.silvon.com
mailto:david.gibbs@silvon.com

Opinions expressed are strictly my own and do 
not necessarily reflect those of my employer

... You'll only see your obstacles each time 
    you take your eyes off of your goal.

                   -- DMRoth
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---