If this is a job you control or for which you have the cooperation of the job 
owner's) you could add an initial step to the job to do this.  Gilbert has a 
nice program CANMSGCL in CBT file 183 which can be adapted with only a few 
changes to do this.

http://www.cbttape.org/ftp/cbt/CBT183.zip

http://www.cbttape.org/cbtdowns.htm

http://www.cbttape.org/

Or 

http://www.gsf-soft.com/Download/file183.xmit.zip

http://www.gsf-soft.com/Download/

***********************************************************************
*                                                                     *
*              CANCEL JOB'S MSGCLASS AFTER NN HOURS                   *
*                                                                     *
***********************************************************************
*                                                                     *
*        THIS PROGRAM ALLOWS YOU TO PURGE THE OUTPUT ASSOCIATED       *
*        WITH THE MSGCLASS OF THE JOB AFTER A CERTAIN NUMBER OF       *
*        HOURS THAT YOU SPECIFY IN THE PARM FIELD OF THE EXEC         *
*        STATEMENT.                                                   *
*                                                                     *
*        EXAMPLE:                                                     *
*                                                                     *
*            //MYJOB    JOB ACCT#,CLASS=A,MSGCLASS=X                  *
*            //COPY1   EXEC PGM=IEBCOPY                               *
*            //...      DD   ...                                      *
*            //CONDPURG EXEC PGM=CANMSGCL,PARM=2,COND=(0,NE,COPY1)    *
*                                                                     *
*        IF THE 'COPY1' STEP ENDS AT 10:28 AM WITH A RETURN CODE      *
*        EQUAL TO ZERO, THE 'CONDPURG' STEP EXECUTES AND ISSUES       *
*        THE FOLLOWING COMMAND:                                       *
*                                                                     *
*               $TA,T=12.28,'$OJ01234,Q=X,CANCEL'                     *
*                                                                     *
*        NOTES:                                                       *
*                                                                     *
*           1. THE PROGRAM MUST BE APF-AUTHORIZED.                    *
*                                                                     *
*           2. THE MSGCLASS MUST BE HELD.                             *
*                                                                     *
*           3. THE NUMBER OF OUTSTANDING AUTOMATIC COMMANDS IS        *
*              LIMITED BY THE 'AUTOCMD' PARAMETER IN JES2PARM.        *
*              IF EXCEEDED, THE COMMAND IS IGNORED.                   *
*                                                                     *
*           4. THE PROGRAM WORKS WITH 5-DIGIT JOB NUMBERS.            *
*                                                                     *
***********************************************************************


*        GET CURRENT TIME, MOVE IT TO "HHMM" FIELD                 
*                                                                  
         TIME  DEC                     HHMMSS00                    
         SRL   R0,12(0)                000HHMM0                    
         ST    R0,SYSTIME              000HHMM0                    
         OI    SYSTIME+3,15            000HHMMF                    
         UNPK  HHMM+3(2),SYSTIME+2(2)  MOVE MM                     
         OI    SYSTIME+2,15            000HHF??                    
         AP    SYSTIME+1(2),DELAY      ADD HOURS FROM PARM         
         OI    SYSTIME+2,15            000HHF??                    
         UNPK  HHMM+0(2),SYSTIME+1(2)  MOVE HH                     
         MVI   HHMM+2,C'.'             HH.MM                       
         MODESET KEY=ZERO,MODE=SUP                                 
         SLR   R0,R0                   DUMMY CONSOLE ID            
         MGCR  MGCR1L                  ISSUE COMMAND               
         RETURN  (14,12),RC=00         GO BACK TO SYSTEM           
*                                                                  
MGCR1L   WTO   '$TA,T=HH.MM,''$OJ01234,Q=$,CANCEL''',MF=L          
HHMM     EQU   MGCR1L+10               HH.MM                       
JOBID    EQU   MGCR1L+19,6             JOB ID                      
MSGCLASS EQU   MGCR1L+28,1             MESSAGE CLASS               
DELAY    DS    P'24'                   NUMBER OF HOURS, FROM PARM  
SYSTIME  DS    F                       CURRENT SYSTEM TIME    


You will need change the logic to process a parm of minutes or just eliminate 
the parm and hard code 10 minutes in the program.  You will also need to change 
the $OJ command to a $CJ command.  If the job has completed in 10 minutes it 
will still execute the cancel command but it won't do anything other than 
generate a $HASP003 RC=(89),J038808  - JOB CANNOT BE CANCELLED.

        Best Regards, 

                Sam Knutson, GEICO 
                Performance and Availability Management 
                mailto:[EMAIL PROTECTED] 
                (office)  301.986.3574 

Beware of programmers who carry screwdrivers. - Leonard Brandwein
      

-----Original Message-----
> Miklos Szigetvari wrote:
>> Hi
>>
>> How can I cancel a job after 10 minutes runtime ? (Tried with JESPARM 
>> TIME but seems tom me, it has no effect)
>
> Do you mean 'clock' minutes or CPU time ?
>
> For CPU time you can use TIME=10 in jobcard.
> For clock time there is no such trigger.
Hi
I mean clock time , not CPU time
--
Mit freundlichen Grüßen / Best regards

Miklos Szigetvari

ISIS Information Systems GmbH
Alter Wienerweg 12
2344 Maria Enzersdorf
Austria
====================
This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to