Hi deveshjogal,
one idea how to do this is:
Use one step in a batch job (REXX in batch) to create JCL using file tailoring.
First, find all datasets. This could be done with a utility by Neil Hancock, CSILCAT.REXX at http://www.uberfish.freeserve.co.uk/Computers/
Then, create a table...
I have tried to find it too, but found no dircct way to do this.
The only ways I figured out were
Allocate files for sorting the file
Call Sort from within the REXX to copy the file
Read the the SYSOUT file, there is a line giving number of records,
e.g. "ICE090I 0 OUTPUT LRECL = 125...
A simple solution is to use REPRO. This code reads on record from
a VSAM parameter file.
ADDRESS TSO ,
"ALLOCATE FILE(TEMPDD) NEW SPACE(1) TRACKS DSORG(PS) RECFM(F,B),
LRECL(139) BLKSIZE(27939)"
ADDRESS TSO ,
"REPRO INFILE("VSAM_file")...
Do it in a REXX, put your job in a dataset and submit it like this
X = OUTTRAP("Subm.",1) /* Trap job submit message */
SUBMIT Dsn /* Submit the job */
X = OUTTRAP("OFF")...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.