Hi guys,

When I try to execute the below code to read the sample data file.(forum.txt)
3rd line from Sample data is missing. Culprit is '$' sign.
Any suggestion would be appreciated. I searched forums..but no luck.

SAMPLE Data:

  
From Bank,To Bank
Bank A,BANK AA
BANK B $ MOVE,BANK BB
BANK C,BANK CC

  
EX -LINES 5 EDAPUT MASTER,BANK,CSV,FILE
FILE=BANK, SUFFIX=COMT, DATASET='/location/forum.txt'
SEGNAME=BANK, SEGTYPE=S0, $
FIELD=FRM_BK, ALIAS=FRM_BK, USAGE=A50, ACTUAL=A50,$
FIELD=TO_BK, ALIAS=TO_BK, USAGE=A50, ACTUAL=A50,$
-*
TABLE FILE BANK
PRINT *
END

Environemnt:
WFRS: AIX: 5.3 Win XP.
HTML, EXCEL,PDF

This message has been edited. Last edited by: Kerry,

You may have to have the offending text in quotes "

I'm not really thrilled about asking if your incoming format can be changed. But, Can It? If so, consider the following:

APP FI BANKFILE DISK BANKFILE.MAS (LRECL 80
-RUN
-WRITE BANKFILE
-WRITE BANKFILE FILE=BANKFILE, SUFFIX=FOC, SEGNAME=SEG1, SEGTYPE=S0,$
-WRITE BANKFILE FIELD=FRM_BK, ALIAS=FRM_BK, USAGE=A20, ACTUAL=A20,$
-WRITE BANKFILE FIELD=TO_BK, ALIAS=TO_BK, USAGE=A20, ACTUAL=A20,$
CREATE FILE BANKFILE 
-RUN
MODIFY FILE BANKFILE 
FIXFORM FRM_BK/A20 TO_BK/A20
DATA
From Bank           To Bank             
Bank A              BANK AA             
BANK C              BANK CC             
BANK B $ MOVE       BANK BB             
END
-RUN
TABLE FILE BANKFILE
PRINT *
END

Use CREATE as required. After all you indicate that the fields are A20, right?

Just food for thought...

What you have hit a version related issue.

It's known to occur in various forms prior to 7.6.x

I works perfectly correctly in 7.6.10

You have 2 options to get it to work in pre 7.6.x

1. as suggested by Waz, have your CSV file conform standard CSV format and enclose alphanumerics in double quotes

2. use a variation on Dougs method and load the data to a Focus database

-SET &ECHO=ALL;
FILEDEF BANK DISK BANK.CSV
-RUN
-WRITE BANK From Bank,To Bank
-WRITE BANK Bank A,BANK AA
-WRITE BANK BANK B $ MOVE,BANK BB
-WRITE BANK BANK C,BANK CC
FILEDEF BANKFILE DISK BANKFILE.MAS (LRECL 80
-RUN
-WRITE BANKFILE
-WRITE BANKFILE FILE=BANKFILE, SUFFIX=FOC, SEGNAME=SEG1, SEGTYPE=S0,$
-WRITE BANKFILE FIELD=FRM_BK, ALIAS=FRM_BK, USAGE=A20, ACTUAL=A20,$
-WRITE BANKFILE FIELD=TO_BK, ALIAS=TO_BK, USAGE=A20, ACTUAL=A20,$
CREATE FILE BANKFILE
-RUN
MODIFY FILE BANKFILE
FREEFORM FRM_BK TO_BK
DATA
-INCLUDE BANK
END
-RUN
TABLE FILE BANKFILE
PRINT *
END

Thanks for your help Waz, Doug, JG.
CSV file comes from Users, Business can't offend with quotes". or Can not replace with any other character.

At first I created Focus database, but business user will keep updated with new CSV file.
I'm looking for a solution where..
User's will load the CSV file and when we run a program, everything this MFD should be created...

Any suggestions would appreciated.

The above example using a FOCUS database is totally dynamic and exists only for the period of the request.

just replace

FILEDEF BANK DISK BANK.CSV
-RUN
-WRITE BANK From Bank,To Bank
-WRITE BANK Bank A,BANK AA
-WRITE BANK BANK B $ MOVE,BANK BB
-WRITE BANK BANK C,BANK CC

with a filedef to your actual CSV file

You could also read the file as a single field, ans split it up with GETTOK.

This relies on the commas being the delimiters only and not embedded in the text.

EX -LINES 5 EDAPUT FOCTEMP,BANK,CV,FILE
From Bank,To Bank
Bank A,BANK AA
BANK B $ MOVE,BANK BB
BANK C,BANK CC

EX -LINES 6 EDAPUT MASTER,BANK,CV,FILE
FILE=BANK, SUFFIX=FIX
SEGNAME=BANK, SEGTYPE=S0, $
FIELD=LINE, USAGE=A101, ACTUAL=A101, $
DEFINE FRM_BK/A50 = GETTOK(LINE,101,1,',',50,'A50') ;
DEFINE TO_BK/A50 = GETTOK(LINE,101,2,',',50,'A50') ;

-RUN

FILEDEF BANK DISK bank.ftm

TABLE FILE BANK
PRINT *
END