Fw: Virus Alert from email re OPNQRYF!!!

If you receive an email directly from PCRAO regarding an OPNQRYF discussion
in RPG400-L with an attachment named README.TXT.pif (13.3KB), do not open
the attachment.  It may infect c:\windows\hkk32.exe with the Backdoor.Trojan
virus and c:\windows\inetd.exe with the W32.Badtrans.13312@mm virus as well
as update autoexec.bat with a call to inetd.exe.  I didn't see the .pif
after the .TXT and made the mistake of opening the attachment, thinking it
had come from RPG400-L.

Norton detected this after the fact.

Charles L.Massoglia, President
Massoglia Technical Consulting, Inc.
cmassoglia@voyager.net
In MI 517-676-9700 or in NC 919-363-9395


> ----- Original Message -----
> From: "Charlie Massoglia" <cmassoglia@voyager.net>
> To: <RPG400-L@midrange.com>
> Sent: Monday, 28 May, 2001 01:20
> Subject: Re: OPNQRYF
>
>
> > If I remember properly, you can only use *EQ with %RANGE, %VALUES, and
> > %WLDCRD.  Try the following:
> >
> >
> >  3800 - OPNQRYF FILE(PGNL601) QRYSLT('  FUND *NE "120"
> >  *AND FUND *NE "502" *AND NOT FUND *EQ %RANGE("700" "760")
> >
> > This would be the equivalent of the following:
> >
> > QRYSLT('FUND *NE "120" *AND FUND *NE "502" *AND (FUND *LT "700" *OR FUND
> *GT
> > "760"))
> >
> > Charles L.Massoglia, President
> > Massoglia Technical Consulting, Inc.
> > cmassoglia@voyager.net
> > In MI 517-676-9700 or in NC 919-363-9395
> >
> >
> > ----- Original Message -----
> > From: "Barnes, Edward V. (RPW)" <EVBarnes@reliefprinting.com>
> > To: <RPG400-L@midrange.com>
> > Sent: Friday, 25 May, 2001 17:37
> > Subject: RE: OPNQRYF
> >
> >
> > > 3800 - OPNQRYF FILE(PGNL601) QRYSLT('  FUND *NE "120"
> > > *AND FUND *NE "502" *AND FUND *NE  %RANGE("000" "999")
> > > This should work
> > >
> > > -----Original Message-----
> > > From: Ronald A. Alford [mailto:ralford@richmond.k12.va.us]
> > > Sent: Friday, May 25, 2001 1:17 PM
> > > To: RPG400-L@midrange.com
> > > Subject: OPNQRYF
> > >
> > >
> > >
> > > Please, does anybody know if it is possible to use a NOT EQUAL on an
> > > %RANGE built-in function in OPNQRYF.  I am
> > > constantly getting errors when trying to do this.  This is how the
> > > statement looks when it is coded:
> > >
> > >  3800 - OPNQRYF FILE(PGNL601) QRYSLT('  FUND *NE "120"
> > > *AND FUND *NE "502" *AND FUND *NE  %RANGE("700" "760")
> > >
> > >
>
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---