Return to the Printing Tips
Printing bar codes on a ethernet attached printer.
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 * * * *[report a broken link by clicking here]