senthilnathanj
New User
Joined: 31 Jul 2007 Posts: 47 Location: chennai
|
|
|
|
Hi,
For eg:
SELECT NO,NAME,COURSE FROM EMP;
123 XXX MATHS
356 YYY PHYSICS
How to write the file all the records
In FOUT File
In COBOL-DB2 program I am reading all the records using cursor.
Code: |
FETCH CURS01 INTO :NO,:NAME,:COURSE
PERFORM UNTIL SQLCODE = 100
IF NO NOT= SPACE THEN
MOVE 'A' TO CLASS
WRITE FOUT
END-IF
IF NAME NOT= SPACE THEN
MOVE 'B' TO CLASS
WRITE FOUT
END-IF
IF COURSE NOT= SPACE THEN
MOVE 'C' TO CLASS
WRITE FOUT
END-IF
FETCH CURS01 INTO :NO,:NAME,:COURSE
END-PERFORM
|
Excepted Result:
123XXXMATHS
346YYYPHYSICS
My output result is:
MATHS
PHYSICS
Anyone help me how to change the logic.[/code] |
|