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

Mainframe ISPREDIT Macro query


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

Active User


Joined: 28 Sep 2017
Posts: 106
Location: India

PostPosted: Wed May 27, 2020 1:12 pm
Reply with quote

Hi All,

I have coded my own CUT and PASTE Macros using Labels(Learning purpose).

Like cut the code between two Labels and Paste the code based on cursor position or based on Labels(After or before).

But My query is something like Pasting code after enter A in command line

See details:-

After executing my CUT Macro

Like pasting in my below JCL after user enters Character A as below
Code:

000001 //XXXXREST JOB 1,CLASS=P,MSGCLASS=0,NOTIFY=&SYSUID                   
000002 //********************************************************/         
000003 //*UPDATE JOBID,DUMPNAME,DATASETS TO BE RESTORED.        */         
00000A //********************************************************/         
000005 //RESTORE  EXEC PGM=ADRDSSU PARM=('TYPRUN=NORUN')                   
000006 //SYSMDUMP DD SYSOUT=*                                               
000007 //SYSPRINT DD SYSOUT=*                                               
000008 //INPUT    DD DISP=SHR,DSN=<DUMP-DATASET-NAME> /*UPDATE DUMP NAME*/ 
000009 //SYSIN    DD DUMMY                                                 


In the above code if I issue my paste Macro , It suppose to paste code after Line 4.

But how extract user mentioned character 'A' in Macro?

Any suggestions...

Thanks!
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed May 27, 2020 1:45 pm
Reply with quote

I think you need to read this section of the manual - "Specifying a destination"
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 418
Location: Denmark

PostPosted: Wed May 27, 2020 3:38 pm
Reply with quote

Snippet from one of my macros:
Code:
 Address IsrEdit                       
 "PROCESS DEST"                       
 if rc<8 then "(lnr)= linenum .zdest" 
 else         "(lnr)= linenum .zcsr " 

I agree with Nic, please refer to the manual for details.
Back to top
View user's profile Send private message
upendrasri

Active User


Joined: 28 Sep 2017
Posts: 106
Location: India

PostPosted: Thu May 28, 2020 5:06 pm
Reply with quote

Hi Nic and WJ,

Thanks for your suggestions..

Regards..
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 Looking for mainframe developers Mainframe Jobs 0
No new posts Need Help with on of the coalesce query DB2 4
No new posts Looking for mainframe system programmers Mainframe Jobs 0
No new posts Proc print in Mainframe All Other Mainframe Topics 4
No new posts Need opinion on mainframe to cloud mi... General Talk & Fun Stuff 6
Search our Forums:

Back to Top