There is a suprtool listserver at mailto:[log in to unmask]

If you are creating multiple outputs you need several input statements and
will need to reproduce the block (of course the define remains the same and
can be eliminated in the subsequent blocks).  If you need only one output
file you are appending to you can redefine the 'If statement' using 'or'. Or
if all the files you are looking for have CDC == "ITC" you may want to
extract for that 1st then use that file to extract the rest.

Hope this helps,
Cat
Catherine Litten,
Senior Programmer Analyst
Valley Presbyterian Hospital
www.valleypres.org
***Confidentiality Notice: This e-mail message, including any attachments,
is for the sole use of the intended recipient (s) and may contain
confidential and privileged information. Any unauthorized review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply e-mail and destroy all copies
of the original message.***


-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
Behalf Of Born, Ken
Sent: Thursday, January 31, 2002 1:32 PM
To: [log in to unmask]
Subject: Suprtool question... Multiple outputs using Multiple IF's


Greetings,
I am working on a suprtool process to be able to generate output files based
on the data in a file.

!RUN SUPRTOOL.PUB.ROBELLE
 INPUT ITC.IWIN.ALERTS
 DEFINE CDC,1,3,CHAR
 DEFINE USER-ID,4,10,CHAR
 DEFINE USER-NAME,14,25,CHAR
 EXTRACT CDC
 EXTRACT "."
 EXTRACT USER-ID
 EXTRACT USER-NAME
 IF CDC == "ITC" AND USER-NAME == "A@"
   OUTPUT USERITCA,ASCII
Now, If the If statement is false, I want to do another test and output the
record
to USERITCB IF CDC == "ITC" AND USER-NAME == "B@"
 XEQ
 EXIT

I attemtped several things but it won't let me use multiple IF's.  I know I
could probably
copy the suprtool block again and replace the two lines with
IF CDC == "ITC" AND USER-NAME == "B@"
   OUTPUT USERITCB,ASCII

But, I don't want a JCL that needs to read the file input file 26 times.  I
was hoping for a cleaner way of doing it.
thanks. in advance...

* 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 *