Hello and some network printer code!

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   YeeHaw!  I haven't been here for a little while.  It's great to see that a forum has materialized!  Thanks Mr. Schellenbach!

I think Accuterm's a great interface.  Taking advantage of the scripting capabilities is a superior alternative to recoding screen draws on your already-crowded character-based apps.

Just to give this post more substance here's a nifty utility I wrote to send print jobs to network printers that support HP's PCL codes.  I called it 'NWP' for NetWork Printer.

If I want a customer list on a network printer I can issue the TCL command:

NWP P 99 SORT CUSTOMERS BY NAME ID-SUPP ACCTNO NAME ADDRESS CITY

If I have a pointer-file list 'OVER90' of invoices...

NWP P 99 !OVER90 SORT INVOICES BY DUE.DATE ACCTNO CUSTOMER TOTAL AMOUNT.DUE

 Page   1     CUSTOM& nbsp;         & nbsp;  16:59:34 01 Jun 2004

    NWP

001 !

002 EQU ESC TO CHAR(27)

003 TCLREAD CMD

004 ORIENT = FIELD(CMD," ",2)

005 BEGIN CASE

006 CASE ORIENT = 'L'

007 CASE ORIENT = 'P'

008 CASE 1

009   PRINT 'Usage:  NWP [P/L-orientation] [form queue] [!Pointer-file list (optional)] [Tcl command]'

010   STOP

011 END CASE

012 FORM.QUE = FIELD(CMD," ",3)

013 LIST = FIELD(CMD," ",4)

014    IF LIST[1,1] = "!" THEN

015    LIST = LIST[2,99]

016    COMMAND = OCONV(CMD,"G4 999")

017    END ELSE

018    LIST = ""

019    COMMAND = OCONV(CMD,"G3 999")

020    END

021    IF ORIENT = 'L' THEN

022    EXECUTE "TERM ,,,,,,166,64";    *CPI X 10, LPI X 7

023    END ELSE

024    EXECUTE "TERM ,,,,,,125,86";    *CPI X 7.5, LPI X 9.5

025    END

026 EXECUTE "SP-ASSIGN F":FORM.QUE

027 EXECUTE "SP-OPEN"

028 PRINTER ON

029 PRINT  ESC:"E":; *RESET PRINTER

030    IF ORIENT = 'L' THEN

031    PRINT ESC:"&l1O":;        *LANDSCAPE

032    END ELSE

033    PRINT ESC:"&l0O":;        *PORTRAIT

034    END

035 PRINT ESC:"&l5.33C":;     *9 LINES PER INCH

036 PRINT ESC:"(s16.66H":;    *16.6 CHARS PER INCH

037    IF LIST = "" ELSE EXECUTE "GET-LIST ":LIST

038 EXECUTE COMMAND:' (P'

039 PRINT ESC:"E":

040 PRINTER CLOSE

041 PRINTER OFF

042 EXECUTE "SP-CLOSE"

[405] 1 items listed out of 1 items.

I've coded in caps forever... it's an R83 thing...