Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Need examples of BOCA printer language in RPG3

Status
Not open for further replies.

bob13south

Technical User
Jan 2, 2009
3
GB
I need to convert RPG3 code from printing labels with ZEBRA printers to BOCA code. Have a very skimpy programming manual downloaded from BOCA, but no hints on AS/400 code. Current programs have all ZEBRA commands in O specs, eg

@CTL - HEX CONTROL CODE = CARET CHARACTER ^ defined as follows:-
C BITOF'01234567'@CTL 1
C BITON'02346' @CTL

INIT coding for each ticket printed
OCIB907PAE #INIT
O '&%'
O @CTL
O 'XA'
O @CTL
O 'LH000,000'
O @CTL
O 'CF0,30,24'
O @CTL
O 'FWR'
O*** R3.09K - LABEL LENGTH = 8"
O @CTL
O 'LL1626'
O*** END - PRINT TICKET INSTRUCTION
O E #END
O @CTL
O 'XZ&%'
First part of ticket -
O*** PA6 - LEFT STUB OF TICKET
O*** EVENT
O E #PA6
O @CTL
O 'FO100,040' <-positioning
O @CTL
O 'A0N,30,24' <- font size
O @CTL
O 'FD' <-data field marker
O I@SN <-data itself
O I@SNS
O @CTL
O 'FS' <-end of data field

I can work out the positioning, fonts, etc myself, but does anyone know if BOCA needs initialisation and end codes like ZEBRA (see code under #INIT and #END above)
Thanks
Bob
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top