Ah. You have to be running under TSO and start ISPF for ISPLINK to work, otherwise you get the RC 20. (Well, that first part is not exactly 100% true; I've seen some pretty good spoofing of TSO that fools ISPF.)
You can run ISPF under batch TSO (EXEC PGM=IKJEFT1B or IKJEFT01); I haven't used ISPF batch before, but there are examples of how to do this in the archives (this came up recently). There is also an ISPF-centric listserv, ISPF-L. Subscribe using the usual commands at [EMAIL PROTECTED] Later, Ray -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Jim McAlpine Sent: Friday May 18 2007 08:43 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: calling ISPLINK from COBOL OK, I've changed the calls to dynam and changed the length and ZTERMCID as follows - CBL DYNAM IDENTIFICATION DIVISION. PROGRAM-ID. CCSID. ENVIRONMENT DIVISION. CONFIGURATION SECTION. DATA DIVISION. WORKING-STORAGE SECTION. 01 ISPLINK PIC X(8) VALUE 'ISPLINK '. 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. but still rc=20. I'm getting the feeling it's something more basic. It's running just as a batch COBOL program BTW. Jim McAlpine ---------------------------------------------------------------------- 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
