My LOOK can do this all, it is not on the download lib as there are already so many. But I sent Sergio a copy
2010/7/7 Sergio Lima <sergiovm...@hotmail.com> > Hello Kris, and all others. > > First, thanks very much from all help. > I imagine, that I'm continue working like a Old programmer. > Years ago, this problem was solved only with EXEC , or REXX and XEDIT > macros. > Your PIPE example, sound well. > Of course all others opinions also. > We have for example LOOKALL here, that work very well, but, > We need a list of all CALL commands used by Cobol programas, and your > contents, for example : > > CALL MYPROG using....... > > LOOKALL can identify, but, I need edit program by program to see inside the > program. > > Another think, is that CALL command can stay in the range 12-72 COBOL > Coluns. > > We will try understant more about all opinions, but really try clarify more > our problem. > > Thanks, > > Sergio > > ------------------------------ > Date: Wed, 7 Jul 2010 16:14:45 +0200 > From: kris.buel...@gmail.com > Subject: Re: Sample REXX using XEDIT > To: IBMVM@LISTSERV.UARK.EDU > > > Or maybe > 'PIPE <' fn ft fm, > '|SPECS RECNO 1 1-* 12', /* insert record nbr */ > '| Locate 12-* / CALL /', > '| ... > > 2010/7/7 Sergio Lima <sergiovm...@hotmail.com> > > Hello List, > > We need, do here a REXX that will READ a lot of COBOL Programs. > So, must, locate all "CALL" Statements, and think use XEDIT for this. > Someone know, if have a place, or a documentation, for us get a sample > program? > > Thanks > > Sergio Lima Costa > > ------------------------------ > PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE > GRÁTIS.<http://www.microsoft.com/brasil/windows/internet-explorer/default.aspx?WT.mc_id=1633> > > > > > -- > Kris Buelens, > IBM Belgium, VM customer support > > ------------------------------ > PARA NAVEGAR COM MAIS PRIVACIDADE USE O INTERNET EXPLORER 8. INSTALE > GRÁTIS.<http://www.microsoft.com/brasil/windows/internet-explorer/default.aspx?WT.mc_id=1633> > -- Kris Buelens, IBM Belgium, VM customer support
