$! $! This command file runs the Soft DiskQuota program $! BUILDBAD.COM $! then checks to see if it needs to resubmit itself. $! $! $ @Sys$Quota:BuildBad $! $! Read the QUEUE and see if ChkQuota needs to be re-submited. $! $ Assign/user Sys$Quota:Que.tmp Sys$Output: $ SHOW Queue/all Sys$SysBatch $ open/read QueFile Sys$Quota:Que.tmp $ SubmitIt = 1 $ Read_Que: $ read/end=Close_Que QueFile Line $ Line = F$EDIT(Line, "COMPRESS, TRIM, UPCASE") $ Entry_Name = F$ELEMENT(0," ", Line) $ Stat = F$EXTRACT(0,4,F$ELEMENT(3," ", Line)) $ IF (Entry_name .eqs. "CHKQUOTA") .AND. (Stat .eqs. "HOLD") - then SubmitIt = 0 $ WRITE SYS$OUTPUT "''Entry_Name' ''Stat' ''SubmitIt'" $ IF SubmitIt then goto Read_Que $ Close_Que: $ Close QueFile $ deletexx Sys$Quota:Que.tmp.* $ IF SubmitIt THEN submit/queue=sys$sysbatch/after="TOMORROW+5:00:00.0"/- nolog Sys$Quota:CHKQUOTA $ exit