IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

HOW TO CUT AND PASTE FROM ANOTHER MEMBER OF A DATASET


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
MARINA JOSEPH

New User


Joined: 11 Jun 2009
Posts: 61
Location: chennai

PostPosted: Tue Dec 08, 2009 11:57 am
Reply with quote

Hi,

I have created a MACRO which will create a copy of the copybook that is being used in the program.

Program Name - SAMPLE
Macro Name - MYREXX
Copybook Name - EMPLOYEE

MYREXX creates copy of the copybook EMPLOYEE.
I need to copy paste the contents of EMPLOYEE and the copy created into the program SAMPLE, using the MACRO.

Could somebody please tell how to do this using the COPY PASTE commands with the help of a MACRO?

Thanks in advance.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Dec 08, 2009 12:53 pm
Reply with quote

1) Please do NOT use all caps in the title, it is considered as shouting, and inappropriate.

2)Your requirement is not totally clear - do you really want to copy the originial copybook and your copy of a copybook into the program.

3)Where is the insert made ? position of cursor or fixed location.
Back to top
View user's profile Send private message
MARINA JOSEPH

New User


Joined: 11 Jun 2009
Posts: 61
Location: chennai

PostPosted: Tue Dec 08, 2009 12:58 pm
Reply with quote

Thanks for your reply.

Yes, i want to copy the contents of the original copybook and the copy into the program.

I need to make the inserts after line 33 and line 37 in the program.

Thanks.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Dec 08, 2009 1:16 pm
Reply with quote

As ISPF uses relative line numbers - always work from the bottom upwards to preserve the relative values for multiple inserts.

Code:
CRSLINE = 37
"ISREDIT COPY 'PDS name(member)' AFTER "CRSLINE

CRSLINE = 33
"ISREDIT COPY 'PDS name(member)' AFTER "CRSLINE
Back to top
View user's profile Send private message
MARINA JOSEPH

New User


Joined: 11 Jun 2009
Posts: 61
Location: chennai

PostPosted: Tue Dec 08, 2009 5:13 pm
Reply with quote

Thanks a lot, it worked.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Allocated cylinders of a dataset DB2 12
No new posts Sort First/last record of a subset th... DFSORT/ICETOOL 7
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
Search our Forums:

Back to Top