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
On 5/18/07, Steve Comstock <[EMAIL PROTECTED]> wrote:
I don't think you want (TCCSID) but just TCCSID as
you had it before. Why specify PIC 9(6) for your
LCCSID? What you had before PIC S9(8) is good, you
just needed to make the usage 'binary' (or, as the
old timers say, 'comp').
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
z/OS Application development made easier
* Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques
----------------------------------------------------------------------
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
