Re: Need Help on using Variable Numeric fields in OPNQRYF

[Mike.Barton@xxxxxxxxxxxx]

Hi
     There are several solutions but here is the easiest (no guarantees):

use character version of &FRDATE and convert ABDATE into a character
form using %DIGITS function. Also include extra double quotes otherwise an error
may occur.

e.g.
DCL        VAR(&FRDATE) TYPE(*CHAR) LEN(7) VALUE('0991201')

OVRDBF     FILE(ABCLF) SHARE(*YES)

        OPNQRYF    FILE((ABCLF)) +
                  QRYSLT('%DIGITS(ABDATE) *GE "' *CAT &FRDATE *CAT '" ')   +
                 KEYFLD((ABCUST))


Mike





S R <s.v.r@usa.net> on 18/01/2000 11:08:53

Please respond to RPG400-L@midrange.com

To:   RPG400-L@midrange.com
cc:    (bcc: Mike Barton/Wellingborough/UK/ECSOFT)

Subject:  Need Help on using Variable Numeric fields in OPNQRYF



START:      PGM

DCL        VAR(&FRDATE) TYPE(*DEC) LEN(7 0) VALUE(0991201)

OVRDBF     FILE(ABCLF) SHARE(*YES)

        OPNQRYF    FILE((ABCLF)) +
                  QRYSLT('ABDATE *GE ' *CAT &FRDATE    *CAT ' ')   +
                 KEYFLD((ABCUST))
CPD0712 30  Operand  does not have valid type for operator.

CPD0711 30  Operands in expression not same type.


I am trying to use the above CL to select the records from the file using the
Numeric varible(FRDATE) but when compiling I getting the above errors in the
OPNQRYF statement. Can anyone please help me to fix this problem.

Regards,
S.Ramesh

____________________________________________________________________
Get free email and a permanent address at http://www.netaddress.com/?N=1
+---
| 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
+---






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