Thanks to all who replied.  I probably should have included more info, and
in specific, the fact that I didn't want to recompile, or add code, I just
needed a quick (and reliable) method to figure out what parm value to set
when a program blows up at 3:30 am, and the restart requires 1 (or up to 3)
of 5 COBOL run time switches to be set.  Of course,  what the run time
switch values needed to be for the restart could/should have been documented
in both the JCL and the program, but that's yet another thread.   :-)

Ray Shahan

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

> -----Original Message-----
> From: Tony Summers [SMTP:[log in to unmask]]
> Sent: Friday, August 23, 2002 3:41 AM
> To:   [log in to unmask]
> Subject:      Re: COBOL run time switches
>
> The nice thing about the GETINFO intrinsic is it allows you to get both
> the PARM=nn and the INFO="STRING" parts of the Run statement in one quick
> call !  We started using (and continue to use) the "SW15 is etc" mechanism
> but you have to be careful if you have mutually exclusive switches -
> although it is easy to force a particular switch on or off in Cobol.
>
> >>> Michael Anderson <[log in to unmask]> 22/08/02 20:17:49 >>>
> 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 *
>
>
>
> The contents of this email are confidential to the intended recipient and
> may not be disclosed.
> Although it is believed that this email and any attachments are virus
> free,
> it is the responsibility of the recipient to confirm this.
>
> Smith & Williamson Corporate Finance - A member of M&A International Inc.
> http://www.mergers.net  Regulated by the FSA
> Smith & Williamson Investment Management Limited, Registered No. 976145.
> Regulated by the FSA
> Smith & Williamson Pension Consultancy Limited - Independent Intermediary.
> Registered No. 3133226.  Regulated by the FSA
> Smith & Williamson Unit Trust Managers Limited, Registered No. 1934644.
> Regulated by the FSA
> Smith & Williamson Chartered Accountants - A member of Nexia
> International.
> Registered to carry on audit work and regulated for a range of investment
> business activities by the Institute of Chartered Accountants in England &
> Wales
> Smith & Williamson Management Consultants Limited, Registered No. 3226020
>
> Registered Office: No. 1 Riding House Street, London W1A 3AS
> Telephone: 020 7637 5377 http://www.smith.williamson.co.uk
>
> * 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 *