Search the web
Sign In
New User? Sign Up
rexxlist · General REXX Discussion List
? Already a member? Sign in to Yahoo!

Yahoo! Groups Tips

Did you know...
Message search is now enhanced, find messages faster. Take it for a spin.

Best of Y! Groups

   Check them out and nominate your group.
Having problems with message search? Fill out this form to ensure your group is one of the first to be migrated to the new message search system.

Messages

  Messages Help
Advanced
REXX   Message List  
Reply | Forward Message #6450 of 16003 |
Re: REXX

This is a multi-part message in MIME format.

------=_NextPart_000_001D_01C27E5D.954E9A50
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

This should work for you...This works great if you have to build the JCL
dynamically with in the REXX routine..
/* REXX */
/**/
queue "//CGTEST JOB 751100,'TRY THIS',CLASS=A,MSGCLASS=X,"
queue "// NOTIFY=yourid"
queue "//STEP0050 EXEC PGM=IEFBR14"
queue "//DD01 DD DSN=JUNK.FILE.TO.DEL,UNIT=3390,VOL=SER=BLU60E,"
queue "// DISP=(MOD,DELETE,DELETE),SPACE=(TRK,0) "
queue ""
"SUB * NOJOBCHAR"
exit

-----Original Message-----
From: REXX Programming discussion list
[mailto:REXXLIST@...]On Behalf Of Gharpure
Sent: Thursday, October 24, 2002 3:47 AM
To: REXXLIST@...
Subject: REXX


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

------=_NextPart_000_001D_01C27E5D.954E9A50
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2600.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><SPAN class=3D828033214-28102002><FONT face=3DArial color=3D#0000ff =
size=3D2>This=20
should work for you...This works great if you have to build the JCL =
dynamically=20
with in the REXX routine..</FONT></SPAN></DIV>
<DIV><SPAN class=3D828033214-28102002><FONT face=3DCourier =
color=3D#0000ff=20
size=3D2>/*&nbsp;REXX */<BR>/**/<BR>&nbsp; queue "//CGTEST JOB =
751100,'TRY=20
THIS',CLASS=3DA,MSGCLASS=3DX,"<BR>&nbsp; queue=20
"//&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
NOTIFY=3Dyourid"<BR>&nbsp; queue "//STEP0050 EXEC =
PGM=3DIEFBR14"<BR>&nbsp; queue=20
"//DD01&nbsp;&nbsp;&nbsp;&nbsp; DD=20
DSN=3DJUNK.FILE.TO.DEL,UNIT=3D3390,VOL=3DSER=3DBLU60E,"<BR>&nbsp; queue=20
"//&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
DISP=3D(MOD,DELETE,DELETE),SPACE=3D(TRK,0)&nbsp;&nbsp;&nbsp;&nbsp; =
"<BR>&nbsp; queue=20
""<BR>&nbsp; "SUB * NOJOBCHAR"<BR>exit<BR></FONT></SPAN></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px =
solid; MARGIN-RIGHT: 0px">
<DIV class=3DOutlookMessageHeader><FONT face=3D"Times New Roman"=20
size=3D2>-----Original Message-----<BR><B>From:</B> REXX Programming =
discussion=20
list [mailto:REXXLIST@...]<B>On Behalf Of</B>=20
Gharpure<BR><B>Sent:</B> Thursday, October 24, 2002 3:47 =
AM<BR><B>To:</B>=20
REXXLIST@...<BR><B>Subject:</B> REXX<BR><BR></FONT></DIV>
<DIV><FONT face=3D"Trebuchet MS" color=3D#00008b size=3D2>Hi =
Everybody,</FONT></DIV>
<DIV><FONT face=3D"Trebuchet MS" color=3D#00008b size=3D2>I am trying =
to automate=20
certain processes. Could anybody tell me, if we can submit a JCL thru =
REXX=20
code.</FONT></DIV></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_001D_01C27E5D.954E9A50--



Mon Oct 28, 2002 2:39 pm

Arthur.Kraft@...
Send Email Send Email

Forward
Message #6450 of 16003 |
Expand Messages Author Sort by Date

This is a multi-part message in MIME format. ... Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi Everybody, I am...
Gharpure
ravindra.gharpure@...
Send Email
Oct 24, 2002
8:59 am

/* MVS/TSO REXX EXEC: SUBJCL */ /* */ TRACE 0 CARD.1 =...
Richard Burge
rburge@...
Send Email
Oct 24, 2002
12:28 pm

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...
Angelo Grotticelli
Angelo.Grotticelli@...
Send Email
Oct 24, 2002
1:26 pm

I prefer this for a wait routine. CALL TIME('R') DO WHILE (TIME('E') < 20) END ... Richard I did a copy and paste and when I run the rexxlist as is I get ...
Glenn Walko
GWALKO@...
Send Email
Oct 24, 2002
4:05 pm

This is a multi-part message in MIME format. ... Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit This should work for you...This...
Arthur Kraft
Arthur.Kraft@...
Send Email
Oct 28, 2002
2:42 pm
Advanced

Copyright © 2009 Yahoo! Inc. All rights reserved.
Privacy Policy - Terms of Service - Guidelines - Help