PARM Progno1=""
##  LSJ - SHOW SPOOL FILES BY JOB NUMBER/NAME
##  COSTAS ANASTASSIADES, INTRACOM SA, ATHENS-GREECE
IF "!Progno1" <> "" THEN
  SETVAR Progno "!Progno1"
ELSE
  INPUT NAME=Progno2;PROMPT="Enter a full JOBNAME :";WAIT=30
  SETVAR Progno "!Progno2"
ENDIF
LISTSPF O@;SELEQ=[JOBNAME=!Progno]
DELETEVAR Progno