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