intervals

Below is a a screen and 4gl which use the interval data type. Sorry to bother people. It's been a long day ciao p database formonly screen { +--------------------------TWO DATES ------------------------------+ | | | | | [a ] [b ] | +-----------------------------------------------------------------------------+ } attributes a = formonly.today_p0 type date,format = "mm/dd/yy",autonext; b = formonly.today_p30 type date,format = "mm/dd/yy",autonext; instructions screen record scn_rec ( formonly.today_p0 thru formonly.today_p30 ) #@(#)editccss2.4gl 2.7 4/15/93 # Version 2.0 of TD/CMS(E) {STR/SCR # 131,342,308,603 ****************************************************} {------------------------------------------------------------------------------} { I N T E R A C T I V E C O N F I G U R A T I O N M A N A G E M E N T } { } { S Y S T E M } { } { Developed by: VSE Corporation } { 2760 Eisenhower Ave } { Alexandria, VA } {==============================================================================} { Program Name : baseqry.4gl } { Date Written : December 1991 } { Function : This programs brings up the ccss2 screens and allows the } { user to edit the errors in CCSS2 table. The user can } { select the option and Update the record for 2 card or } { reject the record or reject all records for the 2 card. } { Author : Rajiv Paul } { } { } { } {------------------------------------------------------------------------------} database icm GLOBALS DEFINE scmd char(100), column1 char(30), the_columns char(600), query_1 char(600), select_1 char(1800), the_command char(200), first_time integer, open_cursor integer, current_flg char(1), the_date date, the_datep30 date, p30 interval day to day, fetch_previous integer END GLOBALS MAIN OPTIONS MESSAGE LINE 21 open form dates from "date" display form dates let the_date = today display the_date to scn_rec.today_p0 let p30 = "30" let the_datep30 = the_date + p30 display the_datep30 to scn_rec.today_p30 close form dates END MAIN ****************************************************************************** Peter Wages VSE Corporation 2760 Eisenhower Ave Alexandria, Virginia pmwages@cais.com Work: (703) 329-2626 Home: (202) 244-3511 ******************************************************************************