Reading a COBOL program line by line

parthasaha · New User Joined: 25 Feb 2008 Posts: 3 Location: bangalore

How can i read line by line in cobol and check any clause/words are there or not??? if there then how can I fetch that clause from that program and write in a PS file????give a program as example

enrico-sorichetti · Posted: Mon Feb 25, 2008 4:58 pm

Your requirement, is certainly clear to You, but was not described properly,

pleas post a few lines of cobol code ( use the code tag )
and Your expected result.

somebody will come up with suggestions

parthasaha · New User Joined: 25 Feb 2008 Posts: 3 Location: bangalore

PSFILE1:
-----------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG1.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL INCLUDE EMPDCL END-EXEC.
PROCEDURE DIVISION.
001PROG1.
EXEC SQL
SELECT EMPNO FROM EMP WHERE EMPNO='EMP001'
END-EXEC.
STOP RUN.
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG2.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL INCLUDE SALDCL END-EXEC.
EXEC SQL INCLUDE DEPTDCL END-EXEC.
PROCEDURE DIVISION.
001PROG2.
EXEC SQL
SELECT SALARY,EMPNO FROM SAL WHERE EMPNO='EMP002'
END-EXEC.
EXEC SQL
SELECT DEPTNO,DEPTNM FROM DEPT WHERE DEPTNO='DEPT1'
END-EXEC.
STOP RUN.
//////////////////////////////////////////////////////////////
PSFILE2.
----------------------------------------
PROGRAM-ID. PROG1.
EXEC SQL
SELECT EMPNO FROM EMP WHERE EMPNO='EMP001'
END-EXEC.
PROGRAM-ID. PROG2.
EXEC SQL
SELECT SALARY,EMPNO FROM SAL WHERE EMPNO='EMP002'
END-EXEC.
EXEC SQL
SELECT DEPTNO,DEPTNM FROM DEPT WHERE DEPTNO='DEPT1'
END-EXEC.

////////////////////////////////////////////////////////////////////////

NOW PSFILE1 IS THE INPUT OF A COBOL PROGRAM AND PSFILE2 IS THE OUTPUT OF THAT PROGRAM.
SO HOW CAN I DO THIS.....

vasanthkumarhb · Posted: Tue Feb 26, 2008 1:00 pm

HELLO,

What is your question?

murmohk1 · Posted: Tue Feb 26, 2008 3:29 pm

Partha,

enrico-sorichetti · Posted: Tue Feb 26, 2008 3:42 pm

I understand Your question as ...

given as input a cobol program, extract the "EXEC SQL " clauses

if the understanding is right,
the topic has already been discussed
http://ibmmainframes.com/viewtopic.php?t=28179&highlight=extract+cobol

parthasaha · New User Joined: 25 Feb 2008 Posts: 3 Location: bangalore

question :how can i write a program in cobol so that program will take the PSFILE1 as input and fetch the program-id and exec sql part from the PSFILE1 and it will be written into another file (PSFILE2) as shown in the above example.........

enrico-sorichetti · Posted: Tue Feb 26, 2008 3:55 pm

I guess that nobody will give You an answer...

COBOL might not be the best choice for string handling and syntax analysis
especially if You need help to do it

the link I gave You shows how to do it in rexx
( even if it has some glitches )

it' s the second post on the subject, I wonder what is the business need

Craq Giegerich · Posted: Tue Feb 26, 2008 6:16 pm

dick scherrer · Posted: Tue Feb 26, 2008 10:14 pm

Hello,

IMHO - a major problem with writing this kind of code (and having it be complete, rather than a mere skeleton), is that the "program" needs to be almost as smart as the compiler.

The sql examples posted are among the simplest possible and even those could present a bit of a coding challange (doesn't matter which programming language)

If one was to use COBOL, thank goodness for reference modification. . .

UmeySan · Posted: Wed Feb 27, 2008 3:39 pm

Hi parthasaha !

question :how can i write a program in cobol so that program will take the PSFILE1 as input and fetch the program-id and exec sql part from the PSFILE1 and it will be written into another file (PSFILE2) as shown in the above example.........

My answer: The same old way, as you do in every cobol programm.
Reading input file line by line, checking against a condition, moving strings to output sentence and writing output file. So what.

Or am i such a fool, that i could not understand your question ???

Regards, UmeySan

dick scherrer · Posted: Wed Feb 27, 2008 10:37 pm

Hello,

Itanium · Active User Joined: 22 Jan 2006 Posts: 114 Location: India