|
View previous topic :: View next topic
|
| Author |
Message |
mvijairaj
New User
Joined: 21 Jul 2009
Posts: 2
Location: Hyderabad
|
|
|
|
Hello,
Is it possible to create UNLOAD JCL job with help of REXX tool/ scripts ? |
|
| Back to top |
|
 |
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| Sure. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Well that question just begged the above reply.
You really do need to give a whole lot more detail about what you want to achieve, and quite often the reason why you need to do this gives the other forum members a lot more scope for helpfull answers. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello and welcome to the forum,
It is usually not a good initial question to ask if some "thing" is possible - it almost always is possible (if one is willing to learn how or buy the needed components.
As Expat mentioned, if you clearly specify (in detail) what you to do (ie. show examples of what you want as "output" from this process), someone will probably have a suggestion. |
|
| Back to top |
|
|
mvijairaj
New User
Joined: 21 Jul 2009
Posts: 2
Location: Hyderabad
|
|
|
|
Hi,
The requirement is like this:
I w'd like to create Unload JCL jobs with help of REXX processing steps.
In my REXX tool, I will define table names in one Array structure. Assume that All tables are similar table structure. so, REXX has to create unload JCLs for given list of table names. i.e. SYSIN and DD names along with Job card and other things as usual in the JCL. Can it be possible to create such unload JCLs ? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| Can it be possible to create such unload JCLs ? |
again a yes/no question strongly deserves a Yes/no answer
Yes it is possible,
the requirements must be clear, and You must have the right skills
nobody will do it for You!
show us what You have done, what problems You have encountered,
somebody will be glad to help You |
|
| Back to top |
|
|
valyk
Active User
Joined: 16 Apr 2008
Posts: 104
Location: South Carolina
|
|
|
|
To give you a start in the right direction, you will build your JCL as output and write to the internal reader. You can build your output from a skeleton, or just hard code your JCL like this:
| Code: |
QUEUE "//JOBNAME JOB (,,,),'DESCRIPTION',"
QUEUE '// MSGLEVEL=(1,1),MSGCLASS=X,CLASS=0,'
QUEUE '// NOTIFY=&SYSUID'
QUEUE '/*JOBPARM SYSAFF=*'
QUEUE '//*'
QUEUE '//STEP0001 EXEC PGM=IDCAMS'
QUEUE '//SYSPRINT DD SYSOUT=*'
QUEUE '//SYSIN DD *'
...
ADDRESS TSO
"ALLOC F(JCL) SYSOUT WRITER(INTRDR)"
"EXECIO" QUEUED() "DISKW JCL (FINIS"
"FREE F(JCL)"
|
|
|
| Back to top |
|
|
|
|
