Kbase 16985: How to Import Data That Exceeds 320 Characters
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/10/1998 |
|
How to Import Data That Exceeds 320 Characters
INTRODUCTION:
=============
This knowledgebase describes one possible way to work around the
limitation wherein you cannot import a field that contains more than
320 characters of data.
PROCEDURAL APPROACH:
====================
The following code shows how to take a file produced in EXPORT format
and bring it back in to Progress.
Test data was loaded into the temp-table shown below and then exported
using the EXPORT statement.
DEFINE TEMP-TABLE TEST NO-UNDO
FIELD F1 AS INTEGER
FIELD F2 AS DECIMAL
FIELD F3 AS LOGICAL
FIELD F4 AS DATE
FIELD F5 AS CHARACTER FORMAT "X(5)"
FIELD F6 AS CHARACTER FORMAT "X(500)".
DEFINE VARIABLE chrRecord AS CHARACTER NO-UNDO FORMAT "X(600)".
DEFINE VARIABLE chrField AS CHARACTER NO-UNDO.
INPUT FROM <YourFileNameGoesHere>.
REPEAT:
IMPORT UNFORMATTED chrRecord.
CREATE TEST.
ASSIGN TEST.F1 = INTEGER(ENTRY(1,chrRecord," "))
TEST.F2 = DECIMAL(ENTRY(2,chrRecord," "))
TEST.F3 = IF ENTRY(3,chrRecord EQ "YES" THEN YES ELSE NO
TEST.F4 = DATE(ENTRY(4,chrRecord," "))
chrField = ENTRY(5,chrRecord," ")
TEST.F5 = SUBSTRING(chrField,2,LENGTH(chrField) - 2)
chrField = ENTRY(6,chrRecord," ")
TEST.F6 = SUBSTRING(chrField,2,LENGTH(chrField) - 2).
END.
INPUT CLOSE.
Progress Software Technical Support Note # 16985