/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : JOBCARD                        */         
/*                                                                   */         
/*  Description :  This ISPF EDIT macro will generate a jobcard at   */         
/*               the top of a JCL stream. The two character job      */         
/*               suffix can be passed on the call as can the job     */         
/*               class. The suffix will be appended to the TSO userid*/         
/*               of the user running the macro.                      */         
/*                                                                   */         
/*  Created on : 26 Mar 2018                                         */         
/*  Created by : KEVIN FERGUSON                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.XFER.EMACS(JOBCARD)                  */         
/*                                                                   */         
/*  Called by :                                                      */         
/*                                                                   */         
/*  Calls :                                                          */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
ADDRESS ISREDIT "MACRO (JN CLASS)"                                              
if jn = "" then jn = "XX"           /* Change if required            */         
if class = "" then class = "A"      /* Change if required            */         
/*-------------------------------------------------------------------*/         
/* Site variables follow                                             */         
/*-------------------------------------------------------------------*/         
account = '(ASL,'userid()',291108)' /* Change to your site accounts  */         
comment = 'ABBYDALE'                /* Change if required            */         
region = '3'                        /* Default region size           */         
/*-------------------------------------------------------------------*/         
/* End of site variables                                             */         
/*-------------------------------------------------------------------*/         
ADDRESS ISREDIT "(DSN) = DATASET"                                               
ADDRESS ISREDIT "(MEM) = MEMBER"                                                
Card1 = '//'USERID()jn' JOB 'account','comment','                               
Card2 = '//       CLASS='class',MSGLEVEL=(1,1),MSGCLASS=A,'                     
Card3 = '//       REGION='region'M,USERID='USERID()',NOTIFY='USERID()           
Card4 = '//*                                                       '            
Card5 = '//*   in dataset 'DSN'('MEM')'                                         
Card6 = '//*                                                       '            
Address ISREDIT "LINE_AFTER 0 ='"Card1"'"                                       
Address ISREDIT "LINE_AFTER 1 ='"Card2"'"                                       
Address ISREDIT "LINE_AFTER 2 ='"Card3"'"                                       
Address ISREDIT "LINE_AFTER 3 ='"Card4"'"                                       
Address ISREDIT "LINE_AFTER 4 ='"Card5"'"                                       
Address ISREDIT "LINE_AFTER 5 ='"Card6"'"                                       
exit