BTW... If you're using the 128B or 128C character sets, you can use the "shift" capability to jump into the 128A character set for the CR/LF and then "shift" back to the original character set.
Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power
--
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of Roger Harman <roger.harman@xxxxxxxxxxx>
Sent: Friday, August 9, 2019 10:05 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Code128 CR/LF
It's been a lot of years so I had to refresh my memory as I recalled that the character set is different for 128. Yes, 128A supports CR/LF but does not use the values you are supplying.
https://www.barcodefaq.com/1d/code-128/#Code-128CharacterSet
77/74 are equivalent to CR/LF in 128A
Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power
________________________________
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> on behalf of (WalzCraft) Jerry Forss <JForss@xxxxxxxxxxxxx>
Sent: Friday, August 9, 2019 7:41 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: Code128 CR/LF
What I am doing is a combo
Dcl-S CRLF Char(2) Inz(x'0d25');
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Barb Hines
Sent: Friday, August 9, 2019 9:11 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Code128 CR/LF
Can someone please tell me what I'm doing wrong?
I am attempting to code a carriage return and line feed into a code128 barcode. My code looks like this:
d cr c const(X'0D')
d lf c const(X'25')
dimen2 = pwd + cr + lf + dimen1;
Print file:
A DIMEN2 30A 1
A BARCODE(CODE128 2 *NOHRI (*WIDTH .-
A 007))
Scan results using a Unitech AS10-U scanner:
********** 10.219”
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
Subject to Change Notice:
WalzCraft reserves the right to improve designs, and to change specifications without notice.
Confidentiality Notice:
This message and any attachments may contain confidential and privileged information that is protected by law. The information contained herein is transmitted for the sole use of the intended recipient(s) and should "only" pertain to "WalzCraft" company matters.
If you are not the intended recipient or designated agent of the recipient of such information, you are hereby notified that any use, dissemination, copying or retention of this email or the information contained herein is strictly prohibited and may subject
you to penalties under federal and/or state law. If you received this email in error, please notify the sender immediately and permanently delete this email. Thank You
WalzCraft PO Box 1748 La Crosse, WI, 54602-1748
www.walzcraft.com<
http://www.walzcraft.com> Phone: 1-800-237-1326
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
