HP3000-L Archives

July 1998, 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 Switch - Help
From:
John Zoltak <[log in to unmask]>
Reply To:
John Zoltak <[log in to unmask]>
Date:
Fri, 24 Jul 1998 09:31:55 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (32 lines) 
You have 1 too many zeros. Parm is a 16 bit word so bit zero set would
be %100000.

John Zoltak
North American Mfg Co

> -----Original Message-----
> From: Will Townsley [SMTP:[log in to unmask]]
> Sent: Friday, July 24, 1998 10:27 AM
> To:   [log in to unmask]
> Subject:      [HP3000-L] Cobol Switch - Help
>
> I am trying to use a cobol switch (what is called an UPSI switch in
> IBM)
> for the first time on HP and must be doing something incorrectly. I
> have entered the following under special names:
>
> SW0 IS SORT-SWITCH ON IS SORT-BY-SUBJECT
>
> In the program logic, the following is coded:
>
> IF  SORT-BY-SUBJECT
>     (DO THE SORT BY SUBJECT)
> ELSE
>     (DO THE SORT ANOTHER WAY).
>
> In the run statement is the following:
>
> RUN WRT001O.SMC.COLLEGE;PARM=%1000000
>
> Can you see anything wrong here?

ATOM RSS1 RSS2