Chicago-Soft
ATTN: TSO Times
One Maple Street
Hanover, NH 03755
(603) 643-4002
information
@tsotimes.com

Quick Tip - Rexx exec "SUB"

by Todd Burch

The following REXX exec is called "SUB" and can be used instead of the EDIT "SUBMIT" command. In order to have ISPF EDIT invoke this exec instead of invoking the SUBMIT command, you should issue the SUB command from the EDIT command line and precede it with a percent sign (%).

We use this exec when running test cases or other common jobs that might be used by more than one person. It allows each job submitted to have a user ID- dependent job card.

/* 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 ;

Todd Burch, EDB Software Inc.

home · current articles · archives · forums ·
· subscribe · about us · contact us · links