View previous topic :: View next topic
|
Author |
Message |
jayasree Currently Banned New User
Joined: 07 Feb 2006 Posts: 2
|
|
|
|
can u explain skeleton in rexx? |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Are you referring to File Tailoring Skeletons? If so, that is an ISPF subject, not REXX. If not, you'll need to elaborate a bit more about what you're talking about. |
|
Back to top |
|
|
amitava Warnings : 1 Active User
Joined: 30 Oct 2005 Posts: 186 Location: India
|
|
|
|
Look Jayasree,
I guess u r talking about the skeletions used in REXX routine to display some datas. Yah, its true that these are FILE-TRAILORING skeletions. Actually we use skels when there is a chance of becoming ur panel dynamic and its tough 2 design a dynamic panel. So for simplicity, we often go for the SKELS. But by skels, u can only show the reports and some data. There cannot be any option for user to give any input. Basically these skels are used for the report generation kind of stuff. But if u need some code to understad, I will give u if u want. |
|
Back to top |
|
|
jayasree Currently Banned New User
Joined: 07 Feb 2006 Posts: 2
|
|
|
|
pls send me the code which will help me to understand better. |
|
Back to top |
|
|
amitava Warnings : 1 Active User
Joined: 30 Oct 2005 Posts: 186 Location: India
|
|
|
|
Just go though the code I m sending :-)
Code: |
/* REXX */
/*** (c) Copyright CTS July, 2005. All rights reserved ***/
/* This rexx routine will create a report of job versus proc */
/* reference. The report will be saved in the PDS - */
/* <DSN> */
address ispexec "control errors return"
address ispexec
FILEDSN = '<DSN>'
if(sysdsn("'" || filedsn || "'") = ok) then do
"LIBDEF ISPFILE DATASET ID('"||filedsn||"')"
end
else do
address tso
"ALLOC F(LOGICAL) DA('<DSN>') NEW DIR(10)
SPACE(10,10)DSORG(PO) RECFM(F,B,A) LRECL(133) BLKSIZE(13300)"
"FREE F(LOGICAL)"
address ispexec
if(rc \= 0) then
signal end_prog
"LIBDEF ISPFILE DATASET ID('<DSN>')"
end
"LIBDEF ISPSLIB DATASET ID('TEST.nvaxc2.JCLCONV.SKELS')"
address ispexec
"FTOPEN"
"FTINCL REPALPR1"
if(rc \= 0) then
say "Return Code of FTINCL is " || rc zerrsm zerrlm
varjob = "job10000 job12345 job13579"
varprc = "snd005 snd006 snd007 snd008 snde0098 vdb00090"
varsymb = "env env1"
vardsn = "TEST.TOOLS.JCLCONV.WIP1
TEST.TOOLS.JCLCONV.CLIST.JULY.AM10"
varcardlib = "test qual te$t"
varmod = "prd1 test prod"
noofwordsjob = words(varjob)
do i = 1 to noofwordsjob
job = word(varjob,i)
say "varjob " || varjob
"FTINCL REPALPR2"
noofwordsproc = words(varprc)
do j = 1 to noofwordsproc
proc = word(varprc,j)
"FTINCL REPALPR3"
noofwordssymb = words(varsymb)
do k = 1 to noofwordssymb
symb = word(varsymb,k)
"FTINCL REPALPR4"
end
noofwordsdsn = words(vardsn)
do l = 1 to noofwordsdsn
dsn = word(vardsn,l)
"FTINCL REPALPR5"
end
noofwordscard = words(varcardlib)
do m = 1 to noofwordscard
cardlib = word(varcardlib,m)
"FTINCL REPALPR6"
end
noofwordsmod = words(varmod)
do n = 1 to noofwordsmod
mod = word(varmod,n)
"FTINCL REPALPR7"
end
if(j > 1) then proc = ''
end
end
"FTINCL REPALPR8"
"FTCLOSE NAME(JOBVSPRC)"
"BROWSE DATASET('<DSN>(JOBVSPRC)')"
"LIBDEF ISPSLIB"
"LIBDEF ISPFILE"
EXIT
end_prog:
say "Error in allocation : " || zerrsm || zerrlm
"LIBDEF ISPFILE"
"LIBDEF ISPSLIB"
exit
|
SKELS FORMAT Looks like :-
REPALPR1
======
REPORT: JOB VS PROC AND CARDLIB PARAMETERS
##############################################################################
# JOB PROC SYMB DSN CARD MOD #
#============================================================================#
REPALPR2
======
# &job #
REPALPR3
======
# &proc #
REPALPR4
======
# &symb #
REPALPR5
======
# &dsn #
REPALPR6
======
# &cardlib #
REPALPR7
======
# &mod #
REPALPR8
======
#==============================================================================#
# End of the report #
################################################################################
Report : JOB vs PROC Cross-Reference
########################################################################
# JOBNAME PROCNAME #
#======================================================================#
# SND00A60 #
# SND00A60 #
#======================================================================#
# SND00A86 #
# SND00Z86 #
#======================================================================#
# SND00A87 #
# SND00Z87 #
#======================================================================#
#======================================================================#
# END OF REPORT #
######################################################################## |
|
Back to top |
|
|
martin9
Active User
Joined: 01 Mar 2006 Posts: 290 Location: Basel, Switzerland
|
|
|
|
hy jayasree,
a skeleton is nothing else than a template.
just note: services needed using skeletons are
ispf services, is not rexx, but you can invoke it it in rexx.
martin9 |
|
Back to top |
|
|
|