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.

Leave a Reply