MVSFORUMS.com

[Venkata Ramana Reddy]

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?
_________________
Venkataramana
-- Good judgement comes from experience, and often experience comes from bad judgement.

[kolusu]

Venkata Ramana Reddy,

Check the following links

A Primer for ISPF skeltons

An ISPF Panel Primer

Hope this helps...

Cheers

Kolusu
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu

[Mervyn]

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
_________________
The day you stop learning the dinosaur becomes extinct