Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Can you explain skeleton in REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
jayasree
Currently Banned

New User


Joined: 07 Feb 2006
Posts: 2

PostPosted: Wed Mar 15, 2006 6:36 pm    Post subject: Can you explain skeleton in REXX
Reply with quote

can u explain skeleton in rexx?
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Wed Mar 15, 2006 6:56 pm    Post subject: Re: skeleton
Reply with quote

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
View user's profile Send private message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Wed Mar 15, 2006 7:08 pm    Post subject:
Reply with quote

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
View user's profile Send private message
jayasree
Currently Banned

New User


Joined: 07 Feb 2006
Posts: 2

PostPosted: Wed Mar 15, 2006 7:43 pm    Post subject: thanks
Reply with quote

pls send me the code which will help me to understand better.
Back to top
View user's profile Send private message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Wed Mar 15, 2006 8:15 pm    Post subject:
Reply with quote

Just go though the code I m sending :-) icon_rolleyes.gif

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
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 288
Location: Basel, Switzerland

PostPosted: Thu Mar 16, 2006 6:44 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us