Barcoding on a Printronix printer using IGP/PGL?

[Abraham Zwygart]

I am trying to convert a RPG program to Quick and Quiz (HP3000, P.H. ver.
8.19c1).  The Quick part is easy.  Getting the report out is the problem.  I
have a Printronix printer (slave off of the HP700/92 terminal) that uses
IGP/PGL code to print Barcodes.  The errors range from nothing printing to
'ERROR 80:Special function must be called from NORMAL mode
~CREATE;WORDER;0'

Any Help would be greatly appreciated.   Thanks in advance
Abraham Zwyagart

Sample code:
Quiz
CAN CLE
SET DEF
ACC ACK-DIE-ITEM

CHOOSE A-WORK-ORDER 16011

DEF T01 CHAR*68 = '~LISTEN'
DEF T02 CHAR*68 = '~CREATE;WORDER;0'
DEF T03 CHAR*68 = 'ALPHA'
;                   A  B C D
; A ROW   B=COLUMN C=? D=?
DEF T04 CHAR*68 = '01;03;1;1;"PROCESS: ' + FINISH-DESCRIPTION  + '"'
DEF T05 CHAR*68 = '02;62;0;0;"P.T. #"'
DEF T06 CHAR*68 = '03;12;0;0;"FAB DRAWING NO: ' + FAB-DRAWING-NO + '"'
DEF T07 CHAR*68 = '06;03;0;0;"P.T. PIECES-ORDERED: ' + ASCII
(PIECES-ORDERED)  + '"'
DEF T08 CHAR*68 = '10;03;0;0;"CAST#: ???????    PRESS _______ #HOLES ____
TRUCK _____ "'
DEF T09 CHAR*68 = '10;60;0;0;"W.O.# ' + ASCII (A-WORK-ORDER) + '"'
DEF T10 CHAR*68 = 'STOP'
DEF T11 CHAR*68 = 'BARCODE'
;                                   A B  WITH # CENTER ABOVE BAR CODE
DEF T12 CHAR*68 = 'C3/9;X1B;H6;DARK;2;62'
DEF T13 CHAR*68 = '"' + ASCII (A-WORK-ORDER, 5) + '"'
DEF T14 CHAR*68 = 'PDF;A'
DEF T15 CHAR*68 = 'STOP'
DEF T16 CHAR*68 = 'END'

INITIAL HEADING &
    T01  SKIP 1 &
    T02  SKIP 1 &
    T03  SKIP 1 &
    T04  SKIP 1 &
    T05  SKIP 1 &
    T06  SKIP 1 &
    T07  SKIP 1 &
    T08  SKIP 1 &
    T09  SKIP 1 &
    T10  SKIP 1 &
    T11  SKIP 1 &
    T12  SKIP 1 &
    T13  SKIP 1 &
    T14  SKIP 1 &
    T15  SKIP 1 &
    T16  SKIP 1 &
    '~EXECUTE;WORDER' ; &
    '~NORMAL' SKIP 1 &
    SKIP 3 '----- THEN A BUNCH OF TEXT AND FIELDS ----' &

REP '~EXECUTE;WORDER' &     ;  ANOTHER BAR CODE  FOR EACH PROCESS
    SKIP 1 '~NORMAL' SKIP 1 &
   'THIS IS A TEST'

;FINAL FOOTING  &
;  ANOTHER BAR CODE ANOD INFO.

SET DEV CONTROL HPSLAVE
SET NOHEAD
SET FORMFEED
SET PAGE WIDTH 70
SET REP LIMIT 6
;SET PAGE LENGTH 0


Abraham Zwygart
Anodizing Inc.
Senior Programmer Analysts     Email: azwygart@anodizing.com

The thoughts, comments, and opinions expressed herein are mine
and do not reflect those of my employer(s), or anyone else.


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.