Can't insert data into a new table.

gerie

Member
Progress OE 10.1B
OS Windows 2003

In order to export specific data on a daily basis, I created a table to be filled with a date and a time.
I also wrote a procedure to update the date and time after the exports of the data. This was tersted and it worked. But I lost my testdatabase without making a backup and therefor I also lost the table I created.
I created a new table, but somehow there is something wrong with this table. No matter what I try, i'm not able to insert a date and time. I'm hoping someone will see where I went wrong.

I'm trying to insert the date using the following procedure:
/*updaten van de laatste exportdatum en tijdstip*/
FOR FIRST c_DWHdate.
UPDATE c_DWHdate.DATE = TODAY.
END.
FOR FIRST c_DWHdate.
UPDATE c_DWHdate.time-lc = TIME.
END.


This is the definition of the table (tables df):
ADD TABLE "c_DWHdate"
AREA "Small Table"
LABEL "Datum en tijd laatste export"
LABEL-SA "t18"
DESCRIPTION "Datum en tijd laatste export"
VALMSG-SA "U"
DUMP-NAME "c_dwhdate"

ADD FIELD "Date" OF "c_DWHdate" AS date
DESCRIPTION "Datum laatste export"
FORMAT "99/99/9999"
FORMAT-SA "U"
INITIAL ?
INITIAL-SA "U"
LABEL "Datum laatste export"
LABEL-SA "t26"
POSITION 2
MAX-WIDTH 4
COLUMN-LABEL-SA "U"
ORDER 10

ADD FIELD "time-lc" OF "c_DWHdate" AS integer
DESCRIPTION "Laatst geexporteerde tijdstip"
FORMAT "->,>>>,>>9"
FORMAT-SA "U"
INITIAL "0"
INITIAL-SA "U"
LABEL "Laatst geexporteerde tijdstip"
LABEL-SA "t26"
POSITION 3
MAX-WIDTH 4
COLUMN-LABEL-SA "U"
ORDER 20

ADD INDEX "date" ON "c_DWHdate"
AREA "Small Table"
PRIMARY
DESCRIPTION "Datum laatste export"
INDEX-FIELD "Date" ASCENDING
.
PSC
cpstream=ISO8859-1
.
0000000898
 
Back
Top