SNIPPETS
0001: F
0002: SNIPPETS
0003: D_SNIPPETS
A type 1 file
GIVE.FEEDBACK
0001 * GIVE.FEEDBACK
0002 * D.Bartlett 03Mar08
0003 * updates the file sent by BLAT by email
0004 * ----------------------------------------
0005 * expects a variable 'FEEDBACK'
0006 * containing the message to add to the logfile
0007 * ----------------------------------------
0008 INITIATE.FEEDBACK:
0009 LOG.ERROR = 0
0010 CRLF = CHAR(13):CHAR(10)
0011 LOG.DATE = OCONV(DATE(),'D4/')
0012 LOG.DATE = LOG.DATE[7,4]:LOG.DATE[4,2]:LOG.DATE[1,2]
0013 FEEDBACK = STR('=',40)
0014 FEEDBACK := CRLF:'WELCOME TO FEEDBACK -------':LOG.DATE
0015 FEEDBACK := CRLF
0016 FEEDBACK := CRLF:'The overnight automatic emailer...'
0017 FEEDBACK := CRLF
0018 FEEDBACK := CRLF:'Never again do you have to wonder.. did that
thing run?'
0019 FEEDBACK := CRLF:'FEEDBACK will mail you the results of every
overnight'
0020 FEEDBACK := CRLF:"run... now ain't that cool?"
0021 FEEDBACK := CRLF
0022 OPENSEQ 'INTEGRITY','FEEDBACK' TO F.FEEDBACK ELSE NULL
0023 WEOFSEQ F.FEEDBACK
0024 WRITESEQ FEEDBACK ON F.FEEDBACK ELSE STOP'DISK FULL'
0025 RETURN
0026 * ----------------------------------------
0027 GIVE.FEEDBACK:
0028 IF (LOG.ERROR) THEN RETURN
0029 LOG.DATE = OCONV(DATE(),'D4/')
0030 LOG.TIME = OCONV(TIME(),'MTHS')
0031 LOG.DATE =
LOG.DATE[7,4]:LOG.DATE[4,2]:LOG.DATE[1,2]:'::':LOG.TIME
0032 LOG.FILE = LOG.DATE:": ":FEEDBACK
0033 WRITESEQ LOG.FILE ON F.FEEDBACK ELSE STOP 'DISK FULL'
0034 RETURN
0035 * ----------------------------------------
Every program has the following type of error message
OPEN 'VOC' TO VOC ELSE
FEEDBACK = "DAILY,SETTLEMENT,CANNOT OPEN VOC,DIDNT RUN"
GOSUB GIVE.FEEDBACK
STOP 'VOC FILE'
END
and once a day the FEEDBACK file sent, using BLAT, via email to me every
morning...
feedback.bat
blat p:\INTEGRITY\FEEDBACK -to [EMAIL PROTECTED]
and finally feedback.bat is automated to happen at 6AM every morning.
Voila!
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Ray Wurlod
Sent: 04 March 2008 10:21 AM
To: [email protected]
Subject: Re: [U2] INCLUDE weirdo
Do you have a VOC entry for SNIPPETS ?
Is SNIPPETS a Type 1/19 file?
Is there a record called GIVE.FEEDBACK in SNIPPETS ?
Does the compiler time out after a while (say five minutes) or hang
interminably ?
> ----- Original Message -----
> From: "Dennis Bartlett" <[EMAIL PROTECTED]>
> To: [email protected]
> Subject: [U2] INCLUDE weirdo
> Date: Tue, 4 Mar 2008 09:11:35 +0200
>
>
> I have an INCLUDE statement that brings in code from a snippets file
called
> SNIPPETS.
>
> INCLUDE SNIPPETS GIVE.FEEDBACK
>
> If I compile the compiler hangs as it hits the include statement.
>
> If I then change it to include from BP
>
> INCLUDE BP GIVE.FEEDBACK
>
> it works fine.
>
> What am I doing wrong?
> -------
> u2-users mailing list
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.21.4/1309 - Release Date: 2008/03/03
06:50 PM
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
