/*
	AddDate.rexx - DB PlugIn : Auto-Insert current date into DB field.
	(c) 1996 Karl Mottram - Bifrost Industries
	Started 1530 hrs - 03-12-96
	Last Updated $VER: v1.1_(04-12-96) - Argument support
*/

Init:
	CLS = ""				/* Clearscreen Command */
	Signal On BREAK_C				/* Break Trapping      */
	SpyFile = "LOGS:BioWare.log"		/* For Expansion       */

	Parse Arg TagField OutField
		OutField = Strip(OutField)

	Options Results

WatchTrigger:
	CURRENTFIELD TagField
	GETFIELD TagField

CheckStatus:
	If RESULT='0' | RESULT='' then do
		ToDate = ''
		Signal OutDate
	end

FormatDate:						/*YYYYmmDD*/
	TDay = Right(Date(s),2)			/*  ||||==*/
	TMon = Left(Right(Date(s),4),2)	/*  ||==  */
	TYar = Right(Left(Date(s),4),2)	/*  ==    */
		ToDate = TDay||'-'||TMon||'-'||TYar


OutDate:
	CURRENTFIELD OutField
	PUTFIELD ToDate

Exzit:
	Exit