Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
Tom Schmidt wrote: On Mon, 21 May 2007 14:25:20 -0500, Eric Bielefeld wrote: Maybe Tom should sue Microsoft. They obviously took his name, which was there long before Vista. They have an army of lawyers and he'd have to buy one (or more). They have to pay their lawyers whether they need them or not, so they purposefully need them for one reason or another all of the time. They could just tie things up in court until he ran out of money, then win by default whether they were right or not. It happens all the time. Tom would have to retain a law firm that will work on a contingency basis. Happens all the time... -- Edward E Jaffe Phoenix Software International, Inc 5200 W Century Blvd, Suite 800 Los Angeles, CA 90045 310-338-0400 x318 [EMAIL PROTECTED] http://www.phoenixsoftware.com/ -- 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
Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Edward Jaffe Sent: Tuesday, May 22, 2007 12:52 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL) Tom Schmidt wrote: On Mon, 21 May 2007 14:25:20 -0500, Eric Bielefeld wrote: Maybe Tom should sue Microsoft. They obviously took his name, which was there long before Vista. SNIP Perhaps he should file for a TM or Registered TM with the PTO. If M/S has already done so, he could have grounds to challenge and it might be a very quick action. But then I remember Lindows who rolled over and became Linspire even AFTER the judge in the case stated that M/S could NOT perfect a generic name into a TradeMark. Seems the money was a bit too good to pass up (but there were more out of the country lawsuits as well). Later, Steve Thompson -- STD Disclaimer: poster's opinions may or may not be poster's employer's opinion. -- -- 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
Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
On Tue, 22 May 2007 10:51:31 -0700, Edward Jaffe wrote: Tom Schmidt wrote: On Mon, 21 May 2007 14:25:20 -0500, Eric Bielefeld wrote: Maybe Tom should sue Microsoft. They obviously took his name, which was there long before Vista. They have an army of lawyers and he'd have to buy one (or more). They have to pay their lawyers whether they need them or not, so they purposefully need them for one reason or another all of the time. They could just tie things up in court until he ran out of money, then win by default whether they were right or not. It happens all the time. Tom would have to retain a law firm that will work on a contingency basis. Happens all the time... True enough, but M$ could still keep him so busy answering legal filings that he would miss too much time from his day job. Then he might be forced to decide what is just vs. what is expedient. -- Tom Schmidt Madison, WI (Justice may be blind but so is Steveland Wonder and look what he accomplished!) -- 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
Re: calling ISPLINK from COBOL
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 _ Windows Live Hotmail. Now with better security, storage and features. www.newhotmail.ca?icid=WLHMENCA149 -- 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
Re: calling ISPLINK from COBOL
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
Re: calling ISPLINK from COBOL
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
Re: calling ISPLINK from COBOL
In a message dated 5/21/2007 9:23:18 A.M. Central Daylight Time, [EMAIL PROTECTED] writes: 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. Yeah he's in the debugging phase now. Guess the place to start is Dialog test and see where the crumbs fall. There used to an ISPF/PDF Samples but can't find it in the online docs. Even had a sample order entry application coded in PL/1, COB, ASM for illustrative purposes. ** See what's free at http://www.aol.com. -- 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
Re: calling ISPLINK from COBOL
Kurt, I've changed that value but I'm still getting the same errors. The VDEFINE gets rc=0 but the VGET returns rc=8. Jim McAlpine On 5/21/07, Kurt Gramling [EMAIL PROTECTED] wrote: Like I said before, the ZTERMCID value should be TCCSID. -- 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
Re: calling ISPLINK from COBOL
I've changed that back to a value of ZTERMCID and it's now returning rc=0 for both calls. I was sure I had tried that before at Dave Salts' suggestion, but maybe not. Now I just need to find out why the ccsid is blank. Thanks for all your help. Jim McAlpine On 5/21/07, Kurt Gramling [EMAIL PROTECTED] wrote: RC=8 is variable not found. Kurt, I've changed that value but I'm still getting the same errors. The VDEFINE gets rc=0 but the VGET returns rc=8. Jim McAlpine On 5/21/07, Kurt Gramling [EMAIL PROTECTED] wrote: Like I said before, the ZTERMCID value should be TCCSID. -- 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 -- 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
Re: calling ISPLINK from COBOL
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Jim McAlpine Sent: Monday, May 21, 2007 10:20 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: calling ISPLINK from COBOL I've changed that back to a value of ZTERMCID and it's now returning rc=0 for both calls. I was sure I had tried that before at Dave Salts' suggestion, but maybe not. Now I just need to find out why the ccsid is blank. Thanks for all your help. Jim McAlpine From the book: quote CCSID coded character set identifier of the terminal. Set by ISPF based on the code page and character set of the terminal. If the terminal code page and character set cannot be queried or if they are not supported by ISPF, this variable will be blank. /quote Perhaps your TN3270E emulator does not support querying of the CCSID. Another possibility is that you are not using a queriable VTAM logmode. -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- 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
Re: calling ISPLINK from COBOL
We only use logmodes D4C32XX3 and those beginning SNX3270* all of which have the query bit set so I'm now presuming its is an emulator issue. Thanks Jim McAlpine On 5/21/07, McKown, John [EMAIL PROTECTED] wrote: From the book: quote CCSID coded character set identifier of the terminal. Set by ISPF based on the code page and character set of the terminal. If the terminal code page and character set cannot be queried or if they are not supported by ISPF, this variable will be blank. /quote Perhaps your TN3270E emulator does not support querying of the CCSID. Another possibility is that you are not using a queriable VTAM logmode. -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- 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
calling ISPLINK from COBOL
I'm trying to convert the following pseudo code to run under COBOL 01 CHAR PIC X(4) VALUE 'CHAR'. is incorrect. When you define a character value with a length less than 8 you need a trailing blank: 01 CHAR PIC X(5) VALUE 'CHAR '. Gene Lynd -- 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
Re: calling ISPLINK from COBOL
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) 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
Re: calling ISPLINK from COBOL
In a message dated 5/21/2007 12:18:31 P.M. Central Daylight Time, [EMAIL PROTECTED] writes: can compile and execute the above program in ISPF with no modifications. Out of curiosity, which Emulator and Logmode are you running? ** See what's free at http://www.aol.com. -- 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
Re: calling ISPLINK from COBOL
On 21 May 2007 10:00:21 -0700, [EMAIL PROTECTED] (Lynd, Eugene , Contractor, J6C) wrote: 01 CHAR PIC X(4) VALUE 'CHAR'. is incorrect. When you define a character value with a length less than 8 you need a trailing blank: 01 CHAR PIC X(5) VALUE 'CHAR '. Gene Lynd Why does he need that? -- 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
Re: calling ISPLINK from COBOL
Ed Finnell of the IBM Mainframe Discussion List IBM-MAIN@BAMA.UA.EDU wrote on 05/21/2007 12:25:02 PM: In a message dated 5/21/2007 12:18:31 P.M. Central Daylight Time, [EMAIL PROTECTED] writes: can compile and execute the above program in ISPF with no modifications. Out of curiosity, which Emulator and Logmode are you running? Emulator: Vista tn3270 1.6. Logmodes: SNX32702, SNX32705, and D4C32XX3. -- 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
Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
-Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of John P Kalinich Sent: Monday, May 21, 2007 12:59 PM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: calling ISPLINK from COBOL snip Emulator: Vista tn3270 1.6. Logmodes: SNX32702, SNX32705, and D4C32XX3. Hum, I wonder how long before Tom Brennan Software is sued by Microsoft over the name Vista as causing confusion in the market place? And, if he resists, I wonder how long it will be before MS creates an inferior, but free, TN3270 emulator bundled into Windows (ref: Netscape). -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology The information contained in this e-mail message may be privileged and/or confidential. It is for intended addressee(s) only. If you are not the intended recipient, you are hereby notified that any disclosure, reproduction, distribution or other use of this communication is strictly prohibited and could, in certain circumstances, be a criminal offense. If you have received this e-mail in error, please notify the sender by reply and delete this message without copying or disclosing it. -- 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
Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
On 21 May 2007 11:02:36 -0700, [EMAIL PROTECTED] (McKown, John) wrote: Emulator: Vista tn3270 1.6. Logmodes: SNX32702, SNX32705, and D4C32XX3. Hum, I wonder how long before Tom Brennan Software is sued by Microsoft over the name Vista as causing confusion in the market place? And, if he resists, I wonder how long it will be before MS creates an inferior, but free, TN3270 emulator bundled into Windows (ref: Netscape). It would probably be cheaper to just threaten to do this, and then buy the name or even the company. -- 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
Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
Hum, I wonder how long before Tom Brennan Software is sued by Microsoft over the name Vista as causing confusion in the market place? Tom's product has history as it was there long before Vista was even imagined (not that that will stop M$ from attempting something if they decided to) Lionel B. Dyck, Consultant/Specialist Enterprise Platform Services, Mainframe Engineering KP-IT Enterprise Engineering, Client and Platform Engineering Services (CAPES) 925-926-5332 (8-473-5332) | E-Mail: [EMAIL PROTECTED] AIM: lbdyck | Yahoo IM: lbdyck Kaiser Service Credo: Our cause is health. Our passion is service. We?re here to make lives better.? ?Never attribute to malice what can be caused by miscommunication.? NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, you are prohibited from sharing, copying, or otherwise using or disclosing its contents. If you have received this e-mail in error, please notify the sender immediately by reply e-mail and permanently delete this e-mail and any attachments without reading, forwarding or saving them. Thank you. -- 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
Re: calling ISPLINK from COBOL
If I'm not mistaken, you probably should not be VDEFINING that variable at all - it already exists in the profile pool. You need to VGET it from the profile pool - I think your code was getting it from the shared pool. Jim Harrison - Original Message - From: Jim McAlpine [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Monday, May 21, 2007 11:20 AM Subject: Re: calling ISPLINK from COBOL I've changed that back to a value of ZTERMCID and it's now returning rc=0 for both calls. I was sure I had tried that before at Dave Salts' suggestion, but maybe not. Now I just need to find out why the ccsid is blank. Thanks for all your help. Jim McAlpine On 5/21/07, Kurt Gramling [EMAIL PROTECTED] wrote: RC=8 is variable not found. Kurt, I've changed that value but I'm still getting the same errors. The VDEFINE gets rc=0 but the VGET returns rc=8. Jim McAlpine On 5/21/07, Kurt Gramling [EMAIL PROTECTED] wrote: Like I said before, the ZTERMCID value should be TCCSID. -- 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 -- 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
Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
Maybe Tom should sue Microsoft. They obviously took his name, which was there long before Vista. Eric Bielefeld Sr. z/OS Systems Programmer Milwaukee, Wisconsin 414-475-7434 Hum, I wonder how long before Tom Brennan Software is sued by Microsoft over the name Vista as causing confusion in the market place? And, if he resists, I wonder how long it will be before MS creates an inferior, but free, TN3270 emulator bundled into Windows (ref: Netscape). -- John McKown Senior Systems Programmer HealthMarkets Keeping the Promise of Affordable Coverage Administrative Services Group Information Technology -- 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
Re: calling ISPLINK from COBOL
From: Jim McAlpine [EMAIL PROTECTED] I've changed that back to a value of ZTERMCID and it's now returning rc=0 for both calls. I was sure I had tried that before at Dave Salts' suggestion, but maybe not. Now I just need to find out why the ccsid is blank. Have you tried executing the program in foreground? If not, put the load module in a library that's allocated to the ISPLLIB ddname, then enter 'TSO loadname' on any ISPF command line. This will at least tell you if the issue is due to batch versus foreground. Also, what happens if you VGET the value from the SHARED pool using a simple REXX procedure; is it still blank? Dave Salt See the new SimpList(tm) rollover image at: http://www.mackinney.com/products/SIM/simplist.htm _ New Windows Live Hotmail is here. Upgrade for free and get a better look. www.newhotmail.ca?icid=WLHMENCA150 -- 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
Re: Vista Tn3270 (was: Re: calling ISPLINK from COBOL)
On Mon, 21 May 2007 14:25:20 -0500, Eric Bielefeld wrote: Maybe Tom should sue Microsoft. They obviously took his name, which was there long before Vista. They have an army of lawyers and he'd have to buy one (or more). They have to pay their lawyers whether they need them or not, so they purposefully need them for one reason or another all of the time. They could just tie things up in court until he ran out of money, then win by default whether they were right or not. It happens all the time. -- Tom Schmidt Madison, WI (I hope they leave him alone but I wouldn't mind if the name changed to dodge the bullet; His code is still the best stuff especially for the price.) -- 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
Re: calling ISPLINK from COBOL
Jim McAlpine wrote:
I'm trying to convert the following pseudo code to run under COBOL -
DCL TCCSID CHAR(5); /* TERMINAL CCSID */
CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',
LENGTH(TCCSID));
CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -
WORKING-STORAGE SECTION.
01 TCCSID PIC X(5).
01 LCCSID PIC S9(8) 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.
Items have to be in a specified order; for VDEFINE its:
VDEFINE - the verb; you're OK there
name-list - you have ZTERMCID, looks OK
variable - you have TCCSID, 5 byte area where value is to
be placed; looks OK
format - you have CHAR; OK
length - you have LCCSID; this must be a fullword
binary integer; you have 8 bytes of
display;
Try chaning LCCSID to be defined as:
LCCSID pic s9(8) binary value 5.
but I'm getting rc=20 - severe error from both calls to ISPLINK. It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon without success. Can someone put me out of my Friday afternoon
misery please. Is it time to go home yet.
Hard to say: what time zone are you in?
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
Re: calling ISPLINK from COBOL
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'm trying to convert the following pseudo code to run under COBOL -
DCL TCCSID CHAR(5); /* TERMINAL CCSID */
CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',
LENGTH(TCCSID));
CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -
WORKING-STORAGE SECTION.
01 TCCSID PIC X(5).
01 LCCSID PIC S9(8) 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.
but I'm getting rc=20 - severe error from both calls to ISPLINK. It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon without success. Can someone put me out of my Friday afternoon
misery please. Is it time to go home yet.
Jim
--
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
calling ISPLINK from COBOL
I'm trying to convert the following pseudo code to run under COBOL -
DCL TCCSID CHAR(5); /* TERMINAL CCSID */
CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',
LENGTH(TCCSID));
CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -
WORKING-STORAGE SECTION.
01 TCCSID PIC X(5).
01 LCCSID PIC S9(8) 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.
but I'm getting rc=20 - severe error from both calls to ISPLINK. It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon without success. Can someone put me out of my Friday afternoon
misery please. Is it time to go home yet.
Jim
--
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
Re: calling ISPLINK from COBOL
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 -- 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
Re: calling ISPLINK from COBOL
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
Re: calling ISPLINK from COBOL
Jim, You may not have all of the allocations correct in the batch JCL. Try putting the load in a dataset allocated in your ISPLLIB of your TSO session and executing it directly - TSO CCSID. Kurt Gramling 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 -- 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
Re: calling ISPLINK from COBOL
I don't know if you can do this, but if you can get a dump of the code at the time it is making the call to ISPLINK, you can check the parm list. R1 will point to a parmlist of full word pointers, with the last one set with the high order bit on to denote end of list. Each parm in the list has to be in the sequence specified in the ISPF manual for the type of function desired. 1st parm would point to an 8 character field with VDEFINE, 2nd parm the name field, etc., etc. Check the manual for the correct parm list for the type of call. Adjust your code accordingly. As far as I know, rc=20 says ISPF cannot recognize what it is you are asking...the parm list is un-recognizable. Hope this helps. --Dave - Original Message - From: Jim McAlpine [EMAIL PROTECTED] Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@BAMA.UA.EDU Sent: Friday, May 18, 2007 10:11 AM Subject: Re: calling ISPLINK from COBOL 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 -- 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
Re: calling ISPLINK from COBOL
Jim, When you execute the program, are you running under a batch job or in TSO? Are you sure the call to ISPLINK is dynamic? I don't know if static links will work. Kurt Gramling 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 -- 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
Re: calling ISPLINK from COBOL
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
Re: calling ISPLINK from COBOL
Ah. You have to be running under TSO and start ISPF for ISPLINK to work, otherwise you get the RC 20.(Well, that first part is not exactly 100% true; I've seen some pretty good spoofing of TSO that fools ISPF.) You can run ISPF under batch TSO (EXEC PGM=IKJEFT1B or IKJEFT01); I haven't used ISPF batch before, but there are examples of how to do this in the archives (this came up recently). There is also an ISPF-centric listserv, ISPF-L. Subscribe using the usual commands at [EMAIL PROTECTED] Later, Ray -Original Message- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Jim McAlpine Sent: Friday May 18 2007 08:43 To: IBM-MAIN@BAMA.UA.EDU Subject: Re: calling ISPLINK from COBOL 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 -- 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
Re: calling ISPLINK from COBOL
Kurt Gramling wrote: Jim, You may not have all of the allocations correct in the batch JCL. Try putting the load in a dataset allocated in your ISPLLIB of your TSO session and executing it directly - TSO CCSID. Kurt Gramling 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 I'd go along with Kurt on this one. You need all your allocations set up. And with Ray: you need to run this under ISPF, so you probably don't want to just execute the program but issue an ISPSTART command or some other start up scenario. 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
Re: calling ISPLINK from COBOL
Yes, I think that's probably it. I was sure I had done this before, but as I said originally it was a long long time ago. Anyhow it is now definitely time to go home. I'll get back on it next week. Thanks again for all the help. Jim McAlpine On 5/18/07, Steve Comstock [EMAIL PROTECTED] wrote: I'd go along with Kurt on this one. You need all your allocations set up. And with Ray: you need to run this under ISPF, so you probably don't want to just execute the program but issue an ISPSTART command or some other start up scenario. 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
Re: calling ISPLINK from COBOL
Steve Comstock wrote:
Jim McAlpine wrote:
I'm trying to convert the following pseudo code to run under COBOL -
DCL TCCSID CHAR(5); /* TERMINAL CCSID */
CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',
LENGTH(TCCSID));
CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -
WORKING-STORAGE SECTION.
01 TCCSID PIC X(5).
01 LCCSID PIC S9(8) 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.
Items have to be in a specified order; for VDEFINE its:
VDEFINE - the verb; you're OK there
name-list - you have ZTERMCID, looks OK
variable - you have TCCSID, 5 byte area where value is to
be placed; looks OK
format - you have CHAR; OK
length - you have LCCSID; this must be a fullword
binary integer; you have 8 bytes of
display;
Try chaning LCCSID to be defined as:
LCCSID pic s9(8) binary value 5.
I find that using the ISPF 'MODEL' command is useful when writing ISPF
programs. Make sure you're editting a PDS with a name such as
MYNAME.TEST.COBOL and then issue 'MODEL WORKSTORE' and the 'a' line
command where you would like the working storage fields entered. Then go
down to the procedure division and to a 'MODEL VDEFINE' for a sample and
=NOTE= comments. Same for the other ISPF services. Do 'MODEL' by itself
to bring up a list of all the services.
but I'm getting rc=20 - severe error from both calls to ISPLINK. It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon without success. Can someone put me out of my Friday afternoon
misery please. Is it time to go home yet.
Hard to say: what time zone are you in?
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
--
Don Poitras - zSeries R D - SAS Institute Inc. - SAS Campus Drive
mailto:[EMAIL PROTECTED] (919)531-5637 Fax:677- Cary, NC 27513
--
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
Re: calling ISPLINK from COBOL
Don Poitras wrote:
Steve Comstock wrote:
Jim McAlpine wrote:
I'm trying to convert the following pseudo code to run under COBOL -
DCL TCCSID CHAR(5); /* TERMINAL CCSID */
CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',
LENGTH(TCCSID));
CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -
WORKING-STORAGE SECTION.
01 TCCSID PIC X(5).
01 LCCSID PIC S9(8) 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.
Items have to be in a specified order; for VDEFINE its:
VDEFINE - the verb; you're OK there
name-list - you have ZTERMCID, looks OK
variable - you have TCCSID, 5 byte area where value is to
be placed; looks OK
format - you have CHAR; OK
length - you have LCCSID; this must be a fullword
binary integer; you have 8 bytes of
display;
Try chaning LCCSID to be defined as:
LCCSID pic s9(8) binary value 5.
I find that using the ISPF 'MODEL' command is useful when writing ISPF
programs. Make sure you're editting a PDS with a name such as
MYNAME.TEST.COBOL and then issue 'MODEL WORKSTORE' and the 'a' line
command where you would like the working storage fields entered. Then go
down to the procedure division and to a 'MODEL VDEFINE' for a sample and
=NOTE= comments. Same for the other ISPF services. Do 'MODEL' by itself
to bring up a list of all the services.
Excellent suggestion, Don. I second that approach.
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
Re: calling ISPLINK from COBOL
On Fri, 18 May 2007 10:27:43 -0500, David Day wrote: I don't know if you can do this, but if you can get a dump of the code at the time it is making the call to ISPLINK, you can check the parm list. R1 will point to a parmlist of full word pointers, with the last one set with the high order bit on to denote end of list. Each parm in the list has to be in the sequence specified in the ISPF manual for the type of function desired. 1st parm would point to an 8 character field with VDEFINE, 2nd parm the name field, etc., etc. Check the manual for the correct parm list for the type of call. Adjust your code accordingly. As far as I know, rc=20 says ISPF cannot recognize what it is you are asking...the parm list is un-recognizable. Hope this helps. I know of a program that does this kind of thing and it's calling ISPLINK with 6 parameters. The last one being some kind of option list. The rest seem to follow what you've already got. -- 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
