In this example, information from a password entry is listed. Then
the protection mode of the password, the protection status of the
data set, and the user data are changed.
72
//REPLPASS JOB ...
//STEP1 EXEC PGM=IEHPROGM,PARM='NOPRINT'
//SYSPRINT DD SYSOUT=A
//DD1 DD UNIT=disk,VOLUME=SER=111111,DISP=OLD
//DD2 DD VOLUME=(PRIVATE,SER=(222222,333333)),
// UNIT=(disk,,DEFER),DISP=OLD
//SYSIN DD *
LIST DSNAME=A.B.C,PASWORD1=ABLE
REPLACE DSNAME=A.B.C,PASWORD1=ABLE,PASWORD2=ABLE,TYPE=3, X
VOL=disk=(222222,333333), X
DATA='NO SECONDARIES; ASSIGNED TO DEPT 31'
/*
The utility control statements are discussed below:
- LIST specifies that the access counter, protection mode, and user
data from the entry for password ABLE are listed. Listing the entry
permits the content of the access counter to be recorded before the
counter is reset to zero by the REPLACE statement.
- REPLACE specifies that the protection mode of password ABLE is
to be changed to allow both read and write access and that the protection
status of the data set is changed to write-only protection. The VOL
parameter is required because the protection status of the data set
is changed and the data set, in this example, is not cataloged. Because
this is a control password, the CPASWORD parameter is not required.