× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



No, but I spent 5 minutes to check the INCCHAR parameter
and get the same error, hummmm PMR season is open?

HTH
Marco
--- Dan Bale <dbale@xxxxxxxxxxxxx> wrote:

> Well, here is the example I am trying to get to work:
> 
>   Dcl   &Var5    *Char  (    5   ) Value( 'MI   ')
>   Dcl   &A       *Char  (    1   ) Value( '''' )
>   CPYF  FROMFILE(VATTBL) TOFILE(*PRINT) +
>         INCREL((*IF TXSUF *EQ  ( &A *cat &Var5 *cat &A
> )))
> 
> TXSUF is a 5-byte alpha.  Still getting the CPF2843
> error.  The job log
> shows:
> 
>  700 - CPYF FROMFILE(AMFLIB/VATTBL) TOFILE(*PRINT)
>          INCREL((*IF TXSUF *EQ '''MI   '''))
> 
> CL dump shows:
> 
> Variable  Type   Length  Value         Value in
> Hexadecimal
>                           *...+....1   * . . . + . . . .
> 1
> &A        *CHAR     1    '''           7D
> &VAR5     *CHAR     5    'MI   '       D4C9404040
> 
> Try again?
> 
> tia,
> db
> 
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx / Marco
> Facchinetti
> > Sent: Thursday, October 07, 2004 12:29 PM
> >
> > PGM
> > DCL        VAR(&Q) TYPE(*CHAR) LEN(1) VALUE('''')
> > DCL        VAR(&FIELD) TYPE(*CHAR) LEN(5) VALUE('XXXX
> ')
> > CPYF       FROMFILE(LIB/FILE) +
> >              TOFILE(QTEMP/FILE) MBROPT(*REPLACE) +
> >              CRTFILE(*YES) INCREL((*IF DBFIELD1 *EQ +
> >              'YYY') (*AND DBFIELD2 *EQ (&Q *CAT +
> >              &FIELD *CAT &Q)))
> > ENDPGM
> >
> > HTH
> > Marco
> 



                
_______________________________
Do you Yahoo!?
Declare Yourself - Register online to vote today!
http://vote.yahoo.com

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.