bob13south
Technical User
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
@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