RE: CPYF question

[Marco Facchinetti <facchinetti@xxxxxxxxx>]

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