Re: OPNQRYF with a numeric variable in QRYSLT

["Peter Dow" <maillist@xxxxxxxxxxxxxxx>]

Hi Peter,

You're trying to compare the values in field CUSTNO with the constant
"&CCUSNO".  What I usually do is something like:

DCL &SELECT *CHAR 256

CHGVAR &SELECT ('CUSTNO *EQ' *BCAT &CCUSNO)

then

 OPNQRYF    FILE((DOWNLOADA/XBCKLOG XBCKLOG)) +
              QRYSLT(&SELECT)

hth,
Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 522-3214 cellular
909 793-4480 fax


----- Original Message -----
From: "Peter Vidal" <Peter_Vidal@xxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, April 01, 2003 1:59 PM
Subject: OPNQRYF with a numeric variable in QRYSLT


> What's wrong here?
>
> DCL        VAR(&CCUSNO) TYPE(*DEC) LEN(8 0) VALUE(5659000)
>
> OVRDBF     FILE(XBCKLOG) TOFILE(DOWNLOADA/XBCKLOG) +
>              MBR(XBCKLOG) SHARE(*YES)
>
> OPNQRYF    FILE((DOWNLOADA/XBCKLOG XBCKLOG)) +
>              QRYSLT('CUSTNO *EQ &CCUSNO')
>
>
>
> Peter Vidal
> Pall Aeropower Corp.
> SR Programmer Analyst
> WWW.Pall.com / 727-539-8448, x2414
>
> "A good player makes himself look good;
> a great player makes the team look good."
> Author unknown
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>