A small ISPF skeleton like this:
)CM Copy datasets with rename
)REXX DSN COUNT
/* make dataset list */
address tso "delstack"
queue dsn
count=queued()
say 'count='count
)ENDREXX
//DSCOPY EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
)DO N = 1 TO &COUNT
)REXX DSN NDS
pull dsn
nds='NEWHQ'.dsn
)ENDREXX
COPY DATASET(INC( &DSN )) -
RENAMEU((&DSN,&DS)) -
TOL(ENQF) CATALOG SHR NULLSTORCLAS SPHERE
)ENDDO
For the demo a dataset is queued inside the skeleton itself, but you can of
course do the queues before running the skeleton. Or you can do a LISTCAT
inside the skeleton and build the dataset list from that.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
