$JOB LOGIN
.R PASSWD
.R PIP
*PDP:<SYS:PASSWD.SX
*SYS:PASSWD.SX</D
*SYS:DUMMY[1]<SYS:LOGIN.BI
*SYS:DUMMY</D
*W<PDR:
.MUNG RSTS,LOGIN
.SUBMIT SYS:W/Q/T
$END