HP3000-L Archives

August 2002, 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:
Re: COBOL run time switches
From:
Michael Anderson <[log in to unmask]>
Reply To:
Michael Anderson <[log in to unmask]>
Date:
Thu, 22 Aug 2002 14:17:49 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (47 lines) 
The *easy* way, use the GETINFO intrinsic. This way you don't need to do
any 'What bit is Switch what?', just a normal numeric test.

CALL INTRINSIC "GETINFO"
USING GINFO-STR GINFO-LEN GINFO-PARM
GIVING GINFO-RESULT.

01  GINFO-STR                   PIC X(256) VALUE SPACES.
01  GINFO-PARM                  PIC S9(4) COMP VALUE 0.
01  GINFO-LEN                   PIC S9(4) COMP VALUE 256.
01  GINFO-RESULT                PIC S9(4) COMP VALUE 0.



--
Michael Anderson
Spring Independent School District
16717 Ella Boulevard
Houston, Texas 77090-4299
office: 281.586.1105
fax: 281.586.1187
-

>>> "Shahan, Ray" <[log in to unmask]> 08/22/02 10:24AM >>>
Hi all,

Does anyone know of an *easy* way to determine the value required to
set the
COBOL run time switches?

SW5 IS FIGURE-IT-OUT-SW ON STATUS IS FIGURED-IT-OUT


TIA


Ray Shahan

"Life is what happens while you're busy making other plans", John
Lennon

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

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

ATOM RSS1 RSS2