import/export data to csv file in progress 4gl

[user3496657]

I have csv file. I need to read it. Find and display some data in database with it. After, I need to export collected data to the csv output file. Here is my code:

/********** DEFINE TABLES **********/
DEFINE TEMP-TABLE TT
FIELD AAA20 AS CHAR
.

DEFINE TEMP-TABLE RES-T
FIELD CIF AS CHAR label "номер клиента"
FIELD NAME AS CHAR label "имя клиента"
FIELD TEL AS CHAR label "телефон 1"
FIELD TLX AS CHAR label "телефон 2"
FIELD FAX AS CHAR label "сот. телефон"
FIELD AAA20 AS CHAR label "номер счета"
.

/********** DEFINE QUERIES **********/
DEFINE QUERY Q1 FOR TT, AAA, CIF.

/********** DEFINE WIDGETS **********/
DEFINE BROWSE B1 QUERY Q1
/*FOR EACH AAA, EACH CIF OF AAA:*/
DISPLAY CIF.CIF label "номер клиента"
CIF.NAME label "имя клиента"
CIF.TEL label "телефон 1"
CIF.TLX label "телефон 2"
CIF.FAX label "сот. телефон"
AAA.AAA20 label "номер счета" WITH 25 DOWN SEPARATORS
.

DEFINE BUTTON BTN-EXIT LABEL "EXIT".

/********** DEFINE FRAMES **********/
DEFINE FRAME F1
B1 AT ROW 1 COLUMN 2
BTN-EXIT AT ROW 1 COLUMN 1
WITH NO-BOX CENTERED.

/********** MAIN LOGIC **********/
INPUT FROM VALUE("Education/TRIUMF.csv").
REPEAT:
CREATE TT.
IMPORT DELIMITER "," TT.
END.
INPUT CLOSE.

OPEN QUERY Q1 FOR EACH TT,
EACH AAA OF TT,
EACH CIF OF AAA.

OUTPUT TO VALUE("MYCSV.CSV").
FOR EACH RES-T:
EXPORT DELIMITER "," RES-T
END.
OUTPUT CLOSE.

ENABLE ALL WITH FRAME F1.
WAIT-FOR CHOOSE OF BTN-EXIT.


But, there are many problems. I'm new to progress 4gl. Can any one help?

Continue reading...