Richard

I did a copy and paste and when I run the rexxlist as is I get
IKJ56532I STMT 41 - LABEL WAIT_A_WHILE SPECIFIED BUT COMMAND NOT FOUND,
***,
Can you tell me why ?

Thanks,
Angelo Grotticelli
Talbots Systems Center
* office: (813) 829-6036 - fax: (813)829-6218
* email:Angelo.Grotticelli@... <
mailto:Angelo.Grotticelli@...>



-----Original Message-----
From: Richard Burge [mailto:rburge@...]
Sent: Thursday, October 24, 2002 8:26 AM
To: REXXLIST@...
Subject: Re: REXX


/* MVS/TSO REXX EXEC: SUBJCL */
/* */
TRACE 0

CARD.1 = "//RWB8XV M JOB ,'JOBNAME..',CLASS=A,MSGCLASS=X, "
CARD.2 = "// NOTIFY=&SYSUID "
CARD.3 = "//***************************************************** "
CARD.4 = "//* VSAM DEFINE "
CARD.5 = "//***************************************************** "
CARD.6 = "//CREATE EXEC PGM=IDCAMS,REGION=4096K "
CARD.7 = "//SYSPRINT DD SYSOUT=* "
CARD.8 = "//SYSIN DD * "
CARD.9 = " DEFINE CLUSTER (NAME(RWB8X.MAN5) - "
CARD.10 = " NONINDEXED - "
CARD.11 = " CYLINDERS(5) - "
CARD.12 = " REUSE - "
CARD.13 = " RECORDSIZE(4086,32767) - "
CARD.14 = " SPANNED - "
CARD.15 = " SPEED - "
CARD.16 = " CONTROLINTERVALSIZE(4096) - "
CARD.17 = " SHAREOPTIONS(2)) "
CARD.18 = "/* "
CARD.19 = "// "
address TSO
"DELETE 'RWB8X.SUBMIT.JCL' "
CALL WAIT_A_WHILE
"ALLOC FILE(JCLFL) DA('RWB8X.SUBMIT.JCL') NEW CATALOG ",
"UNIT(SYSDA) RECFM(F B) LRECL(80) BLKSIZE(3120) "
DO I = 1 TO 19
PUSH CARD.I
"EXECIO 1 DISKW JCLFL "
END
"EXECIO 0 DISKW JCLFL (FINIS "
call WAIT_A_WHILE
address TSO "submit 'RWB8X.SUBMIT.JCL' "
"free file(JCLFL) "
"delstack"
"free file(INFILE)"
say "end of exec (MAKE1)"
exit

/*------------------ wait a while subroutine */
WAIT_A_WHILE:
do X = 1 TO 20
end
return

Richard Burge
Systems Support Group
Tracks Traffic and Management Services Inc.
135 Jamison Ln.
Monroeville, PA 15146
Office (412) 829-6862
Home (412) 374-8232
Pager (412) 645-8080
Fax (412) 829-6560



Gharpure
<ravindra.gharpure@ To:
REXXLIST@...
PATNI.COM> cc:
Sent by: REXX Subject: REXX
Programming
discussion list
<REXXLIST@LISTSERV.
UGA.EDU>


10/24/2002 04:47 AM
Please respond to
REXX Programming
discussion list






Hi Everybody,
I am trying to automate certain processes. Could anybody tell me, if we can
submit a JCL thru REXX code.