HP3000-L Archives

May 2008, Week 3

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:
Re: Cobol Question
From:
Matthew Perdue <[log in to unmask]>
Reply To:
Matthew Perdue <[log in to unmask]>
Date:
Fri, 16 May 2008 14:10:49 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (19 lines) 
Quoting Michael:

"IF MYTEST <> 0 GO TO FTN2090."

use

IF MYTEST <> ZERO GO TO FTN2090.

or

IF MYTEST NOT = ZERO GO TO FTN2090.

Either tells the compiler to generate code to match the internal variable
type, instead of the decimal 0, which doesn't match because it isn't defined
as 9.V9(4) - it would be 9.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2