RE: Trouble getting a numeric barcode w/decimals ??

["Don Cavaiani" <dcavaiani@xxxxxxxxxxxxx>]

Is there a way to easily convert 1 RPG program to RPGLE ? 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Franz
Sent: Monday, August 10, 2009 7:35 PM
To: Midrange Systems Technical Discussion
Subject: Re: Trouble getting a numeric barcode w/decimals ??

RPGLE - yes.
----- Original Message -----
From: "Don Cavaiani" <dcavaiani@xxxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Monday, August 10, 2009 8:28 PM
Subject: RE: Trouble getting a numeric barcode w/decimals ??


> Thanks, Jim, I'll give it try.  That's RPGLE,right?
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Franz
> Sent: Monday, August 10, 2009 7:18 PM
> To: Midrange Systems Technical Discussion
> Subject: Re: Trouble getting a numeric barcode w/decimals ??
>
> try this
> A      @PRICE        10       POSITION(6.05 2.65)
> A                                           BARCODE(CODE128 6 *NOHRI)
>
> c           eval    @price =  %editc(dolamt:'X')
>
> (i've not tested what "X" does with negative values) Jim
>
> ----- Original Message -----
> From: "Don Cavaiani" <dcavaiani@xxxxxxxxxxxxx>
> To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
> Sent: Monday, August 10, 2009 7:59 PM
> Subject: RE: Trouble getting a numeric barcode w/decimals ??
>
>
> > Thanks, Jim.  Do you have an example of the code -  DDS/RPG?
> >
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx
> > [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Franz
> > Sent: Monday, August 10, 2009 6:53 PM
> > To: Midrange Systems Technical Discussion
> > Subject: Re: Trouble getting a numeric barcode w/decimals ??
> >
> > Put the numeric into an alpha numeric field.
> > If you have to have the decimal, then use an %editc or %editw.
> > Barcode data is alphanumeric.
> > Jim
> >
> > ----- Original Message -----
> > From: "Don Cavaiani" <dcavaiani@xxxxxxxxxxxxx>
> > To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
> > Sent: Monday, August 10, 2009 5:42 PM
> > Subject: Trouble getting a numeric barcode w/decimals ??
> >
> >
> > > SQREQA         8S 3     65BARCODE(CODE128 3 *HRITOP)
> > >
> > > Message . . . . :   Keyword value not valid with data type or key
> > >
> > > Don F. Cavaiani
> > > IT Manager
> > > Amerequip Corp.
> > > 920-894-7063
> > >
> > > "It's amazing what you can accomplish if you don't care who gets the
> > > credit."  Harry S. Truman
> > >
> > >
> > >
> > > -- 
> > > 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.
> >
> > -- 
> > 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.
> >
> > -- 
> > 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.
>
> -- 
> 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.
>
> -- 
> 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.