Jim McAlpine wrote:
OK, I've changed both of those but still getting rc=20.WORKING-STORAGE SECTION. 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. Jim McAlpine On 5/18/07, Kurt Gramling <[EMAIL PROTECTED]> wrote:Jim, Change the W-S fields to this: 01 ZTERMCID PIC X(8) VALUE '(TCCSID)'. 01 LCCSID PIC 9(6) comp VALUE 5. Kurt Gramling
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
