I keep telling the users around here, 'I gave you exactly what you asked
for', I guess maybe sometimes I misunderstand them.
So you need to set COBOL Switches, but from more of a operational point
of view, no programming.
:PRINT COBSWTS
Setvar sw0 32768
Setvar sw1 16384
Setvar sw2 8192
Setvar sw3 4096
Setvar sw4 2048
Setvar sw5 1024
Setvar sw6 512
Setvar sw7 256
Setvar sw8 128
Setvar sw9 64
Setvar sw10 32
Setvar sw11 16
Setvar sw12 8
Setvar sw13 4
Setvar sw14 2
Setvar sw15 1
<< Add/Xeq the COBSWTS command file into/in you job/session.>>
As an example lets say you wanted to run with switch 1 and 2 on, and
the rest off.
:XEQ COBSWTS
:RUN ASDASD;PARM=![SW1 + SW2]
This would equate to: RUN ASDASD;PARM=24576
You could actually give these variables real names, for documentation
purposes only.
NO PROGRAMMING.
--
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/23/02 08:04AM >>>
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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|