× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: Whets the best way to run a CL every 30 min
  • From: Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>
  • Date: Wed, 29 Sep 1999 11:00:08 -0700

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
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.