Jim, I know I am late to this party, so forgive me if I mention something that has been mentioned already or not related to the original question.
But, it looks like you want ISPF<->Cobol. If so, have you looked at using ISPF's built-in MODEL's? If not, they provide a great jumping off point to get something started. On Lun May 21 14:51 , Jim McAlpine <[EMAIL PROTECTED]> sent: >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 > > > >On 5/18/07, Dave Salt [EMAIL PROTECTED]> wrote: >> >> >Jim, >> >> You need to change ZTERMCID to this: >> >> 01 ZTERMCID PIC X(8) VALUE 'ZTERMCID'. >> >> It's not what's causing the RC=20, but without the above change the return >> code from the VGET will be 8. >> >> Hope that helps, >> >> Dave Salt >> >> See the new SimpList(tm) rollover image at: >> http://www.mackinney.com/products/SIM/simplist.htm ---------------------------------------------------------------------- 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
