we stick a percent sign in front and do it that way.

run ar100.jcl;parm=%124000

sw0 is 100000
sw1 is 040000
sw2 is 020000
sw3 is 010000
sw4 is 004000
sw5 is 002000
sw6 is 001000

sw1 AND 3 is 050000
sw4 AND 5 is 006000

just add up the switches you want.  No number can be larger that 7.

Just another way to do it.....

FWIW.......

-----Original Message-----
From: Michael Anderson [mailto:[log in to unmask]]
Sent: Friday, August 23, 2002 9:38 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] COBOL run time switches


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.


<<snip>>

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