Like I said before, the ZTERMCID value should be TCCSID.
OK, I've now got the batch ISPF set up and working and the program now
looks
like this -
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 'ZTERMCID'.
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.
I'm now getting rc=0 from the VDEFINE but the VGET returns rc=8 - variable
not found.
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
