SET SAFETY OFF

COMMENT
**************************************************************************
*****     TIME PARSING
*****     
*****     This script parses time fields from a a character format 
*****     of HH:MM:SS to separate numeric fields
*****     
*****     Developed by Randall Shane, PhD
*****                  Base XVI, LLC
*****                  www.basexvi.com
**************************************************************************

PAUSE "This script parses time fields from a a character format of HH:MM:SS to separate numeric fields"

ACCEPT "Choose table containing time field:" FIELDS "xf" TO table

OPEN %table%

ACCEPT "Choose time field [Character field in HH:MM:SS format]" FIELDS "C" TO sel_field

DELETE FIELD hour
DEFINE FIELD hour COMPUTED VALUE( SPLIT( %sel_field%, ":", 1), 0)
DEFINE COLUMN Default_View hour as "Hour"

DELETE FIELD minute
DEFINE FIELD minute COMPUTED VALUE( SPLIT( %sel_field%, ":", 2), 0)
DEFINE COLUMN Default_View minute as "Minute"

DELETE FIELD second
DEFINE FIELD second COMPUTED VALUE( SPLIT( %sel_field%, ":", 3), 0)
DEFINE COLUMN Default_View second as "Second"

DELETE table OK
DELETE sel_field OK