MVSFORUMS.com

Troodon

I am trying to invoke the LMINIT service inside a batch COBOL Program, but am getting a return code of 20. Can anyone help.

EG. of Code:

Working storage.

77 isp-isplink Pic x(8) value 'ISPLINK'.
77 isp-lminit Pic x(8) value 'LMINIT '.
77 isp-dataid Pic x(8) value low-values.
77 isp-ddname Pic x(8) value 'PDSINP'.
77 isp-shr pic x(8) value 'SHR'.

Procedure Division.

call isp-isplink using isp-dataid isp-ddname isp-shr
end-call

if return-code = 0
display 'PDSLIST: LMINIT passed'
else
display 'PDSLIST: LMINIT failed'
display 'PDSLIST: return code =<' return-code '>'
stop run
end-if

exit
.

eg of JCL:

//FLP01#01 EXEC PGM=PDSLIST
//STEPLIB DD DISP=SHR,DSN=????????.TEST.LINKLIB
//PDSINP DD DISP=SHR,DSN=MY.PDS
//SYSABOUT DD SYSOUT=*
//IAMINFO DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//*

Output from running pgm:

PDSLIST: LMINIT failed
PDSLIST: return code =<00020>

Thank's

kolusu · Posted: Fri Jan 07, 2005 9:08 am Post subject:

Troodon,

You are missing the ISP-LMINIT in your call.

Change your call from

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Maybe it's me, but I don't see where in the JCL a TSO environment is being defined by calling the IKJEFT01 program along with the requisite ISPF libraries, and where ISPF is being enabled with an ISPSTART command prior to the program being called??

Troodon · Posted: Mon Jan 10, 2005 2:41 am Post subject:

Kolusu

Thanks for pointing out such an obvious stupid error Embarassed

. However fixing it did not make a diference. Perhaps I am missing something, but is superk right. To invoke ispservices in a batch cobol program, I must invoke the program through the TSO environment, and then first run an ISPSTART command, before invoking the cobol batch program. Although my ISP liraries are not in the JCL provided, they are in the system libraries, they must be availble or I would be getting an 806 instead of a return code 20. Question

Since I have never done this before can someone provide an example please
_________________
Man is the universe becoming Conscious of itself.

Troodon · Posted: Mon Jan 10, 2005 3:53 am Post subject:

I have tried executing the COBOL program from option 6 in ISPF in the following way

CALL 'my.linklib(PDSLIST)'

And got the following reponse:

********************************************************************* ISPS107
*
* Required parm missing
* Not all required parameters were found for the LMINIT service.
*

The COBOL Code looks like this:

77 isp-lminit Pic x(8) value 'LMINIT'.
77 isp-dataid Pic x(8) value space.
77 isp-ddname Pic x(8) value 'PDSINP'.
77 isp-shr pic x(3) value 'SHR'.

call 'ISPLINK' using
isp-lminit isp-dataid isp-ddname isp-shr
end-call

I have allocated the file PDSINP before executing the command succesfully. What am I missing. The manual says:

Call Invocation Format

CALL ISPLINK (LMINIT, data-id-var
{,project,group1 [,group2] [,group3] [,group4] ,type}
{,dsname }
{,ddname }
,[serial] ,[password]
,[SHR|EXCLU |SHRW|MOD]
,[org-var]);

From this the only required prameters are LMINIT, data-id-var, one of (project etc, dsname,ddname)

What am I missing Question

_________________
Man is the universe becoming Conscious of itself.

Phantom · Posted: Mon Jan 10, 2005 7:36 am Post subject:

Troodon,

The problem is due to the difference b/w Batch & Online. When u invoke ur cobol program thru' option 6 - Online, it uses all the ISPF libraries that are already allocated during ur login. But when u invoke ur cobol program via JCL - Batch you need to allocate these ISPF libraries manually. Hope I'm clear.

You need to allocate so many datasets (ISPPLIB, ISPMLIB, ISPTLIB, SYSEXEC, .....). Try the 'Batchpdf' macro provided in the following link. It will create u a JCL with all ISPF allocations. It reads ur online allocations and replicates the same for batch.

http://www.sillysot.com/ftp/batchpdf.txt

For more details on how to use BATCHPDF, please refer the 3rd post From BOTTOM in the following link.
http://www.mvsforums.com/helpboards/viewtopic.php?t=2608&highlight=batchpdf

Hope this helps,

Thanks,
Phantom

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

I copied the code from the ISPF COBOL Model for the LMINIT command, and got this as a (working) result:

Troodon · Posted: Wed Jan 12, 2005 2:27 am Post subject:

Thanks folks for your Help I have made use of both the BATCHPDF rexx and the MODEL command to fix my program, However I am now getting a return code 10 from the LMOPEN function. Here are some displays from the program:

Mervyn · Posted: Wed Jan 12, 2005 6:36 am Post subject:

The DATAID column needs to contain the name of the variable that you want to receive the DATAID value. You use the VDEFINE service to define this (and any other ISPF variables) to ISPF.

I don't have time to expand on this at the moment, but you've now got something to go on, at least.
_________________
The day you stop learning the dinosaur becomes extinct

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

After the LMINIT command is processed to set the value of the DATA-ID variable, from that point on the value is specified as a variable, in this case &PDSLINP will work.

Mervyn · Posted: Wed Jan 12, 2005 6:56 am Post subject:

I just found this code in an old program. It'll give you an idea of what I mean: