View previous topic :: View next topic
|
Author |
Message |
dipanshu
New User
Joined: 16 Jan 2006 Posts: 53 Location: pune
|
|
|
|
FD filein
01 PPIDEL-REC. (Input file record structure)
03 D-A PIC X(9). value ab/s
03 D-B PIC X(9). value dcab/s
03 D-C PIC X(5). value dffab
03 D-E PIC X(3). value abs
03 D-F PIC X(3). value fbs
03 D-G PIC X(7). value 6455556
03 D-H PIC XX. value 34
03 D-I PIC X(40). value ab/gdfjgfs
FD fileout (O/P file)
01 Out-REC.
03 cout PIC X(132).
I have to transfer data from I/P file to O/P file but in CSV format (comma seperated file) ex shown below :-
Final output in fileout should be
ab/s,dcab/s,dffab,abs,fbs,6455556,34,ab/gdfjgfs
Mind that no space should come between ab/s and ','
Pls assist |
|
Back to top |
|
|
jangam
New User
Joined: 02 Feb 2006 Posts: 7
|
|
|
|
hi
CODE:
STRING D-A DELIMITED BY SPACES
"," DELIMITED BY SIZE
D-B -DO- SPACES
"," -DO - SIZE
----------------------
------------
------------------------
D-I DELIMITED BY SPACES
"," DELIMITED BY SIZE
INTO COUT
END-STRING.
go through the code i think this will solve your problem
if any questions plz ask me
bye
jangam |
|
Back to top |
|
|
jangam
New User
Joined: 02 Feb 2006 Posts: 7
|
|
|
|
hi
Code: |
STRING D-A DELIMITED BY SPACES
"," DELIMITED BY SIZE
D-B DELIMITED BY SPACES
"," DELIMITED BY SIZE
----------------------
------------
------------------------
D-I DELIMITED BY SPACES
"," DELIMITED BY SIZE
INTO COUT
END-STRING.
|
FOR BETTER UNDERSTAND
ANY CORRECTIONS WELCOME
BYE
JANGAM |
|
Back to top |
|
|
dipanshu
New User
Joined: 16 Jan 2006 Posts: 53 Location: pune
|
|
|
|
Thanks Jangam |
|
Back to top |
|
|
|