LMMCOPY in Rexx

neerajpeddu · Posted: Tue Jul 29, 2008 11:36 am Post subject: LMMCOPY in Rexx

Hello there,

I was wondering if any one used LMMCOPY feature in REXX. If so, could you please provide me the sample code. I want to copy a member from a PDS to a flat file and want to use this feature.

expat · Posted: Tue Jul 29, 2008 12:10 pm Post subject:

LMCOPY is an ISPF service, NOT a function of REXX.

ISPF services are HERE !

Happy reading

ofer71 · Posted: Tue Jul 29, 2008 12:11 pm Post subject:

LMCOPY has nothing to do with REXX. It is an ISPF Service that you can include in any supported language (including REXX).

The fine ISPF manual contains lots of examples.

O.

sudhakar84 · New User Joined: 20 Jun 2008 Posts: 21 Location: chennai

Hi,

Hope this will help u

ADDRESS ISPEXEC
"LMINIT DATASET("Iput") DATAID(inpSID) ENQ(SHR)"
"LMINIT DATASET("Oput") DATAID(OUTSID) ENQ(SHR)"
"LMCOPY FROMID("inpSID") TO DATAID("OUTSID") ",
"REPLACE TRUNC"
IF RC = 0 THEN
DO
"LMFREE DATAID("INPSID")"
"LMFREE DATAID("OUTSID")"
CALL COUNT_RECORDS
SAY ' COPIED' I 'RECORDS SUCCESSFULY'

expat · Posted: Tue Jul 29, 2008 1:41 pm Post subject:

sudhakar84

Thank you for the code ...................... however !

When posting code, please be aware that some people will just cut and paste your code and then moan when it doesn't work.

Your code contains an unclosed DO loop, and also a CALL to a routine / procedure which you have not included.

Not a dig at you, but maybe a little cover from those who will cut / paste / moan

neerajpeddu · Posted: Tue Jul 29, 2008 6:05 pm Post subject: Reply to: LMMCOPY in Rexx

excellent. Thank you every one for your responses. Thank you Sudhakar for the code. I appreciate your help. I just wanted to get an idea on how this can be achieved and I have it now. Thank you very much.

Thank you expat for the suggestions and I understand your concern about cut/paste/moan

that some people do but I assure you that I am not one of that kind.

dbzTHEdinosauer · Posted: Wed Jul 30, 2008 1:13 pm Post subject:

what?

cut/paste/grin??

neerajpeddu · Posted: Wed Jul 30, 2008 7:49 pm Post subject: Reply to: LMMCOPY in Rexx

Sorry guys, I have one more silly question. I am not able to find answers in the manuals and hence had to fall back on you guys.

I'm trying to do the following and am getting a return code of 8. The manual says that the dataid is not created.
"LMINIT DATAID(INPSID) DATASET("my.dataset(member)") ENQ(SHR)"
"LMINIT DATAID(OUTSID) DATASET("my.new.flat.file") ENQ(SHRW)"

Any ideas on why we get RC = 8? Is it wrong to specify the full dataset including the member name in the DATASET field? Should we pre-create the target file before we do an LMINIT on the target file?

superk · Posted: Wed Jul 30, 2008 7:54 pm Post subject: Re: Reply to: LMMCOPY in Rexx