REXX/CLIST for Job card.

[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.

[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.

[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 = '//*  '"

[BobThomas]

Thanks Robert.

Thanks Anuj - this is what I was looking forward to, thanks for the direction.

Regards,
Bob

[Anuj Dhawan]

You're welcome!

Glad that we had been helpful.