RE: Whets the best way to run a CL every 30 min

De: Bill Graziano [mailto:Bill.Graziano@besi.com]
Date: 29 September 1999 17:25
�: 'RPG400-L@midrange.com'
Objet: RE: Whats the best way to run a CL every 30 min

Here is a sample cl I use for creating such a beast.

/***************************************************************************
***/
/*  PGM DESCRIPTION
*/
/*   This is a shell for a cl program that will sleep for x seconds, then
*/
/*   wake up and do its main processing again.
*/
/*
*/
/*�By Chris BipesEUR                                           09/29/99
*/
/*'� CrossCheck, Inc., 6119 State Farm Drive, Rohnert Park, CA  94928EUR
*/
/***************************************************************************
***/
PGM
/* declare variables
*/
             DCL        VAR(&WAITTIME) TYPE(*DEC ) LEN(6 0) VALUE(1800)
             DCL        VAR(&ENDSTS  ) TYPE(*CHAR) LEN(1  )
             DCL        VAR(&QTIME   ) TYPE(*DEC ) LEN(6 0)

/* Program init goes here - one time execution.
*/



/* Main processing goes here - loops back after delay
*/
Loop1:

/*  end of main loop - check for end request, wait then loop back
*/
ELoop1:

/*  check for external end request
*/
             RTVJOBA    ENDSTS(&ENDSTS)
             IF         COND(&ENDSTS = '1') THEN(GOTO CMDLBL(ENDPGM))

/*  check for end of day
*/
             RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&QTIME)
             IF         COND(&QTIME > 180000) THEN(GOTO CMDLBL(ENDPGM))

/*  retrieve delay time & wait
*/
             RTVDTAARA  DTAARA(WAITIME) RTNVAR(&WAITTIME)
             MONMSG     MSGID(CPF0000) /* BAD CATCH ALL-IF NOT EXIST USE DFT
*/
             DLYJOB     DLY(&WAITTIME)
             GOTO       CMDLBL(LOOP1)

/*  end of processing  - perform any clean up here
*/
 ENDPGM:

             ENDPGM
/***************************************************************************
***/

Christopher K. Bipes    mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst  mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.        http://www.cross-check.com
6119 State Farm Drive   Phone: 707 586-0551 x 1102
Rohnert Park CA  94928  Fax: 707 586-1884

*Note to Recruiters
I nor anyone that I know of is interested in any new and/or exciting
positions. Please do not contact me.


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---