parm search="" dev="LP" pri=13 copies=1 sf="S" comment comment Tech Group comment Jon Backus - November 8, 1994 comment comment Create the spoolfile variable and initialize it if "!search" = "?" then echo echo SHOWSPF echo echo An interactive Spoolfile Manager. echo echo SYNTAX echo echo SHOWSPF [selection],[output device], echo [output priority],[output copies], echo [summary/detail] echo echo PARAMETERS echo echo selection The 'selection' determines which group of echo Spoolfiles are selected. If left blank the echo default is all spoolfile in your home account. echo Other options are "#J" and a job number to echo select all the spoolfile for a specific job; echo "#O" and a spoolfile id to select a specific echo single spoolfile; "/" and an account name to echo select all spoolfile in another account; or, echo a jobname (or partial jobname) to select all echo jobs with that name (or partial name). echo The selection is influenced by the rights of echo your logon. echo echo output device This is the initial output device to be used echo when altering spoolfiles. The default is 'lp' echo and the value can be changed once ShowSPF is echo running. echo echo output priority This is the initial priority to be used when echo altering spoolfiles. The default is 13 and echo the value can be changed once ShowSPF is echo running. echo echo output copies This is the initial number of copies to be echo used when altering spoolfiles. The default echo is 1 and the value can be changed once ShowSPF echo is running. echo echo summary/detail This is a toggle switch that determines if echo ShowSPF should generate a 2 line details echo listing of each spoolfile or the 1 line echo summaried version. The default is "summary" echo and the value can be toggled once ShowSPF is echo running. echo echo EXAMPLE(S) echo echo To see all the spoolfile in the XYZ account. echo echo SHOWSPF /XYZ echo echo To see all the spoolfile that start with TG and something. echo echo SHOWSPF TG@ echo return endif setvar hpspfn "" setvar hpsloop "" setvar hps_dev "!dev" setvar hps_pri !pri setvar hps_cop !copies if ups("!sf") = "D" setvar hpsflag "D" else setvar hpsflag "S" endif comment comment Suppress the CI warning messages and set escape sequences setvar hpmsgfence 1 setvar up chr(27)+"A" setvar clr chr(27)+"J" setvar bell chr(7) setvar compoff chr(27)+"&oF"+"set disable-comp-codes yes"+chr(13) setvar compon chr(27)+"&oF"+"set disable-comp-codes no"+chr(13) setvar passon chr(27)+"&p7p20C" setvar passoff chr(10)+chr(7)+chr(13) comment comment If the permanent spoolfile variable does not have a comment value at this point then loop on showing the user the comment spoolfile list and asking for a spoolfile number. If comment the user hits at the question then he/she will comment be returned to the MPE prompt. comment comment Determine the type of selection needed and build it. comment if "!search" = "" setvar hpsearch ";seleq=[owner=@.!hpaccount]" else if ups(str("!search",1,2)) = "#J" setvar hpsearch ";seleq=[jobnum=!search]" else if ups(str("!search",1,2)) = "#O" setvar hpsearch ";seleq=[spoolid=!search]" else if str("!search",1,1) = "/" setvar hpsearch ";seleq=[owner=@."+& str("!search",2,len("!search")-1)+"]" else setvar hpsearch ";seleq=[jobname=!search]" endif endif endif endif while len("!hpsloop") = 0 echo ShowSPF - Created by Tech Group showtime errclear if "!hpsflag" = "D" listspf @!hpsearch;detail else spoolf @!hpsearch;show echo if hpcierr <> 0 echo No spoolfiles to be displayed... endif endif if hpcierr <> 0 setvar hpmsgfence 0 deletevar hps@, up, clr, bell, comp@, pass@ return endif continue if "!hpsflag" = "D" comment This positions the cursor to clear some stuff echo !up!up!up!up!up!up!up!up!up!up!up!up continue endif setvar fnumv "B999" while (len("!hpspfn") = 0) and (len("!fnumv") <> 0) setvar fnumv "" echo !up!clr input fnumv,"Enter a spoolfile number: ";wait=30 continue if ("!fnumv" = "") and (!hpcierr <> -9003) then deletevar hps@, fnumv, action, up, clr, comp@, pass@ setvar hpmsgfence 0 return endif comment comment Cut-off and edit the input (if needed) if len("!fnumv") > 0 and str("!fnumv",1,1) = "#" if len("!fnumv") > 10 setvar fnumv rtrim(str("!fnumv",3,7), " ") else setvar fnumv rtrim(str("!fnumv",3,len("!fnumv")), " ") endif endif comment comment Force the spoolfile to blank for re-selection if ups("!fnumv") = "S" continue if "!hpsflag" = "D" setvar hpsflag "S" else setvar hpsflag "D" endif setvar fnumv "" endif errclear if "!fnumv" <> "" continue listfile o!fnumv.out.hpspool>$NULL if hpcierr<>0 then echo File !fnumv is not a valid spoolfile, try again... echo !bell!up!bell!up!bell!up!bell pause 2 setvar hpspfn "" else setvar hpspfn "!fnumv" endif endif endwhile comment comment Force the action to blank for prompting setvar action "" comment comment Make sure you have a valid action code if len("!hpspfn") <> 0 then while "!action" <> "L" and "!action" <> "P" and "!action" <> "D" & and "!action" <> "T" and "!action" <> "C" and "!action" <> "S" & and "!action" <> "F" and "!action" <> "V" and "!action" <> "A" & and "!action" <> "M" and "!action" <> "X" setvar act2 "" echo !clr input act2, & "Enter an action for #O!hpspfn (T,L,A,P,D,C,V,M,S,X,E,?): " if "!act2" = "" then setvar act2 "F" endif setvar action UPS(STR("!act2",1,1)) if ("!action" = "#") then if len("!act2") > 10 setvar hpspfn rtrim(str("!act2",3,7), " ") else setvar hpspfn rtrim(str("!act2",3,len("!act2")), " ") endif endif deletevar act2 if ("!action" = "E") then deletevar hps@, fnumv, action, up, clr, bell, comp@, pass@ setvar hpmsgfence 0 return endif if "!action" = "?" echo echo T - Types #O!hpspfn on your screen echo L - Prints #O!hpspfn on your local printer echo A - Alters the characteristics of #O!hpspfn echo P - Edits the Parameters used by the Alter option echo D - Deletes #O!hpspfn echo C - Copies #O!hpspfn to a file echo V - Move #O!hpspfn into Vista echo M - Move #O!hpspfn into the Editor for searching echo S - Switch between detail and summary listing echo X - E-mail #O!hpspfn to somebody echo E - Exits ShowSPF echo [enter] - Select a different Spoolfile echo input temp,"Hit [ENTER] to continue...";wait=10 echo !up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up deletevar temp endif if "!action" <> "L" and "!action" <> "P" and "!action" <> "D" & and "!action" <> "T" and "!action" <> "C" & and "!action" <> "F" and "!action" <> "V" & and "!action" <> "?" and "!action" <> "S" & and "!action" <> "A" and "!action" <> "#" & and "!action" <> "M" and "!action" <> "X" echo I don't know what action "!action" is... echo !bell!up!bell!up!bell!up!bell!up!bell pause 2 endif endwhile endif comment comment List the spoolfile to the local printer if "!action" = "L" continue echo !compoff echo !passon continue print o!hpspfn.out.hpspool;page=0 continue echo !passoff echo !compon continue echo Spoolfile #O!hpspfn should be queued to local printer. endif comment comment Edit the Parameters used by the Alter option if "!action" = "P" input hps_pdev, "Enter the new Print Device [!hps_dev]: " if "!hps_pdev" <> "" then setvar hps_dev "!hps_pdev" endif input hps_ppri, "Enter the new Print Priority [!hps_pri]: " if "!hps_ppri" <> "" then setvar hps_pri !hps_ppri endif input hps_pcop, "Enter the new Print Copies [!hps_cop]: " if "!hps_pcop" <> "" then setvar hps_cop !hps_pcop endif endif comment comment E-mail the selected spoolfile if "!action" = "X" input hpe_add, "Enter the E-Mail Address: " if "!hpe_add" <> "" then setvar hpe_from "!hpjobname"+"_"+"!hpuser"+"_"+"!hpaccount" setvar hpe_sub "Spoolfile #O!hpspfn" setvar hpe_parms "-t !hpe_add -f !hpe_from" setvar hpe_parms "!hpe_parms -h 10.32.3.180" setvar hpe_parms "!hpe_parms -s '!hpe_sub'" setvar hpe_parms "!hpe_parms -m o!hpspfn.out.hpspool" sendmail "!hpe_parms" echo File #O!hpspfn has been E-Mailed to !hpe_add. endif endif comment comment Type the spoolfile to the screen if "!action" = "T" continue print o!hpspfn.out.hpspool input temp,"Hit [ENTER] to continue...";wait=45 deletevar temp endif comment comment Move the spoolfile into a Vista folder if "!action" = "V" continue comment Loop until a good folder name is given setvar hps_fogo 1 while hps_fogo = 1 input hps_folder,"Enter the folder name: " if "!hps_folder" <> "" if not finfo("!hps_folder.archive.netbase",0) echo Folder !hps_folder does not exist... deletevar hps_folder pause 2 else setvar hps_fona "!hps_folder.archive.netbase" setvar hps_fogo 0 endif else setvar hps_fogo 0 endif endwhile continue if "!hps_folder" <> "" then continue input hps_fpurge,"Purge #O!hpspfn after move (Y/N): " continue if ups("!hps_fpurge") = "Y" then continue run nbspool.pub.netbase;info= & "vsave !hpspfn;file=!hps_fona;append;purge\exit">$NULL echo File #O!hpspfn was moved to !hps_folder and purged. continue else continue run nbspool.pub.netbase;info= & "vsave !hpspfn;file=!hps_fona;append\exit">$NULL echo File #O!hpspfn was move to !hps_folder but not purged. continue endif else echo File #O!hpspfn not moved. endif endif comment comment Move the spoolfile into the Editor if "!action" = "M" continue run editor.pub.sys;info="set variable;t O!hpspfn.out.hpspool" endif endif comment comment Force the spoolfile to blank for re-selection if "!action" = "F" continue setvar hpspfn "" endif comment comment Force the spoolfile to blank for re-selection if "!action" = "S" continue if "!hpsflag" = "D" setvar hpsflag "S" else setvar hpsflag "D" endif setvar hpspfn "" endif comment comment Type the spoolfile to a file if "!action" = "C" continue input temp,"Enter the file name: ";wait=20 if "!temp" <> "" then print o!hpspfn.out.hpspool>!temp continue save !temp echo Spoolfile #O!hpspfn has been copied to !temp. else echo Copy was aborted because no file name was provided. endif deletevar temp endif comment comment Alter the spoolfile if "!action" = "A" continue spoolf !hpspfn;pri=!hps_pri;dev=!hps_dev;copies=!hps_cop echo Spoolfile #O!hpspfn has been altered. setvar hpspfn "" endif comment comment Delete the spoolfile if "!action" = "D" continue spoolf !hpspfn;delete echo Spoolfile #O!hpspfn has been deleted. setvar hpspfn "" endif endwhile