Re: copy a member from one library to another in REXX

Harrington, Mark

unread,

Mar 26, 2008, 6:12:17 PM3/26/08

to

Hi all I am trying to copy multiple members from one library to another
I am using "copy 'xxxx.xxxx("member")'" 'xxxxx.xx2("member")'"

And I get this meassage that I have to respnd to

ASI1520205 DATA SET 'HCMCD.UPGD.PROCLIB' IS ABOUT TO BE REUSED,
ASI1520206 DEPRESS ENTER TO CONTINUE, OR PA1 TO CANCEL REQUEST,

How can I turn this off or what else can I use besides the word copy?

Thanks

Mark H.

----------------------------------------------------------
IMPORTANT WARNING: This email (and any attachments) is only intended for the use of the person or entity to which it is addressed, and may contain information that is privileged and confidential. You, the recipient, are obligated to maintain it in a safe, secure and confidential manner. Unauthorized redisclosure or failure to maintain confidentiality may subject you to federal and state penalties. If you are not the recipient, please immediately notify us by return email, and delete this message from your computer.
----------------------------------------------------------

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

Dave Salt

unread,

Mar 26, 2008, 6:56:45 PM3/26/08

to

> From: MHarr...@MEDNET.UCLA.EDU

> Hi all I am trying to copy multiple members from one library to another

Take a look at the ISPF 'LMCOPY' service.

Dave Salt

See the new SimpList(tm) rollover image at:
http://www.mackinney.com/products/SIM/simplist.htm

_________________________________________________________________
Enter the Hunt & you could win a 2008 Eclipse Spyder! Click here to enter!
http://g.msn.ca/ca55/213

Harrington, Mark

unread,

Mar 26, 2008, 7:48:15 PM3/26/08

to

Thanks Dave. I needed to get it done quickly so I Mickey moused it and
used a queue statement to trigger the copy. But I'm changing it to
lmcopy for the future.

M.

Dave Salt

----------------------------------------------------------

IMPORTANT WARNING: This email (and any attachments) is only intended for the use of the person or entity to which it is addressed, and may contain information that is privileged and confidential. You, the recipient, are obligated to maintain it in a safe, secure and confidential manner. Unauthorized redisclosure or failure to maintain confidentiality may subject you to federal and state penalties. If you are not the recipient, please immediately notify us by return email, and delete this message from your computer.
----------------------------------------------------------

----------------------------------------------------------------------

Raymond Noal

unread,

Mar 26, 2008, 7:56:32 PM3/26/08

to

Mark,

Try this -

"ALLOC F(SDSN) DA("PERFCONT.VTFM30.DSN") SHR REUSE"

When you allocate your PDS. I use this in a REXX exec that creates multiple PDS menbers for me. I do not receive your ASI messages. It just runs with CC=0.

HITACHI
DATA SYSTEMS
Raymond E. Noal
Senior Technical Engineer
Office: (408) 970 - 7978

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Harrington, Mark
Sent: Wednesday, March 26, 2008 3:12 PM
To: TSO-...@VM.MARIST.EDU

Mickey

unread,

Mar 26, 2008, 7:59:27 PM3/26/08

to

Hey, I resemble that remark.

Mickey

--------------------------------------------------
From: "Harrington, Mark" <MHarr...@MEDNET.UCLA.EDU>
Sent: Wednesday, March 26, 2008 7:45 PM
To: <TSO-...@VM.MARIST.EDU>
Subject: Re: [TSO-REXX] copy a member from one library to another in REXX

James Campbell

unread,

Mar 27, 2008, 5:11:46 AM3/27/08

to

ASI1520205 is not a standard IBM message-id. You probably have an ISV package which is
being cautious.
To turn it off, you may have to read the product documentation. Sometimes these packages
check for MSG status:
x = MSG('OFF')
and decide you don't want the warning.

Perhaps PUSHing a blank line into the stack before the copy will satisfy it.

James Campbell

> Date: Wed, 26 Mar 2008 15:11:57 -0700
> From: "Harrington, Mark" <MHarr...@MEDNET.UCLA.EDU>

