Jim McAlpine of the IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU> wrote on 05/21/2007 08:51:56 AM:
> 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. > I can compile and execute the above program in ISPF with no modifications. start pgm(ccsid) 0000 0000 01047 *** ---------------------------------------------------------------------- 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
