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
-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
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
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
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.
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
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
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.
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
-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
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.
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
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.
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
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
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,
-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
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
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
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
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
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
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
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.
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
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).
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
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
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
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
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
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
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
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
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]
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
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
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
38 matches
Mail list logo