Calling ISPLINK from COBOL

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

Hi,

I just tried to run a code to call ISPLINK from cobol to get a variable using VGET.. But it ended with RC 20.. I have just got the code from web..

PeterHolland · Posted: Thu May 19, 2011 4:30 pm

How did you run it? JCL or called in an ISPF environment?

dbzTHEdinosauer · Posted: Thu May 19, 2011 4:39 pm

while you were surfing the web for solutions,
this link:z/OS V1R7.0 ISPF Services Guide which describes the VDEFINE, VGET, and VPUT services, my have been of more help.

can't get what is not there.

as well as which service, VDEFINE or VGET returned the rc_20?

PeterHolland · Posted: Thu May 19, 2011 5:06 pm

Try this :

PeterHolland · Posted: Thu May 19, 2011 5:12 pm

And this :

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

Hi,

I am running it using JCL..

//STEP01 EXEC PGM=COBISPF
//SYSLST DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*

Sysout:

0020
0020

@Peter,

I did what u suggested, still its returning RC-20.

PeterHolland · Posted: Thu May 19, 2011 5:47 pm

What is COBISPF, a compile procedure? You need an ISPF environment to run it.
Something like this :

ISPEXEC SELECT PGM(APCS1000) NEWAPPL(APT) PARM(&P) PASSLIB

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

Peter,

I have just compiled and linked this cobol program and created the load module COBISPF.. and I am running that load with the above JCL..

Thanks,
Yuge

PeterHolland · Posted: Thu May 19, 2011 5:58 pm

yugendran,

are you a bit slow? That will never work, you need to use the ISPEXEC interface, in other words CLIST/REXX have to be used.

Read the : ISPF Services Guide

dbzTHEdinosauer · Posted: Thu May 19, 2011 6:03 pm

no you do not need to use clist/rexx.

all he has to do is allocate in his JOBLIB/STEPLIB statment, the required libraries to support the CALL and the routines.

the same libraries that would be required if you did write a clist/rexx routine to accomplish the same as the COBOL program is attempting to do.

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

Peter,

Using REXX/CLIST, I have done this before.. I recently came to know that it is also possible in to do VDEFINE & VGET in batch..

If we use MODEL command in edit mode, it shows the examples of invoking VDEFINE in cobol program..

eg:
CALL "ISPLINK" USING ISPF-SERVICE ISPF-NAME-LIST
ISPF-VARIABLE-LIST ISPF-FORMAT-LIST
ISPF-LENGTH-LIST ISPF-OPTION-LIST
ISPF-UDATA-VALUE ISPF-OPTION1.

I have used first four parms and others are optional.. But not able to succeed in it..

Thanks
Yuge

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

Hi dbz,

Is there any way to find what are all the required libraries to be allocated to run this apart from my load library?

Thanks.

PeterHolland · Posted: Thu May 19, 2011 6:15 pm

Dick,

as far as i know if you use batch, then it has to be a TSO (IKJEFT01) batch, with beside the steplib for the cobol pgm also needs the ISPF libraries.

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

Hi,

I just tried,

/* REXX */
Address TSO
"CALL 'TEST.LOADLIB(COBISPF)'"

It worked.. But running in JCL, it gives error..

dbzTHEdinosauer · Posted: Thu May 19, 2011 6:35 pm

Peter,
you are correct, it failed to register that he was invoking the COBOL program directly from MVS.

He does need to invoke the program via IKJEFTnn.

Akatsukami · Posted: Fri May 20, 2011 1:56 am

PeterHolland · Posted: Fri May 20, 2011 11:37 am

Akatsukami,

Maybe by using IKJEFTSR, IKJTSOEV and other routines, see :

publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.ikjb700/newtsf.htm