PGM  PARM(&USERID &PASSWORD)

             DCL        VAR(&ORGUSER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&USERID) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PASSWORD) TYPE(*CHAR) LEN(10)

/* GET THE CURRENT USER PROFILE */
             RTVJOBA    USER(&ORGUSER)

/* SWAP JOB'S CURRENT USER PROFILE TO THE PUBLIC USER PROFLE */
             CALL  PGM(SWAPUSRPRF) PARM(&USERID &PASSWORD)

 /* NOW DISPLAY THE SPOOLED FILES FOR THE NEW USER PROFILE TO VERIFY SWAP */
             WRKSPLF  ASTLVL(*BASIC)

 /* NOW SWAP BACK TO THE ORIGINAL USER PROFILE */
             CALL  PGM(SWAPUSRPRF) PARM(&ORGUSER '*NOPWDCHK')

 /* NOW DISPLAY THE SPOOLED FILES FOR THE OLD USER PROFILE TO VERIFY SWAP */
             WRKSPLF    ASTLVL(*BASIC)



ENDPGM