Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How Can I Call Natural Program from Rexx or TSO Line Mode

Status
Not open for further replies.

cefaucz

Technical User
Jul 21, 2011
3
BR
Hi everyone, I'm newbie on Rexx and TSO.
I need call a natural program by TSO line mode first, for my tests.
After this works, I will need call from Rexx.

How to do this?

Thanks a lot,

Cadu
 
You code it exactly as you code the line command in TSO but in quotes as Rexx passes the line to TSO to execute.


Nic
 
Can you directly execute this Natural program in a batch job via EXEC PGM=natpgm or do you have to use "Natural JCL"?

If you have to use Natural JCL to run in batch, you will need to provide for establishing the Natural environment if you want to run directly in tso (or rexx).

I don't "do" Natural, but this is how it works with other packages.
 
Hi,

I have a driver that close a telnet communication with mainframe, make log-on into a TSO and exec a command/rexx.

Today I have this parameters:

//STEP0001 EXEC PGM=NATBATCH,COND=(0,NE),
// PARM=('STACK=(LOGON LIBRARY ABCD4321 ABCD4321;XYZ0P729;F)')
//DDCARD DD DSN=XYZ.PRODPARM(ADAPREF),DISP=SHR

I need convert this to a rexx, eg:

parm = arg1||arg2||arg3||arg4||arg5||arg6||arg7
in.1 = 'logon ABCD4321 ABCD4321'
in.2 = 'XYZ0P729'
in.3 = parm
in.4 = 'fin'
"ALLOC F(cmsynin) DA() SHR"
"EXECIO 4 DISKW cmsynin (STEM in. FINIS"

"CALL 'NATURAL.XYX(XXXX)'"

IF RC <> 0 THEN

My doubt if I can do this and what I need to do this?
How I need make my "CALL" ?

Thanks a lot,

Cadu
 
I have a driver that close a telnet communication with mainframe, make log-on into a TSO and exec a command/rexx.
Why not simply SUBMIT the job . . . or why try to run within rexx.

It is usually not a good practice to run batch processes within an online tso/rexx session.

If the Natural program needs NOTBATCH to run, the way you have defined your rexx variables does not have this.

If 'NATURAL.XYX(XXXX)' is not a true load module, is uspect this cannot be CALLed.

There are other questons/problems as well. . .
 
Hi papadba,

I'm new into Mainframe. I don't have a job or rexx code yet. I'm writting a new code. I create a IDM Novell driver that connecting to Mainframe with telnet protocol, logon into TSO and call a script or command.

My mainframe/application guys only send me this information to call application with some parameters:

//STEP0001 EXEC PGM=NATBATCH,COND=(0,NE),
// PARM=('STACK=(LOGON LIBRARY ABCD4321 ABCD4321;XYZ0P729;F)')
//DDCARD DD DSN=XYZ.PRODPARM(ADAPREF),DISP=SHR

I think that converting this parameters to rexx code was a good idea.

I accept any suggestions how to do this.

Thanks a lot,

Carlos
 
Sorry about my earlier typo (NOTBATCH where is should have been NATBATCH). . .

I think that converting this parameters to rexx code was a good idea.
I think otherwise. If you place a JOB statement (JCL) before what your "mainframe guys" provided, make sure you understand all of the parameters and modify accordingly, and SUBMIT this directly, you will get this done quicker with better results.

Why might someone believe rexx would be of any use?
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top