ISPF Cobol question

[mc9]

Do you know the syntax to invoke LMINIT in Cobol? I have manuals both paper and online but the examples don't work. As best as I can tell it is something like:
10 DSNVAR PIC X(8) VALUE SPACES.
10 SYSUT01 PIC X(8) VALUE 'SYSUT01 '.

CALL 'ISPLINK' USING ISP-LMINIT DSNVAR
SYSUT01.
This compiles but at runtime causes:
Required parm missing
Not all required parameters were found for the LMINIT service.

 

[MarcLodge]

Hi MC9,
I've done this, and I have a program hanging around somewhere that I might be able to rake up as an example. I seem to recall that this particular call was problematical, and if I can find an answer over the weekend, I will. Alternatively, I'll have a look in the office on Monday.
Marc

 

[pickinp]

MarcLodge,
Have you been able to find an example of the LMININT call? I am having the same problem as MC9, with the 'required parm missing' error. Any help would be appreciated. Thanks!
Pam

 

[MarcLodge]

Sorry All,
I wrote a program that did this many years ago, and try as I might I can't seem to find it. Have you tried using the MODEL command and then picking the library management models to see if that gives you any joy?
Marc

 

[gazolba]

There are examples in the IBM Dialog Manager manuals. Do you have the IBM 'books online' CD's? If not, you need them.
Sorry, I don't have the code with me to give you but all the LM functions can be called from COBOL or any other IBM language.

 

[mc9]

Sorry I didn't reply sooner. I could not get it to work using a call. I had to use the command as follows:

01 BUFFER PIC X(38) VALUE SPACES.
01 BUFFER-LEN PIC S9(8) COMP VALUE 38.

10 CODJOB PIC X(8) VALUE 'CODJOB '.
10 DDNAME2 PIC X(8) VALUE 'SYSUT02 '.

MOVE ' LMINIT DATAID(CODJOB) DDNAME(DDNAME2)' TO BUFFER.
CALL 'ISPEXEC' USING BUFFER-LEN, BUFFER.

This worked.

 

[WMK]

Given the original example of:

10 DSNVAR PIC X(8) VALUE SPACES.
10 SYSUT01 PIC X(8) VALUE 'SYSUT01 '.

CALL 'ISPLINK' USING ISP-LMINIT DSNVAR
SYSUT01.
***

I would check out two things:

1) Do you have a data-item ISP-LMINIT which is defined as

Pic X(6) Value "LMINIT".

2) Try changing your second definition to:

10 SYSUT01 PIC X(7) VALUE 'SYSUT01'.

According to:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ispzsg10/1.3.3.2

"You must show the last parameter in the calling sequence with a '1' as the high order bit in the last entry of the address list. PL/I, COBOL, Pascal, and FORTRAN call statements automatically generate this high-order bit."

However, by explicitly ending your last parameter with a space, I don't know if this could be "confusing" ISPLINK.