Invoke TSO Command from COBOL program

sinusam · New User Joined: 06 Jan 2004 Posts: 18

Invoke TSO Command from COBOL program

I want to get the output of LISTDS (a given dsn) command in my COBOL program.

I tried to invoke the TSO Command from the IKJEFTSR (TSOLNK) Service Routine. But I get return code 20 (authorized program). How to get rid of it ?

Is there any other method to run a TSO command from a COBOL program and get the output in the WORKING STORAGE SECTION ?

Regards,
Sinu

somasundaran_k · Active User Joined: 03 Jun 2003 Posts: 141

Sinu
Check this link. It will be helpful.

http://mywebpages.comcast.net/gsf/tools/cob2tso.txt

Regds
-Som

sinusam · New User Joined: 06 Jan 2004 Posts: 18

Dear Somu,

I tried to run that program. It was invoking "TSO ALLOCATE" command. It was successul. But when I changed the command to "LISTDS", I'm getting the previous error.

In the TSO/E Programming Services (IKJ4B740) manual, there was an example for IKJEFTSR which is invoking LISTBC command. But it is also returning RC=20.

Can you please figure out the problem ?
Regards,
Sinu

somasundaran_k · Active User Joined: 03 Jun 2003 Posts: 141

Sinu
I didn't get time to check this progrm . But please note that we can't invoke TSO COMMANDS WHICH REQUIRE AUTHORIZATION using this service facility. So I guess that can be a cause for getting this error.

Regds
-Som