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
 

 

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: 4649
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: 4649
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 REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am


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