PRCUPMCK ;CTB/ALTOONA TEST ROUTINE FOR PURGE MASTER ;10/8/93 12:02 PM
V ;;5.0;IFCAP;;4/21/95
;N ETIME
S ETIME=($P($H,",",2)+120)
F Q:$P($H,",",2)>ETIME H 10