|
midrange.com
> Is anyone printing AS/400 (Rpg created) Bar code on a printer that is
> attached via ethernet?
> We have a situation where we added Bar code to a programs output and it
does
> not work on the printer unless the printer is attached via twinax.
> I know there are workarounds out in the field, I need to know what I can do
> to get this printer to accept bar code. The printer IS capable of printing
> Bar code.
The rpg & dds below will print barcodes,
using TCPIP remote host printing (LPR/LPD) over ethernet
to a HP Laserjet 4000N, configured as follows:
ADDTCPHTE INTNETADR(&ADDR) HOSTNAME((&NAME)) TEXT(&TEXT)
CRTOUTQ OUTQ(QGPL/&NAME)
RMTSYS(&NAME) RMTPRTQ(PORT1) +
CNNTYPE(*IP) DESTTYPE(*OTHER) MFRTYPMDL(*WSCSTA4) +
WSCST(QWPHPLSR4) SEPPAGE(*NO) TEXT(&TEXT)
STRRMTWTR &NAME
5769PW1 V4R2M0 980228 SEU SOURCE LISTING
28/09/00 13:31:06 PAGE 1
SOURCE FILE . . . . . . . BAUX/QDDSSRC
MEMBER . . . . . . . . . BCDDSPRT
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+... 7 ...+... 8 ...+... 9 ...+... 0
100
*---------------------------------------------------------------
01/11/99
200 * Printer file: BCDDSPRT
01/11/99
300 * USE CRTPRTF BCDDSPRT SRCFILE(BAUX/QDDSSRC) TYPE(*AFPDS)
01/11/99
400 *
01/11/99
500 * RECORD FORMAT
01/11/99
600 A R RDDSPR
700 A 03 01' '
800 A 04 03DATE
900 A EDTCDE(Y)
1000 A UNDERLINE
1100 A 04 15'IPDS DDS KEYWORD
DEMONSTRATION'
1200 A CHRSIZ(1 1) UNDERLINE
1300 A HIGHLIGHT
1400 A*
1500 A* BARCODE CODEABAR 7 LINES *RATIO 2.1 *HRITOP
1600 A R RCOD7H
1700 A 03'BARCODE CODEABAR 7
LINES +
1800 A *RATIO 2.1 *HRITOP'
1900 A SPACEB(4)
2000 A CODA7H 10A O 03BARCODE(CODEABAR 7
(*RATIO 2.1) +
2100 A *HRITOP)
2200 A SPACEB(2)
2300 A*
2400 A* BARCODE CODE3OF9 4 LINES VERTICAL
2500 A R RCOD9V
2600 A 03'BARCODE CODE3OF9 4 LINES'
2700 A SPACEB(11)
2800 A COD39C 15A 03BARCODE(CODE3OF9 4)
2900 A SPACEB(1)
3000 A*
3100 A* BARCODE UPCA 6 LINES HORIZONTAL
3200 A R RCODUP
3300 A 03'BARCODE UPCA 6 LINES'
3400 A SPACEB(11)
3500 A CODUPC 11S 03BARCODE(UPCA 6)
3600 A SPACEB(1)
3700 *
01/11/99
* * * * E N D O F S O U R C E * * * *
5769PW1 V4R2M0 980228 SEU SOURCE LISTING
28/09/00 13:34:35 PAGE 1
SOURCE FILE . . . . . . . BAUX/QRPGSRC
MEMBER . . . . . . . . . BARCODE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+... 7 ...+... 8 ...+... 9 ...+... 0
100
*---------------------------------------------------------------
01/11/99
200 * RPG program: BARCODE
01/11/99
300 * SJH PER DAVID STANFIELD (FOCAL) NOV99
01/11/99
400
*---------------------------------------------------------------
01/11/99
500 * DOCUMENTATION OF FILES USED FOLLOWS...
01/11/99
600 *
01/11/99
700 A*---------------------
800 A* Physical file: BCDDSIN, LOAD DATA WITH DFU
01/11/99
900 A*
1000 A* R RINPUT
01/11/99
1100 A* COD39V 15A
01/11/99
1200 A* CODA7H 10A
01/11/99
1300 A* CODUPC 11S
01/11/99
4900 *--------------------
01/11/99
5000 * RPG program: BARCODE
01/11/99
5100 *
01/11/99
5200 H D
5300 FBCDDSIN IF E DISK
01/11/99
5400 FBCDDSPRTO E PRINTER
01/11/99
5500 C 1 SETLLBCDDSIN
01/11/99
5600 C READ RINPUT 99
5700 C *IN99 DOWEQ'0'
5800 C WRITERCOD7H
5900 C WRITERCOD9V
6000 C WRITERCODUP
6100 C SETON 99
6200 C END
6300 C*
6400 C SETON LR
* * * * E N D O F S O U R C E * * * *
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
