|
Dear John, Here is some sample code (RPG Source and DDS) that might help your friends a little bit. /Paul -- Paul Tykodi, Technical Director E-mail: pault@praim.com Praim Inc. Tel: 603-431-0606 140 Congress St., #2 Fax: 603-436-6432 Portsmouth, NH 03801-4019 >I got a message from some freinds who are trying to do barcode printing >to an IPDS printer and using RLU/SEU to set it up. I've never used IPDS >for barcode, (and I actively avoid RLU) so I don't know what to tell >them. Anyone have some clues that I can toss their way? >> John, how can I use RLU to create vertical/horizontal lines and boxs for my >> barcode program. I'm specifically looking for the syntax parameters that >are >> required. I had attempted to put a box in my program at the record level and >> had received the "Too few values specified for keyword" error. I then tried >> to add length, width, and position parameters. But, I couldn't get it to >allow >> anyone of these parameters in the first position. I am looking for any info >> that would shed light on this subject and really appreciate your help. TIA, jte ********************************************************* * John Earl - Gig Harbor, Washington* * johnearl_at_blarg_dot_net - Home * * jearl_at_rei_dot_com - Work * *********************************************************
midrange.com
A*%%***********************************************************************
A*%%TS RD 19920406 161232 QSECOFR REL-V2R1M0 5738-PW1
A*%%FI+10660100000000000000000000000000000000000000000000000000
A*%%FI 0000000000000000000000000000000000000000000000000
A*%%***********************************************************************
A R BARCD
A*%%***********************************************************************
A*%%RI 00000
A*%%FS 005
A*%%***********************************************************************
A 6 28
A DFT('PRAIM INC')
A CHRSIZ(3 3)
A COLOR(GRN)
A 10 34
A DFT('PRESENTS')
A CHRSIZ(2 2)
A COLOR(BLK)
A 13 20
A DFT('EZ-PDS TWINAX INTERFACE')
A CHRSIZ(2 2)
A COLOR(BLU)
A 16 20
A DFT(' FOR MATRIX PRINTERS')
A CHRSIZ(2 2)
A COLOR(BLU)
A 19 8
A DFT('FROM :')
A COLOR(TRQ)
A 19 54
A DFT('TO :')
A COLOR(TRQ)
A 21 10
A DFT('PRAIM INC')
A CHRSIZ(2 3)
A 21 59
A DFT('YOUR')
A CHRSIZ(2 3)
A BPRTNO 11S O 22 34
A BARCODE(UPCA 6 *HRI)
A 24 57
A DFT('AS/400')
A CHRSIZ(2 3)
A 25 8
A DFT('40 PLEASANT STREET 3 ')
A 26 8
A DFT('PORTSMOUTH,NH 03801-459')
A 27 8
A DFT('TEL. 603-431-0606')
A 28 8
A DFT('FAX 603-436-6432')
A 32 15
A DFT('ITEM DESCRIPTION')
A 32 50
A DFT('QTY UNIT PRICE TOTAL')
A 46 15
A DFT('FEATURES :')
A 46 50
A DFT('SUBTOTAL $')
A 48 14
A DFT('- TEXT')
A 48 50
A DFT('LESS DISCOUNT $')
A 49 14
A DFT('- BARCODE')
A 50 50
A DFT('TOTAL $')
A 50 14
A DFT('- COLOR')
A 51 14
A DFT('- FONT SCALING')
A 52 14
A DFT('- FORM GENERATION')
A 53 6
A DFT('BY PRAIM INC 40 PLEASANT STREE-
A T 3 ')
A 53 40
A DFT('PORTSMOUTH, NH 03801-459 -
A ')
A BMARK 20A O 54 15
A BARCODE(CODE3OF9 5 *HRI)
A*%%***********************************************************************
A*%%SS
A*%%CL 004
A*%%CL 003
A*%%CL 003
A*%%CL 003
A*%%CL 002
A*%%CL 001
A*%%SD 99999999999
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 004
A*%%CL 015
A*%%CL 002
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%CL 001
A*%%SD XXXXXXXXXXXXXXXXXXXX
A*%%CP+161CRTPRTF ??FILE(IPDS/AIAGOUT) ?*SRCFILE(IPDS/QDDSSRC) ?*SRCMBR(AIA
A*%%CP+ GOUT) ??DEVTYPE(*IPDS) ??PAGESIZE(72 132) ??OVRFLW(66) ??OUTQ(PRT
A*%%CP 07) ??SHARE(*YES) ??LVLCHK(*NO)
A*%%***********************************************************************
H 1
FDEMOPRMIO E PRINTER UC
E ARR1 1 4 9 0
E ARR2 1 10
IPARAM DS
I B 1 40LINEW
I B 5 80STRLEN
I B 9 120DEVID
I B 13 160FAMILY
I B 17 200PROCTR
I B 21 240NAMCNT
I B 25 280USAGE
I B 29 320DID
I B 33 480ARR1
I B 49 520LINET
I B 53 560COLOR
C*----- TEXT AND BAR-CODE DATA ASSIGNMENT
C MOVE 812345678 PARTNO 9
C MOVEL'PRAIM EZ'MARK 15
C MOVE '-PDS ' MARK
C MOVE 90 BPRTNO
C MOVELPARTNO BPRTNO
C MOVELMARK BMARK
C*----- GDDM INITIALIZATION
C CALL 'GDDM'
C PARM 'FSINIT 'FSINIT 8
C CALL 'GDDM'
C PARM 'DSOPEN 'DSOPEN 8
C PARM 2 DEVID
C PARM 1 FAMILY
C PARM 'IPDS 'DEVTOK 8
C PARM 0 PROCTR
C PARM ARR1
C PARM 1 NAMCNT
C PARM 'DEMOPRMI'ARR2,1
C CALL 'GDDM'
C PARM 'DSDROP 'DSDROP 8
C PARM 1 USAGE
C PARM 2 DID
C CALL 'GDDM'
C PARM 'DSUSE 'DSUSE 8
C PARM 1 USAGE
C PARM 2 DID
C CALL 'GDDM'
C PARM 'GSLW 'GSLW 8
C PARM 2 LINEW
C CALL 'GDDM'
C PARM 'GSLT 'GSLT 8
C PARM 0 LINET
C CALL 'GDDM'
C PARM 'GSMOVE 'GSMOVE 8
C PARM 1 X 51
C PARM 97 Y 51
C CALL 'GDDM'
C PARM 'GSLINE 'GSLINE 8
C PARM 60 X
C PARM 97 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 60 X
C PARM 97 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 60 X
C PARM 18 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 1 X
C PARM 97 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 1 X
C PARM 18 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 1 X
C PARM 18 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 60 X
C PARM 18 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 56 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 56 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 23 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 56 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 3 X
C PARM 33 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 33 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 36 X
C PARM 33 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 36 X
C PARM 23 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 23 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 51 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 51 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 49 X
C PARM 29 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 29 Y
C CALL 'GDDM'
C PARM GSLW
C PARM 1 LINEW
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 75 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 24 X
C PARM 75 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 24 X
C PARM 58 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 75 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 3 X
C PARM 58 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 24 X
C PARM 58 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 72 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 24 X
C PARM 72 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 38 X
C PARM 75 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 75 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 58 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 38 X
C PARM 75 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 38 X
C PARM 58 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 58 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 38 X
C PARM 72 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 72 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 49 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 49 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 47 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 47 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 45 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 45 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 43 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 43 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 41 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 41 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 39 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 39 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 37 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 37 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 3 X
C PARM 35 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 35 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 36 X
C PARM 29 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 49 X
C PARM 29 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 36 X
C PARM 26 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 58 X
C PARM 26 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 36 X
C PARM 56 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 36 X
C PARM 33 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 40 X
C PARM 56 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 40 X
C PARM 33 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 47 X
C PARM 51 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 47 X
C PARM 33 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 49 X
C PARM 56 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 49 X
C PARM 23 Y
C CALL 'GDDM'
C PARM GSMOVE
C PARM 56 X
C PARM 56 Y
C CALL 'GDDM'
C PARM GSLINE
C PARM 56 X
C PARM 23 Y
C*----- OPEN OUTPUT FILE
C OPEN DEMOPRMI
C EXCPT
C*----- CLOSE OUTFILE
C CALL 'GDDM'
C PARM 'FSFRCE 'FSFRCE 8
C*----- TERMINATE GDDM
C CALL 'GDDM'
C PARM 'FSTERM 'FSTERM 8
C SETON LR
OBARCD E
O *ALL
**
000000000
000000000
000000000
000000000
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.
