#1: JCLS from SKEL JCLs using File Tailoring Author: Venkata Ramana Reddy, Location: CaliforniaPosted: Thu Dec 09, 2004 4:45 pm — Hello All,
We need to generate JCLS from SKEL JCLs using File Tailoring.The
parameters can be taken from DMS panel or from REXX directly for building the JCLS. There will be about 50 JCLS.
Do you have any sample skel JCL, DMS panels and rexx routines to achieve this goal?
#2: Author: kolusu, Location: San JosePosted: Fri Dec 10, 2004 5:13 am — Venkata Ramana Reddy,
#3: Author: Mervyn, Location: Hove, EnglandPosted: Fri Dec 10, 2004 6:59 am — Vankataramana,
Here's an example I use occasionally to print dataset contents. I notice I never got around to converting to Rexx, but I'm sure you'll have no difficulty.
[code:1:91085af315]
EDIT XXXXX.CLIST(SELPRINT) - 01.01 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 CONTROL ASIS
000002 ISPEXEC TBCREATE DSNS NAMES(DSN VSAM TYPE LOCALPRT)
000003 SET VSAM = N
000004 SET TYPE = C
000005 SET COUNT = 0
000006 ISPEXEC DISPLAY PANEL(SELPRINT)
000007 DO WHILE &LASTCC = 0
000008 ISPEXEC TBADD DSNS
000009 SET ZEDSMSG = &STR(Next)
000010 SET ZEDLMSG = &STR(Dataset '&DSN' will be printed)
000011 ISPEXEC SETMSG MSG(ISRZ001)
000012 ISPEXEC DISPLAY PANEL(SELPRINT)
000013 END
000014 ISPEXEC FTOPEN TEMP
000015 ISPEXEC FTINCL SELPRINT
000016 ISPEXEC FTCLOSE
000017 ISPEXEC VGET ZTEMPF
000018 ISPEXEC TBEND DSNS
000019 ISPEXEC EDIT DATASET('&ZTEMPF')
****** ******************************** Bottom of Data ********************************
EDIT XXXXX.ISPF.PANELS(SELPRINT) - 01.04 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 )ATTR DEFAULT(%+_)
000002
