![]() |
![]() HP OpenVMS Systemsask the wizard |
![]() |
The Question is: I am attempting to update a backup command file to stop certain processes during the backup and then restart them at the end of the backup. There is a process that runs in Sys$batch. Is there a procedure to delete or stop the running job without knowing w hat the job number is so I can make it part of the command file? I do not want to stop the queue and start it again as the backup also runs in that queue. If there is not a way to stop it through a procedure command other than del/ent="number". Is there a way to extract the first 7 character positions from a text file to use it as the value of a variable ie. del/ent=P1 where P1="the first 7 characters of testfile" Thank you The Answer is : $! This command procedure shows all queues and the jobs in them. $ TEMP = F$GETQUI("") $QLOOP: $ QNAME = F$GETQUI("DISPLAY_QUEUE","QUEUE_NAME","*") $ IF QNAME .EQS. "" THEN EXIT $ WRITE SYS$OUTPUT "" $ WRITE SYS$OUTPUT "QUEUE: ", QNAME $ JLOOP: $ NOACCESS = F$GETQUI("DISPLAY_JOB","JOB_INACCESSIBLE",,"ALL_JOBS") $ IF NOACCESS .EQS. "TRUE" THEN GOTO JLOOP $ IF NOACCESS .EQS. "" THEN GOTO QLOOP $ UNAME = F$GETQUI("DISPLAY_JOB","USERNAME",,"FREEZE_CONTEXT,ALL_JOBS") $ JNAME = F$GETQUI("DISPLAY_JOB","JOB_NAME",,"FREEZE_CONTEXT,ALL_JOBS") $ ENTRY = F$GETQUI("DISPLAY_JOB","ENTRY_NUMBER",,"FREEZE_CONTEXT,ALL_JOBS") $ UNAME = F$EDIT(UNAME,"COLLAPSE,UPCASE") $ JNAME = F$EDIT(JNAME,"COLLAPSE,UPCASE") $ WRITE SYS$OUTPUT " JOB: ", JNAME $ WRITE SYS$OUTPUT " USERNAME: ", UNAME $ WRITE SYS$OUTPUT " ENTRY: ", ENTRY $ GOTO JLOOP Existing discussions of the f$getqui lexical include the following topics: (813), (1240), (2159), (3951), (4546), (4568), (4903), (5188) (5471), (5567), (5651), (5793), (5982), (6315), (6877), etc.
|