I'm trying to put together a quick-and-dirty Unibasic application to
import data from a sequential (DIR) file in Unidata to a PC directory. 

When I call the WIN.IMPORT subroutine all I get is the Item ID and an
char(255).  

If I do the import from the Wintegrate menus,  the import works fine.  

I rewrote the application to write out to a normal Unidata file as a
single item. Then WIN.IMPORT correctly imports the data.  So the problem
appears to be related to the use of the DIR file in Unidata.  

Anyone else seen this behavior?  I've cut-and-pasted the scripts
generated by both WIN.IMPORT and the script generated by executing the
same import from the menu.  I can't spot any smoking guns.

Any help is greatly appreciated.


Jeff White - Phoenix Systems 
[EMAIL PROTECTED] 



*************  script generated from WIN.IMPORT 

Dialog RunImportFile
Set Account = ''
Set File ='FORECASTING_BATCH_FILES'
Set Items = 'vs_13387_39'
Set Fields = '*'
Set DosFile = 'C:\FORECASTING_FILES\vs_13387_39.txt'
Set Format = 'ASC'
Set Overwrite='No'
Set Mode = 'Normal'
Set SuppressId=1
Set FieldDescriptions=0
Set Translate='Ascii'
Set Translation='\255,,\254,\r\n'
Set AutoExit=0
Set Inform=0
Set Timeout=5
Set Retries=3
If Version > '3.0.00' Then
Set NumberConversion=0
If Version >= '3.0.03' Then
Set ExplodeValues=0
Set RepeatValues=0
If Version >= '4.1' Then
EndIf
EndIf
EndIf
Invoke
Enter stx:ReturnValue



***********  script generated (saved) directly from Wintegrate - Run - 
Import  menu.   

(this one works fine!) 


* File Import Save
* Saved on Tue, 24 Aug 2004 15:48
Dialog RunImportFile
Configure
Account=""
File="FORECASTING_BATCH_FILES"
Items="vs_13386_39"
Fields="*"
DosFile="C:\FORECASTING_FILES\vs_13386_39.txt"
Format="ASC"
Inform="0"
Timeout="5"
Retries="3"
AutoExit="0"
Translate="ASCII"
Translation="\255,\r\n\f\r\n,\254,\r\n"
Overwrite="No"
SuppressId="0"
Mode="Normal"
FieldDescriptions="0"
NumberConversion="0"
NumberSeparator=","
NumberCurrency="$"
NumberDecimal="."
ExplodeValues=0
RepeatValues=0
UseFormattingInformation=0
RightJustifiedIsNumeric=0
LeftJustifiedIsText=0
Update
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to