parm x="" setvar cj_help ups("!x") # checkjcl.xeq - see help # Donna Garverick - Longs Drug Stores if cj_help > "" echo echo CHECKJCL searches the spooler for $STDLISTs that echo in the READY state. All qualifying files are echo individually printed to the screen. When the echo viewing of a file is complete, the option to echo continue, purge the file, or quit the command echo is presented. The default response is to continue echo viewing files. echo deletevar cj_@ return endif file cjfile;temp;rec=-80,,f,ascii;msg if finfo('*cjfile','exists') purge cjfile,temp endif if pos('SM','!hpusercapf') > 0 or & pos('OP','!hpusercapf') > 0 setvar cj_owner '@.@' elseif pos('AM','!hpusercapf') > 0 setvar cj_owner '@.'+'!hpaccount' else setvar cj_owner '!hpuser'+'.'+'!hpaccount' endif listspf o@;seleq=[(state=ready) and (owner=!cj_owner)] > *cjfile setvar cj_esc chr(27) setvar cj_enh cj_esc+"&dB" setvar cj_hb cj_esc+"&dJ" setvar cj_clr cj_esc+"&d@" setvar cj_prompt cj_enh+"Purge the file? ["+cj_hb+"N" setvar cj_prompt "!cj_prompt"+cj_enh+"/y/q] "+cj_clr setvar cj_eof finfo('*cjfile','eof') setvar i 0 while setvar(i,i+1) <= cj_eof do input cj_rec < *cjfile if str("!cj_rec",21,8) = "$STDLIST" setvar cj_o_name rtrim(str("!cj_rec",2,10)) print !cj_o_name.out.hpspool setvar cj_yn "" input cj_yn,"!cj_prompt" setvar cj_yn str(ups(ltrim("!cj_yn")),1,1) if cj_yn = "Y" spoolf !cj_o_name;delete endif if cj_yn = "Q" setvar i cj_eof+1 endif endif endwhile deletevar cj_@, i reset cjfile purge cjfile,temp