> Subject: Re: copy a member from one library to another in REXX
>

> Hi all I am trying to copy multiple members from one library to another

> I am using "copy 'xxxx.xxxx("member")'" 'xxxxx.xx2("member")'"
>

> And I get this meassage that I have to respnd to=20

>
> ASI1520205 DATA SET 'HCMCD.UPGD.PROCLIB' IS ABOUT TO BE REUSED,
> ASI1520206 DEPRESS ENTER TO CONTINUE, OR PA1 TO CANCEL REQUEST,
>
> How can I turn this off or what else can I use besides the word copy?
>

> Thanks=20
>
> Mark H. =20

Mickey

unread,

Mar 27, 2008, 7:43:28 AM3/27/08

to

/*Rexx Pds2pds */
Address 'ISPEXEC'
Arg Indd Outdd Nflag
upper indd outdd Nflag
outdd = "'" || Outdd || "'"
indd = "'" || indd || "'"
Address 'TSO' "ALLOC DA("outdd") New Like("indd")"
"LMINIT DATAID("DATA1") DATASET("indd") ENQ(SHR)"
"LMINIT DATAID("DATA2") DATASET("outdd") ENQ(SHR)"
"LMCOPY FROMID("data1") FROMMEM(*) TODATAID("data2")"
"LMFREE DATAID("DATA1")"
"LMFREE DATAID("DATA2")"
Address 'TSO' "FREE DA("outdd")"
Return

--------------------------------------------------
From: "James Campbell" <jacam...@ACSLINK.NET.AU>
Sent: Thursday, March 27, 2008 5:11 AM
To: <TSO-...@VM.MARIST.EDU>
Subject: Re: [TSO-REXX] copy a member from one library to another in REXX

Cruz, Robert

unread,

Mar 27, 2008, 11:41:38 AM3/27/08

to

I think there's a typo here. Shouldn't that be:

"ALLOC F(SDSN) DA('PERFCONT.VTFM30.DSN') SHR REUSE"

Note the use of apostrophes surrouding the DSN, rather than quotes.
Unless, of course, I misunderstood and PERFCONT.VTFM30.DSN is a REXX variable containing the DSN and enclosing apostrophes.

Mark,

Try this -

Thanks

Mark H.

--------------------------------------------------------

The information contained in this message is intended only for the recipient, and may be a confidential attorney-client communication or may otherwise be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, please be aware that any dissemination or copying of this communication is strictly prohibited. If you have received this communication in error, please immediately notify us by replying to the message and deleting it from your computer. The McGraw-Hill Companies, Inc. reserves the right, subject to applicable local law, to monitor and review the content of any electronic message or information sent to or from McGraw-Hill employee e-mail addresses without informing the sender or recipient of the message.

Harrington, Mark

unread,

Mar 27, 2008, 1:36:45 PM3/27/08

to

Hi James yes I queued a blank line and that got over it but I still got
the messages. Lmcopy seems the way to go.

m.

----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf

James Campbell

----------------------------------------------------------

IMPORTANT WARNING: This email (and any attachments) is only intended for the use of the person or entity to which it is addressed, and may contain information that is privileged and confidential. You, the recipient, are obligated to maintain it in a safe, secure and confidential manner. Unauthorized redisclosure or failure to maintain confidentiality may subject you to federal and state penalties. If you are not the recipient, please immediately notify us by return email, and delete this message from your computer.
----------------------------------------------------------

----------------------------------------------------------------------

mantas...@gmail.com

unread,

Dec 20, 2012, 5:32:38 AM12/20/12

to TSO REXX Discussion List

This works perfect to me:
frompds="FROM.TEMPMASK.HAND"
topds="TO.AO0123.RDRJCL"
mem="MEMBER1"
address ISPEXEC
"LMINIT DATAID("DDIN") DATASET('"frompds"') ENQ(SHRW)"
"LMINIT DATAID("DDOUT") DATASET('"topds"') ENQ(SHRW)"
"LMCOPY FROMID("DDIN") FROMMEM("MEM") TODATAID("DDOUT") REPLACE"