HP3000-L Archives

February 1999, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"James Clark, Jr." <[log in to unmask]>
Reply To:
James Clark, Jr.
Date:
Fri, 26 Feb 1999 16:29:02 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (51 lines)
I believe with COBOL the understanding is when 2 objects are being worked
upon that spaces are padded make each object the same size. Thus in your
example 'if new-flag > " "' the " " should have been expanded to 4 spaces
and then compared. With a new compiler, I would look for compiler flags
which may control this and check their defaults. Interesting that this would
break. I would lean towards a bug unless a compiler flag was introduced.
Check current definition of compare operators. I will look on mine, but I
don't have the latest, will have to look on http://www.docs.hp.com for the
answer.

James

> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
> Behalf Of Curt Brimacomb
> Sent: Friday, February 26, 1999 2:35 PM
> To: [log in to unmask]
> Subject: Attention all COBOL programmers
>
>
> I have a question for all you COBOL programmers.  I have run across a
> problem and do not understand why I have to fix it the way I do.
>
> Program(s) worked fine in compatability mode.  Moved to native mode and
> seemed to work fine until new OS update (5.5 pp6) with a new compiler.
>
> Have lines like this:
> 77 new-flag pic x(4) value spaces.
> .
> .
> .
> If new-flag > " "
>      move spaces to next-flag.
>
> I now have to change the if line to say 'if new-flag not =
> spaces' before it
> will work the same as in compatability mode.  I have also tried
> 'if new-flag
> > "    "' but that also does not work correct.
>
> Can someone set me straight on why it no longer works likes it used to?
>
> Curt Brimacomb                             http://www.magiclink.com
> System Manager                             http://www.idahocomputer.net
> Idaho Computer Services, Inc.              http://www.datanow.net
> PO Box 446                                 Voice: (208) 734-2245
> Twin Falls, ID 83301                       Fax: (208) 733-9663
>
> "It is easier to ask a stupid question that it is to fix a stupid mistake"
>

ATOM RSS1 RSS2