Inserting a line into a pgm thru REXX

mainfrae · New User Joined: 07 Feb 2006 Posts: 4

Hi
My requirement is to insert a line into a cobol pgm with some requirements
For example,
i will give a input variable thru my REXX code which is declared as a variable in workkingstorage division.

1) That variable should be inserted only in the procedure division only
2) Then if that variable comes inside the procedure division for 10 times in different places, i want to insert 10 lines whereever the variable is found

eg) working-storage section.
ws-eof pic x(10)
procedure division.
ws-eof
------ < = i want to insert here DISPLAY "WS-EOF"
ws-eof

Paddy · Posted: Fri Feb 10, 2006 12:00 pm

Hi mainfrae

You can to try this code it should work fine.

mainfrae · New User Joined: 07 Feb 2006 Posts: 4

Thanks paddy
But when i tested this program,it is inserting when it is finding the variable first time.but I had that variable 10 times, i want to insert in 10 separate line also.

is there any way of using line_after and seek command

Paddy · Posted: Fri Feb 10, 2006 8:09 pm

hi Mainfrae,

This procedure inserts one line each time when it reach the variable. If one line contain several occurences of the designated variable then the procedure will not work well. Normally it must read each line of source file an reach the variable into. With my test file the procedure has inserted one line every time it reached variable. Perhaps what i not well understood your problem.

Before