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

[cefaucz]

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

 

[nclouston]

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

 

[papadba]

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.

 

[cefaucz]

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

 

[papadba]

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. . .

 

[cefaucz]

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

 

[papadba]

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?