What I do in similar situation is to have a model job as an ISPF skeleton with
the input data as a list, then use a REXX pgm of mine to run the skeleton to
build the job. Something like the sample below. Note the .table .. .endtable,
that section builds an ISPF table.
.table
0a90 z31sys std
0a91 z31usr std
.endtable
//INIT EXEC PGM=ICKDSF,PARM=REPLYU
//SYSPRINT DD SYSOUT=*
)DOT
)REXX P1 P2 P3
upper p1 p2 p3
)ENDREXX
INIT UNIT(&p1) VOLID(&p2) NOCHECK NOVERIFY -
)SEL &P3 EQ STD
VTOC(0,1,44) INDEX(3,0,5)
)ENDSEL
)SEL &P3 EQ LARGE
VTOC(0,1,89) INDEX(6,0,15) /* sample */
)ENDSEL
)ENDDOT
The stack could be used instead of the table, but it makes the skeleton
slightly bigger and more complex. Note that tthe index values for a large
volume might be wrong, they were not part of my orignal skeleton.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
