Beechglen Development Inc.

Beechglen Development Inc.
3862 Race Road - Cincinnati, Ohio 45211 - (513) 922-0509 - Fax (513) 347-2834

Spool and Flat File Printing Tip

Try this neat little UDC/command file (specifically designed for lazy typists like myself) to view a file on their terminal. I named my UDC or command file P. It will type out a spoolfile or a flat file, with the option to break at the end of each page.

parm spoolfilenum,printer=$stdlist,breaks="Y"
if finfo("!spoolfilenum",0) then
  setvar printfile " ! spoolfilenum"
else
  setvar printfile "0! spoolfilenum. out .hpspool"
  if finfo ( "! printfile" ,0) = FALSE then
    echo File does not exist.
    escape
  endif
endif
if '!breaks" = "Y" then
  print !printfile;out= !printer
else
  print !printfile;out = !printer; page=0
 endif

Usage:

:P 1211,,N

will print spoolfile number 1211 without (CONTINUE Y/N) at end of each screen.

:P syssstart.pub.sys,*LASER

will print the SYSSTART file on the device in class LASER.