 
| Subject: | |
| From: | |
| Reply To: | |
| Date: | Fri, 24 Jul 1998 12:36:24 -0400 |
| Content-Type: | text/plain |
| Parts/Attachments: |
|
|
Will, It works for me. Here is the example.
:cob85xlg cobtestm
PAGE 0001 COBOL II/iX HP31500A.04.16 [85] Copyright Hewlett-Packard
CO. 1987
00001 001000$CONTROL SOURCE,POST85
00002 001100 IDENTIFICATION DIVISION.
00003 001200 PROGRAM-ID. TEST.
00004 001300 ENVIRONMENT DIVISION.
00005 001400 CONFIGURATION SECTION.
00006 001500 SOURCE-COMPUTER. HP3000.
00007 001600 OBJECT-COMPUTER. HP3000.
00008 001700 SPECIAL-NAMES.
00009 001800 SW0 IS SORT-SWITCH ON IS SORT-BY-SUBJECT.
00010 001900 DATA DIVISION.
00011 002000 WORKING-STORAGE SECTION.
00012 002100
00013 002400 PROCEDURE DIVISION.
00014 002500 BEGIN-TEST.
00015 002600 if sort-by-subject
00016 002700 display "sorting by subject"
00017 002800 else
00018 002900 display "NOT sorting by subject"
00019 003000 end-if.
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 28 BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:00.
END OF PROGRAM
END OF COMPILE
HP Link Editor/iX (HP30315A.05.23) Copyright Hewlett-Packard Co 1986
LinkEd> link
END OF LINK
NOT sorting by subject
END OF PROGRAM
:run $oldpass;parm=%100000
sorting by subject
END OF PROGRAM
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?
|
|
|
