|
View previous topic :: View next topic
|
| Author |
Message |
s.ayodhyawasi
New User
Joined: 16 Sep 2006
Posts: 13
|
|
|
|
I am using "CUT" option with some name inside ps file
like -> cut jobcard
this will assign jobcard name to those lines on which the cut option was used. and now when i use "paste jobcard", those lines will be pasted. but when i logoff from my id, this jobcard name get removed from profile and on next lonin i need to assign the block of lines again to jobcard using "cut jobcard" option, before using it for paste.
Is there a way to save it before logoff? |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
My first guess is that the contents are saved in a temporary file which gets deleted at logoff time.
Look at the cut macro, and see if it is possible to create your own version - DO NOT change the installed version - to save the cut data. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
Create a member with your job card(s) then use:
COPY jobcard
or
COPY hlq.template(jobcard)
instead of using the clipboard |
|
| Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA
|
|
|
|
| Or write an edit macro to insert a JOB statement in the file you are editing. That way you don't have to have it stored anywhere except in one of your SYSPROC data sets. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
As suggested by Terry, and posted earlier by me .........
Terry, it doesn't have to be in any ISPF defined libraries.
If you do need a macro to insert things into a dataset when not using file tailoring, I find it is far easier to keep the inserts in a seperate library and insert the whole member in one hit. It keeps it a whole lot cleaner than generating the JCL in the REXX code, and means that not only can the same member be used anywhere else that I want, but if it needs to be changed it only needs to be changed once.
This is the macro that I use to insert a jobcard at the top of a JCL stream.
| Code: |
"ISREDIT MACRO"
"ISREDIT COPY 'My library(JOBCARD)' AFTER "0
"ISREDIT END"
|
|
|
| Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA
|
|
|
|
Never thought of doing it that way, expat. I've been using this really old version for a long time:
| Code: |
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
/* */
/* MEMBER - USER.CLIST(JC) */
/* DESCRIPTION - INSERT A JOB STATEMENT AT THE BEGINNING OF THE */
/* MEMBER BEING EDITED. */
/* AUTHOR - MAINFRAME JOURNAL */
/* CREATED - 12/07/1989 */
/* MODIFIED - 10/20/2008 BY THEINZE */
/* */
ISREDIT MACRO
SET USER = &&SYSUID
ISREDIT LINE_AFTER 00 = "+
//&SYSUID.X JOB (XXXXXXXX-XXXX-XXXXX),'YOUR NAME HERE--XXXX'," /* INSERT
ISREDIT LINE_AFTER 01 = "+
// CLASS=4, " /* JOB
ISREDIT LINE_AFTER 02 = "+
// COND=(0,NE), " /* STMT
ISREDIT LINE_AFTER 03 = "+
// MSGCLASS=X, " /* AND
ISREDIT LINE_AFTER 04 = "+
// MSGLEVEL=(1,1), " /* PARMS
ISREDIT LINE_AFTER 05 = "+
// NOTIFY=&&USER, " /*
ISREDIT LINE_AFTER 06 = "+
// REGION=0M " /*
ISREDIT LINE_AFTER 07 = "+
//* "
SET &ZEDSMSG = JOB STMT INSERTED /* FILL SHORT MSG
SET &ZEDLMSG = A JOB STATEMENT HAS BEEN INSERTED AT THE BEGINNING +
OF THIS MEMBER /* FILL LONG MSG
ISPEXEC SETMSG MSG(ISRZ000) /* DISPLAY SHORT MSG |
Of course I have to modify it slightly at each site I'm at. |
|
| Back to top |
|
|
s.ayodhyawasi
New User
Joined: 16 Sep 2006
Posts: 13
|
|
|
|
| Thanks guys |
|
| Back to top |
|
|
|
|
