Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 4650
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: 290
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
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us