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
 
Handling MVS REXX in OMVS REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
mahe2310

New User


Joined: 17 May 2007
Posts: 5

PostPosted: Thu May 17, 2007 6:20 pm    Post subject: Handling MVS REXX in OMVS REXX
Reply with quote

Hi all,

When i tried to execute a MVS REXX program through an OMVS REXX program, it fails for the ISPF commands. Please help me out.

Below i included the sample programs.

OMVS REXX PROG
/* REXX */
say 'Hi Sample REXX PROGRAM'
ADDRESS TSO "ex 'GY.REXX.PRACTICE(CALLS)' "
EXIT

MVS REXX PROG
ADDRESS ISPEXEC
"FTOPEN TEMP"
"FTINCL CODJOB"
"ftincl codskela"
"ftclose"
"vget (ztempf) shared"
ADDRESS TSO
"SUBMIT '"ZTEMPF"'"
RETURN
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu May 17, 2007 6:24 pm    Post subject:
Reply with quote

By OMVS I assume that you mean USS - Unix Systems Services environment.
Back to top
View user's profile Send private message
mahe2310

New User


Joined: 17 May 2007
Posts: 5

PostPosted: Thu May 17, 2007 6:28 pm    Post subject: Re: Handling MVS REXX in OMVS REXX
Reply with quote

Yes... By OMVS i mean an UNIX enviroment...
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: Thu May 17, 2007 6:35 pm    Post subject: Re: Handling MVS REXX in OMVS REXX
Reply with quote

Does USS (OMVS) have access to TSO and/or ISPF services?

I'm just wondering if the OMVS exec needs to run the TMP first, then start ISPF and all of that, the same way you would need to from other environments like MVS or JES.

Maybe the process would need a "ADDRESS TSO ISPSTART CALLS" command?
Back to top
View user's profile Send private message
mahe2310

New User


Joined: 17 May 2007
Posts: 5

PostPosted: Thu May 17, 2007 8:13 pm    Post subject: Re: Handling MVS REXX in OMVS REXX
Reply with quote

Can you tell me how i can modify this code to execute my MVS REXX application?

* REXX */
say 'Hi Sample REXX PROGRAM'
ADDRESS TSO "ex 'GY.REXX.PRACTICE(CALLS)' "
EXIT
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: Thu May 17, 2007 9:43 pm    Post subject: Re: Handling MVS REXX in OMVS REXX
Reply with quote

If you want to use ISPF services, then you need ISPF and all of its required datasets.

Code:

/* REXX */
say 'Hi Sample REXX PROGRAM'
ADDRESS TSO "ex 'GY.REXX.PRACTICE(CALLS)' "
EXIT


would become more like this:

Code:

/* REXX */
say 'Hi Sample REXX PROGRAM'
ADDRESS TSO "ALLOC DD(SYSPROC) DA('GY.REXX.PRACTICE') SHR REU"
ADDRESS TSO "ALLOC DD(ISPPROF) DA(ISPPROF) SHR REU"
ADDRESS TSO "ALLOC DD(ISPMLIB) DA(ISPMLIB) SHR REU"
ADDRESS TSO "ALLOC DD(ISPSLIB) DA(ISPSLIB) SHR REU"
... and so on ...
ADDRESS TSO "ISPSTART CMD(%CALLS) NEWAPPL(ISR)"
ADDRESS TSO "FREE DD(SYSPROC ISPPROF ....)"
EXIT


See this section 2.13 ISPF Services in Batch Mode in the z/OS V1R8.0 ISPF Dialog Developer's Guide for more details.
Back to top
View user's profile Send private message
mahe2310

New User


Joined: 17 May 2007
Posts: 5

PostPosted: Fri May 18, 2007 10:47 am    Post subject: Re: Handling MVS REXX in OMVS REXX
Reply with quote

Hi,

After including the code below

Code:
ALLOC DD(SYSPROC)
ALLOC DD(ISPPROF)
... so on ...


, I got the following errors

Code:
  *       Message ISPG132         -/-ISPG132  message not found in 'ISPMLIB' library.
CMG999   Message ISPP001 - ISPP001  message not found in 'ISPMLIB' library.
Command ABENDed: code=U0999 rsn=FFFFFFFF


Can you tell me why that error is cmg?
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am

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