MVSFORUMS.com

[archana]

Hi,

Can anyone help me to copy a member of PDS to other using TSO commands

[infoman123]

you can use ispf

ADDRESS ISPEXEC "LMINIT DATAID(INP) DATASET('"pdsin"') ENQ(SHR)"
ADDRESS ISPEXEC "LMOPEN DATAID(&INP)"

ADDRESS ISPEXEC "LMINIT DATAID(OP1) DATASET('"pdsout"') ENQ(SHR)"
ADDRESS ISPEXEC "LMMLIST DATAID("INP") OPTION(LIST) MEMBER(Mem)"
ADDRESS ISPEXEC "LMCOPY FROMID(&INP) FROMMEM("Mem") TODATAID(&OP1)"

ADDRESS ispexec "LMCLOSE DATAID(&OP1)"
ADDRESS ISPEXEC "LMFREE DATAID(&OP1)"

ADDRESS ISPEXEC "LMCLOSE DATAID("INP")"
ADDRESS ISPEXEC "LMFREE DATAID("INP")"

regards

[dbzTHEdinosauer]

archana,

3.x screens are utilities provided within ISPF that you can use. (PF1 for help)

There are line command that can be used on a memberlist display. (PF1 for help)

or at a command line simply enter TSO COPY help.
_________________
Dick Brenholtz
American living in Varel, Germany