IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Looping in REXX and pass data to JCL.


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 765
Location: Whitby, ON, Canada

PostPosted: Fri Jan 27, 2012 7:29 pm
Reply with quote

The other bogus excuse for not using ISPF facilities is: "it adds too much overhead". So they end up writing an extra 500 lines of code to do what ISPF services can do with one call. icon_rolleyes.gif
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Fri Jan 27, 2012 8:05 pm
Reply with quote

chaoj wrote:
and because the ISPF lib in develop environment is different from the product environment in my side, so I need write JCL twice . This is my reason for not use ISPF service if I call rexx code in JCL.

Unlike every other library in your development environment?

My current client's development and test environments are on different sysplexes than its production environments. Still, the libraries (and all other data sets) have different HLQs.
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Mon Jan 30, 2012 7:45 am
Reply with quote

enrico-sorichetti wrote:
Quote:
and because the ISPF lib in develop environment is different from the product environment in my side, so I need write JCL twice . This is my reason for not use ISPF service if I call rexx code in JCL.


stupid reason not to use the ISPF functionalities
I have never seen (*) BATCH ISPF execution use nothing more than the basic ISPF libraries
and just the user load and rexx/clist libraries

(*) I have been using REXX and ISPF since their appearance on the scene
a few hundreds scripts and couple dozen customers

Code:
 000005 //ISPF    EXEC PGM=IKJEFT1A,PARM='ISPSTART CMD(YOURREXX)'               
 000006 //STEPLIB   DD DISP=SHR,DSN=YOUR.LOAD.LIBRARY                           
 000007 //SYSPROC   DD DISP=SHR,DSN=YOUR.REXX.LIBRARY                           
 000008 //ISPPROF   DD DISP=(,PASS),DSN=&&ISPPROF,                             
 000009 //             UNIT=SYSDA,SPACE=(CYL,(2,0,44)),                         
 000010 //             DCB=(RECFM=FB,LRECL=80)                                 
 000011 //ISPPLIB   DD DISP=SHR,DSN=ISP.SISPPENU                               
 000012 //ISPMLIB   DD DISP=SHR,DSN=ISP.SISPMENU                               
 000013 //ISPSLIB   DD DISP=SHR,DSN=ISP.SISPSLIB                               
 000014 //ISPTLIB   DD DISP=SHR,DSN=ISP.SISPTENU                               
 000015 //SYSPRINT  DD SYSOUT=*                                                 
 000016 //SYSTSPRT  DD SYSOUT=*                                                 
 000017 //SYSTSIN   DD DUMMY                                                   


Sometimes people should say something stupid , or they can not learn from others

You're right enrico , I used basic ISPF libraries , it's working icon_redface.gif

my code is below
Code:
//RUNREXX EXEC PGM=IKJEFT01                   
//SYSEXEC  DD  DSN=PK80I.EV6946.EXEC,DISP=SHR
//ISPPROF  DD  DISP=(,PASS),DSN=&&ISPPROF,   
//            UNIT=SYSDA,SPACE=(CYL,(2,0,44)),
//            DCB=(RECFM=FB,LRECL=80)         
//ISPPLIB  DD  DSN=SYS1.SISPPENU,DISP=SHR     
//ISPSLIB  DD  DSN=SYS1.SISPSENU,DISP=SHR     
//ISPTLIB  DD  DSN=SYS1.SISPTENU,DISP=SHR     
//ISPMLIB  DD  DSN=SYS1.SISPMENU,DISP=SHR     
//SYSPRINT DD  SYSOUT=*                       
//SYSTSPRT DD  SYSOUT=*                       
//SYSTSIN  DD  *                             
ISPSTART CMD(%ZREXXBAT)                       
/*                                           
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley

PostPosted: Mon Jan 30, 2012 11:05 pm
Reply with quote

Quote:
So they end up writing an extra 500 lines of code to do what ISPF services can do with one call.


Actually, I think that in some instances the overhead is a valid concern (though your results may vary). If the program is doing something repeatedly, then your 500 lines of code may be better than one call to ISPF services. That one call to ISPF services may result in executing thousands of lines of ISPF's code.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Mon Jan 30, 2012 11:16 pm
Reply with quote

if there are overhead and performance concerns REXX,ISPF and friends should not be used FULL STOP
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Store the data for fixed length COBOL Programming 1
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top