How can I copy the member from lib to lib

kennedy_zhu · New User Joined: 30 Nov 2007 Posts: 21 Location: China

I have an question=> how can I copy the member from lib to lib,

The requirment is that we know the from lib, and lib, member list as well.

There are thousand of members included in one lib.

Could we use Rexx to implement the function just as we do in the line command using 'C' ? : )

expat · Posted: Tue May 20, 2008 1:14 pm Post subject:

Yes, ISPF function LMCOPY should work fine.

kennedy_zhu · New User Joined: 30 Nov 2007 Posts: 21 Location: China

Hi, expat:

Thanks.

However, when I try to involve the ISPF command in Rexx but failed,

return error like that =>

ISPS108

Invalid length
Parameter 'FROMID' exceeds the allowable length.

The Rexx code like that.

/* REXX */
TRACE N
DDVAR1 = ''xxxx.yy.JCL''
DDVAR2 = 'xxxx.yy.SORC'
TEST01 = 'TEMP'
ADDRESS ISPEXEC 'LMCOPY FROMID(&DDVAR1) FROMMEM(&TEST01) +
TODATAID(&DDVAR2)'

Could you please give me a hand?

enrico-sorichetti

google or search the forum for samples

why not look also at the manuals
starting from http://www-03.ibm.com/systems/z/os/zos/bkserv/index.html#other_pubs

and choosing the release You are using

Pedro

Hint: use LMINIT before LMCOPY

kennedy_zhu · New User Joined: 30 Nov 2007 Posts: 21 Location: China

Hi, all:

Thanks for your gently reminder. I get some sample like that =>

ADDRESS ISPEXEC
'LMINIT DATAID(INDD1) DATASET(''xxx.yyy.JCL'')'
'LMINIT DATAID(OUTDD1) DATASET(''xxx.yyy.SORC'')'
'LMCOPY FROMID('INDD1') TODATAID('OUTDD1') FROMMEM(TEMP)
TOMEM(TEMP) REPLACE PACK'
IF RC NOT = 0 THEN
SAY 'FAILED TO COPY'
/* LEAVE */
ELSE
SAY 'COPIED'
'LMFREE DATAID('INDD1')'
'LMFREE DATAID('OUTDD1')'

It works. Thanks! : )