Guardian Programmer's Guide

Table Of Contents
Communicating With Printers
Guardian Programmer’s Guide 421922-014
11 - 32
Sample Program for Using a Printer
INT TERMNUM; !terminal file number
STRUCT .PART^RECORD; !database record
BEGIN
STRING PART^NUMBER[0:5];
STRING DESCRIPTION[0:59];
INT DESC^LEN;
STRING SUPPLIER[0:59];
INT SUP^LEN;
INT ON^HAND;
INT UNIT^PRICE;
END;
STRUCT CI^STARTUP; !Startup message
BEGIN
INT MSGCODE;
STRUCT DEFAULTS;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
END;
STRUCT INFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FILEID[0:3];
END;
STRUCT OUTFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FILEID[0:3];
END;
END;
?NOLIST, SOURCE $SYSTEM.SYSTEM.EXTDECS0 (INITIALIZER,
? FILE_OPEN_,WRITEREADX,WRITEX,KEYPOSITION,NUMIN,
? PROCESS_STOP_,READX,POSITION,DNUMOUT,FILE_GETINFO_,
? READUPDATEX,WRITEUPDATEX,DNUMIN,READUPDATELOCKX,
? WRITEUPDATEUNLOCKX,FILEERROR,CONTROL,FILE_CLOSE_,
? OLDFILENAME_TO_FILENAME_,UNLOCKREC)
?LIST