//PTSO     PROC XDSN=,XMEM=
//TSO      EXEC PGM=IKJEFT01,PARM='LISTDS ''&XDSN(&XMEM)'''
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//*
//IF       IF RC=0 THEN
//UPROC    EXEC PROC=RZ$UCC,
//         SYSTEM=&SYSTEM.,
//         PROJECT=&PROJECT.,
//         USER=&XMEM
//UNXSCRI  DD  DISP=(OLD,PASS),DSN=&&TMPSCR
//ENDIF    ENDIF
//PTSOEND  PEND
//*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//S010     EXEC PTSO,XDSN=&UCUSER,XMEM=&OWSID.01
//S020     EXEC PTSO,XDSN=&UCUSER,XMEM=&OWSID.02
//S030     EXEC PTSO,XDSN=&UCUSER,XMEM=&OWSID.03
//S040     EXEC PTSO,XDSN=&UCUSER,XMEM=&OWSID.04
//S050     EXEC PTSO,XDSN=&UCUSER,XMEM=&OWSID.05
//S060     EXEC PTSO,XDSN=&UCUSER,XMEM=&OWSID.06