HP3000-L Archives

December 1997, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Costas Anastassiades <[log in to unmask]>
Reply To:
Costas Anastassiades <[log in to unmask]>
Date:
Tue, 23 Dec 1997 10:38:02 +-200
Content-Type:
text/plain
Parts/Attachments:
text/plain (20 lines)
For the ABORTJOB part you could use the LISTSPF command which lists the
jobs spoolfiles and returns a warning if none are found. I've got a UDC
which accepts the job name and gives me the spoolfiles. I've included it
whole, but you could extract only the LISTSPF part.

SJ
PARM Progno1=""
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

Costas Anastassiades,
Intracom SA
Athens-Greece

ATOM RSS1 RSS2