Page 1 of 1
REXX/CLIST for Job card.
Posted: Fri Jan 10, 2014 11:15 pm
by BobThomas
Hello,
Could you please guide me to write a code to get the Job-Card with a TSO command automatically; for example if user types jobcard command line and gets the job-card in turn inserted.
Re: REXX/CLIST for Job card.
Posted: Sat Jan 11, 2014 9:37 am
by Robert Sample
The job card is EXTREMELY specific to each site -- some sites use one accounting field, or two, or three, or five, or none -- so to a large degree what you want can only be achieved by someone working at your site.
Re: REXX/CLIST for Job card.
Posted: Sat Jan 11, 2014 11:15 am
by Anuj Dhawan
As Robert has said that the job card is specific to each site, as it uses some parameters which are specific to the shop you are working at. However, your post is in TSO, ISPF & REXX part of the Forum, I've presumed that you're looking for an edit macro, if yes - you might try using this edit macro. This will create a job name with your RACF ID plus "A". So if your ID is XY1234Z - the job name will be XY1234ZA. You also need to replace all the "x"s with appropriate substitutions specific to your shop.
Code: Select all
/* REXX */
ADDRESS ISREDIT
'MACRO'
"LINE_AFTER 0 = '//"USERID()"A JOB (,,,,),'"
"LINE_AFTER 1 = '// xxxxx, '"
"LINE_AFTER 2 = '// CLASS=x, '"
"LINE_AFTER 3 = '// NOTIFY=xxxxxx, '"
"LINE_AFTER 4 = '// MSGCLASS=x'"
"LINE_AFTER 5 = '//* '"
Re: REXX/CLIST for Job card.
Posted: Sun Jan 12, 2014 4:30 pm
by BobThomas
Thanks Robert.
Thanks Anuj - this is what I was looking forward to, thanks for the direction.
Regards,
Bob
Re: REXX/CLIST for Job card.
Posted: Sun Jan 12, 2014 8:27 pm
by Anuj Dhawan
You're welcome!
Glad that we had been helpful.