I don't know if you can do this, but if you can get a dump of the code at
the time it is making the call to ISPLINK, you can check the parm list. R1
will point to a parmlist of full word pointers, with the last one set with
the high order bit on to denote end of list. Each parm in the list has to
be in the sequence specified in the ISPF manual for the type of function
desired. 1st parm would point to an 8 character field with VDEFINE, 2nd
parm the name field, etc., etc. Check the manual for the correct parm list
for the type of call. Adjust your code accordingly. As far as I know,
rc=20 says ISPF cannot recognize what it is you are asking...the parm list
is un-recognizable. Hope this helps.
--Dave
----- Original Message -----
From: "Jim McAlpine" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: <IBM-MAIN@BAMA.UA.EDU>
Sent: Friday, May 18, 2007 10:11 AM
Subject: Re: calling ISPLINK from COBOL
OK, I've changed both of those but still getting rc=20.
WORKING-STORAGE SECTION.
01 TCCSID PIC X(5).
01 LCCSID PIC S9(8) COMP VALUE 5.
01 VDEFINE PIC X(8) VALUE 'VDEFINE '.
01 ZTERMCID PIC X(8) VALUE '(TCCSID)'.
01 CHAR PIC X(4) VALUE 'CHAR'.
01 VGET PIC X(8) VALUE 'VGET '.
01 SHARED PIC X(8) VALUE 'SHARED '.
PROCEDURE DIVISION.
CALL 'ISPLINK' USING
VDEFINE ZTERMCID TCCSID CHAR LCCSID.
DISPLAY RETURN-CODE UPON SYSOUT.
CALL 'ISPLINK' USING
VGET ZTERMCID SHARED.
DISPLAY RETURN-CODE UPON SYSOUT.
DISPLAY TCCSID UPON SYSOUT
GOBACK.
Jim McAlpine
On 5/18/07, Kurt Gramling <[EMAIL PROTECTED]> wrote:
Jim,
Change the W-S fields to this:
01 ZTERMCID PIC X(8) VALUE '(TCCSID)'.
01 LCCSID PIC 9(6) comp VALUE 5.
Kurt Gramling
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html