How to change PWPALLOW in logonid record using ACFSVC ACALT

Products

• ACF2 - z/OS

Issue/Introduction

How to setup input to an assembler program to set PWPALLOW in a logonid record
using ACFSVC ACALT.

Environment

Release : 16.0

Component : ACF2 for z/OS

Resolution

CAX1SAMP member DDBPSWD2 gives examples of using ACFSVC ACALT to change password related fields.
The format of the ACARE  parameter list is most important.
For example PSWD-EXP is one of the fields used in DDBPSWD2 as follows.

*--------------------------------------------------------------*
* INITIALIZE THE PASSWORD-EXP XARE HEADER SECTION               
*--------------------------------------------------------------*
         L     R15,AREADDR             GET PREV XARE ADDRESS    
         AH    R15,ARELNTH-ACARE(R15)  POINT TO NEXT XARE       
         USING ACARE,R15               ESTABLISH ADDRESSABILITY 
         ST    R15,AREADDR             SAVE ADDRESS             
*                                                               
         LA    R1,AREXQFLE+L'AREVLNTH+1+1 1 IS LENGTH OF VALUE  
         SRL   R1,1                                             
         SLL   R1,1                                             
         STCM  R1,3,ARELNTH            SAVE THE XARE LENGTH     
*                                                               
         MVI   AREFLGS,X'00'           ZERO FLAG                
         MVI   ARECFLG,ARESREP         INDICATE BIT SETTING     
         MVC   AREANAME,=CL8'PSWD-EXP' NAME OF FLD TO CHANGE    
         MVI   AREMFLG,AREMXARE        INDICATE THIS IS XARE    
         LA    R1,AREXQFLE             GET HEADER SECTION LENGTH
         STCM  R1,3,AREXFLEN           SAVE LENGTH              
         STCM  R1,3,AREXVOFF           SAVE OFFSET TO VAR SECTION
*--------------------------------------------------------------
* INITIALIZE THE PASSWORD XARE VARIABLE SECTION                
*--------------------------------------------------------------
         LA    R15,AREXQFLE(,R15)      POINT TO VARIABLE SECTIO
         USING AREXVSEC,R15            ESTABLISH ADDRESSIBILITY
*                                                              
         MVC   AREVLNTH,=AL2(1)        LENGTH OF CHANGE FIELD  
         MVI   AREVALUE,X'00'          MOVE IN CHANGED VALUE   
         TM    LIDM2FLG,LIDM2PXP       PSWD-EXP ON?            
         BZ    NOPSWDEX                NO                      
         MVI   AREVALUE,LIDM2PXP       FLIP IT ON            
 
the same code can be used to change PWPALLOW.
Set AREANAME to PWPALLOW 
and AREVALUE to LIDM5PWP