I developed an EEP that would unload the DATA form a Table called
BriefsQ5Z into a file called Briefs.DATA. See first section below. The
data unloads without any error messages, though the DATE FORMAT aand
DATE SEQUENCE are both set to DDMMYYYY (DDMMYYYY is my default for DATE
Sequence) but the date prints out in the file to DD/MM/YYYY. See second
section below. When I use the LOAD command in an EEP (see third section
below) to load the data into an identical but empty table in another
database, I get the following error message:
"ERROR- Column Brief_Data must be a valid date. (122)"
What am I doing wrong!
Thanks,
Stuart J. Cohen, Ph.D.
Major, Medical Service Corps
Research Specialist
Walter Reed Army Medical Center
National Disaster Medical System Federal Coordinating Center
Phone: 202-782-3636
Cell: 301-514-3975
Fax: 202-782-4360
E-mail: [EMAIL PROTECTED]
-----------------------------------------------------------------------------------------------------
_Unload EEP_
SET DATE FORMAT DDMMYYYY
SET VAR vPath1 TEXT = Unload_Path in SettingsTableQ5Z
SET VAR vPath TEXT = (.vPath1 + 'Briefs.DATA')
OUTPUT .vPath
UNLOAD DATA FOR BriefsQ5Z USING BriefID, Brief_Title, Brief_Date,
Brief_Audience, Brief_Author, Brief_Keywords, Brief_File, Disseminate,
FCC_Code ORDER BY BriefID
OUTPUT SCREEN
PAUSE 2 USING 'Data Unloaded Into Files' CAPTION 'Process Complete' ICON
APP BUTTON 'OK'
SET DATE FORMAT DD MMM YYYY
CLEAR VAR Path, Path1
RETURN
-------------------------------------------------------------------------------------------------------------
_Briefs.DATA_
SET QUOTES=NULL
SET QUOTES='
SET DELIMIT=NULL
SET DELIMIT=','
SET LINEEND=NULL
SET LINEEND='รพ'
SET SEMI=NULL
SET SEMI=';'
SET PLUS=NULL
SET PLUS='+'
SET SINGLE=NULL
SET SINGLE='_'
SET MANY=NULL
SET MANY='%'
SET IDQUOTES=NULL
SET IDQUOTES='`'
SET CURRENCY '$' PREF 2 B
SET CASE OFF
SET AUTOSKIP ON
SET REVERSE ON
SET BELL OFF
SET NULL ' '
SET DATE YEAR 30
SET DATE CENTURY 20
SET DATE SEQUENCE DDMMYYYY
SET TIME SEQUENCE HHMMSS
SET TOLERANCE 0.
SET ZERO ON
LOAD `BriefsQ5Z` USING
BriefID,Brief_Title,Brief_Date,Brief_Audience,Brief_A+
uthor,Brief_Keywords,Brief_File,Disseminate,FCC_Code
NONUM
1,'London Public Transportation
Explosions',07/07/2005,'General','Alfano, Wil+
liam','London Bombing','7-7-2005_London_Explosions.ppt','N','D0069'
2,'Hurricane Katrina Status Brief',30/08/2005,'NDMS Conference','Office
of Pu+
blic Health Emergency Preparedness','Huricane
Katrina','Hurricane_Katrina.pp+
t','N','D0069'
3,'Airport, Academia, Industry, Military and State (AAIMS) WRAMC NDMS
EXERCIS+
E',20/05/2006,'NDMD and Maryland Hospital Association','Wasylina,
Philip','A+
AIMS NDMS Exercise','AAIMS_NDMS_EXERCISE.ppt','N','D0069'
19,'NDMS Database',10/01/2007,'Maryland Hospital Association','Cohen,
Stuart'+
,,'NDMS_Database.ppt','N','D0069'
END
SET DATE FORMAT 'DDMMYYYY'
SET TIME FORMAT 'HH:MM AP'
SET DATE SEQUENCE DDMMYYYY
SET TIME SEQUENCE HHMM
------------------------------------------------------------------------------------------------
_Load EEP_
SET VAR vPath1 TEXT = Unload_Path in SettingsTableQ5Z
SET VAR vMAX INTEGER = NULL
SET VAR vPath TEXT = (.vPath1 + 'Briefs.DATA')
LOAD BriefsQ5Z FROM .vPath
SELECT MAX (BriefID) INTO vMax FROM BriefsQ5Z
SET VAR vMax = (.vMAX + 1)
AUTONUM BriefID IN BriefsQ5Z USING .vMAX 1
-----------------------------------------------------------
