RE: CPYF question

[pnelson@xxxxxxxxxx]

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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.