RE: CPYF question

["Dan Bale" <dbale@xxxxxxxxxxxxx>]

Simon?  Someone?

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx / pnelson@xxxxxxxxxx
> Sent: Thursday, October 07, 2004 2:27 PM
>
> Would you believe that when I went back to check, the alpha fields were
> getting right justified?
>
> Paul Nelson
> Arbor Solutions, Inc.
> 708-670-6978  Cell
> pnelson@xxxxxxxxxx
>
>
>
> "Dan Bale" <dbale@xxxxxxxxxxxxx>
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 10/07/2004 12:50 PM
> Please respond to Midrange Systems Technical Discussion
>
>         To:     "Midrange Systems Technical Discussion"
> <midrange-l@xxxxxxxxxxxx>
>         cc:
>         Subject:        RE: CPYF question
>
>
> Well, the first place I'd go is back to Paul; he made it sound like he got
> it to work after Simon clued him in.  Paul???
>
> db
>
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx / Marco Facchinetti
> > Sent: Thursday, October 07, 2004 1:43 PM
> >
> > 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