BPX4PWD (__passwd, __passwd__applid) example

The following code queries/changes the password of a given user ID. For the callable service, see __passwd, __passwd__applid (BPX1PWD, BPX4PWD) — Verify or change security information. AMODE 31 callers use BPX1PWD (__passwd, __passwd__applid) example.

                                              
         MVC   USERNLEN,=F'8'                                           
         MVC   USERNAME(8),=CL8'Myuserid'                               
         MVC   OLDPASSLEN,=F'8'                                         
         MVC   OLDPASS(8),=CL8'MyOldPwd'                                
         MVC   NEWPASSLEN,=F'8'                                         
         MVC   NEWPASS(8),=CL8'MyNewPwd'                                
         SPACE ,                                                        
         CALL  BPX4PWD,              Query/change user ID password     +
               (USERNLEN,            Input: Length of user ID          +
               USERNAME,             Input: User ID                    +
               OLDPASSLEN,           Input: Length of old password     +
               OLDPASS,              Input: Old password               +
               NEWPASSLEN,           Input: Length of new password     +
               NEWPASS,              Input: New password               +
               RETVAL,               Return value 0 or -1              +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------