Routine: ENY2VACO

Information

ENY2VACO ;;(WIRMFO)/DH-Y2K Activity Report ;10.9.98

Name	Comments	DBIA/ICR reference
EN	; national roll-up of Y2K information ; may be selected manually or scheduled to run automatically ; at a user specified frequency
ACT1
ACT2
DEQVACO	; use ENX( as root of NetWork mail message
ROLLACT	; add Y2K activity to national roll-up
SEND	; send NetWork mail
HOLD
EXIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?20,"NATIONAL ROLL-UP OF Y2K INFORMATION" Line Location: EN+4
Function Call: WRITE	Prompt: !!,"There is no STATION NUMBER in your Engineering Init Parameters file.",!,"Can't proceed.",*7 Line Location: EN+5
Function Call: WRITE	Prompt: !!,"You must hold security key ENY2K_ROLL_UP in order to execute this option.",*7 Line Location: EN+6
Function Call: WRITE	Prompt: !!,"Please enter starting and stopping dates for activity reporting",!," (or '^' to escape...)",! Line Location: ACT1+0
Function Call: WRITE	Prompt: !!,"STOPPING DATE must follow the STARTING DATE",*7 Line Location: ACT2+3
Function Call: WRITE	Prompt: !!,"There was no Y2K activity between "_ENDATE("STARTE")_" and "_ENDATE("STOPE")_".",!,"Cumulative information will be transmitted anyway.",*7 Line Location: ACT2+4
Function Call: WRITE	Prompt: !!,"The system is now prepared to send a Y2K report to VACO." Line Location: ACT2+6
Function Call: WRITE	Prompt: !!,"A national roll-up of Y2K information has been tasked to run via NetWork",!,"Mail. You will receive a copy of the message." Line Location: ACT2+13