REXX tool to copy all PDS members to PS

Here is how to copy all PDS members to a single dataset.  Find below the REXX code. The tool can be executed both in front end and batch.
REXX code :

/* REXX */
PARSE UPPER PULL DSN
PARSE UPPER PULL TDS
DUMMY = OUTTRAP("MEMB.","*")
ADDRESS TSO
"LISTDS '"DSN"' MEMBERS"
DUMMY = OUTTRAP("OFF")
T = 0
DO I = 7 TO MEMB.0
DSN1 = "'"DSN"("SPACE(MEMB.I,0)")'"
/* READ PDS MEMBER */
ADDRESS TSO
"ALLOC F(IN) DS("DSN1") SHR"
"EXECIO * DISKR IN (FINIS STEM IN."
"FREE F(IN)"
DO S = 1 TO IN.0
T = T + 1
OUT.T = IN.S
END
END
OUT.0 = T
DSN2 = "'"TDS"'"
/* WRITE TO PS */
ADDRESS TSO
"ALLOC F(OUT) DS("DSN2") SHR"
"EXECIO * DISKW OUT (FINIS STEM OUT."
"FREE F(OUT)"
EXIT

JCL step to excute the tool in batch :

//STEP1 EXEC PGM=IKJEFT01,PARM='PDS2PS'
//*
//* PDS2PS CONTAINS THE REXX CODE
//*
//SYSTSIN DD *
ABCD79.S1234.TT3
ABCD79.S1234.TT4
/*
//* ABCD79.S1234.TT3 IS A PDS
//* ABCD79.S1234.TT4 IS A PS
//*
//SYSTSPRT DD SYSOUT=*
//*
//SYSEXEC DD DSN=N123DF.REXX.CODE,DISP=SHR
//* N123DF.REXX.CODE CONTAINS MEMBER PDS2PS