/* Rexx
     Edit macro to add a custom job card, submit the job, and then
     delete the job card just added.
     To execute, type %SUB on the EDIT command line.  */

/*  REXX EDIT MACRO TO ADD A  JOBCARD  */
Address ISREDIT "MACRO (DUMMY)" ;
If Rc  \=0 Then eXit;
Address ISREDIT "(MEM) = MEMBER" ;
Address ISREDIT "(DSN) = DATASET" ;
/* Add the JOB CARD   */
User = Userid ();
job.1 = "//"Userid()"T" ,
             "JOB (05686312, CDB),'"User"',NOTIFY="Userid()",";
job.2 = "//       MSGCLASS=X,PRTY=14,TIME=20 ;
job.3 = "//*MAIN LINES=(500,W)" ;
job.0 = 3 ;
Do I = 1 to job.0 ;
   Address ISREDIT 'LINE_AFTER' i-1 '= "'job.i'"' ;
   End ;
Address ISREDIT "SUBMIT" ;
Address ISREDIT "DELETE 1" job.0 ;
Exit ;