SQL Programming Manual for Pascal

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for Pascal—528614-001
B-8
Date-Time Program
Figure B-1. Date-Time Program Run (page 2 of 3)
WAIT TIME ADDED.
PLEASE ENTER:
1 -- to insert new project data
2 -- to add wait time to a project
3 -- to report original and new project dates
4 -- to exit the program
3
********************************************************************
ORIGINAL DATES:
********************************************************************
PROJECT NAME: 920
START DATE: 1988-02-21:20:30
END DATE: 1989-03-21:20:30
PROJECT NAME: 134
START DATE: 1970-01-01:00:00
END DATE: 1978-03-21:20:30
PROJECT NAME: 777
START DATE: 1989-07-15:06:30
END DATE: 1989-10-31:23:58
*********************************************************************
NEW DATES:
*********************************************************************
PROJECT NAME: 920
START DATE: 1988-03-22:20:30
END DATE: 1989-04-20:20:30
WAIT TIME: 30 DAYS
PROJECT NAME: 134
START DATE: 1970-01-31:00:00
END DATE: 1978-04-20:20:30
WAIT TIME: 30 DAYS
PROJECT NAME: 777
START DATE: 1989-10-15:06:30
END DATE: 1990-01-31:23:58
WAIT TIME: 92 DAYS
VSTB01.vsd