I program that originally was IBM Internal Use Only is SCANFILE. It will do exactly what you want. I saw a reference to it on the IBM download page, but didn't find it. Maybe it's on one of other program repositories if it is now in the public domain.

Jim

On 7/7/2010 9:50 AM, Sergio Lima wrote:
--_87bab6ee-f10e-4a38-83a1-851e6464c3ec_
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable


Hello List=2C

=20

We need=2C do here a REXX that will READ a lot of COBOL Programs.

So=2C must=2C locate all "CALL" Statements=2C and think use XEDIT for this.

Someone know=2C if have a place=2C or a documentation=2C for us get a sampl=
e program?

=20

Thanks

=20

Sergio Lima Costa
                                         =20
_________________________________________________________________
PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA AS N=
OVIDADES.
http://www.windowslive.com.br/public/product.aspx/view/1?ocid=3DHotmail:Liv=
e:Hotmail:Tagline:senDimensao:PREPARE-SE83:-=

--_87bab6ee-f10e-4a38-83a1-851e6464c3ec_
Content-Type: text/html; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<html>
<head>
<style><!--
.hmmessage P
{
margin:0px=3B
padding:0px
}
body.hmmessage
{
font-size: 10pt=3B
font-family:Verdana
}
--></style>
</head>
<body class=3D'hmmessage'>
Hello List=2C<BR>
&nbsp=3B<BR>
We need=2C do here a REXX that will READ a lot of COBOL Programs.<BR>
So=2C must=2C locate all "CALL" Statements=2C and think use XEDIT for this.=
<BR>
Someone know=2C if have a place=2C or a documentation=2C for us get a sampl=
e program?<BR>
&nbsp=3B<BR>
Thanks<BR>
&nbsp=3B<BR>
Sergio Lima Costa<BR>                                     <br /><hr />PARA 
NAVEGAR COM MAIS PRIVACID=
ADE USE O INTERNET EXPLORER 8.<a href=3D'http://www.microsoft.com/brasil/w=
indows/internet-explorer/default.aspx?WT.mc_id=3D1633' target=3D'_new'>INST=
ALE GR=C1TIS.</a></body>
</html>=

--_87bab6ee-f10e-4a38-83a1-851e6464c3ec_--


--
James Bohnsack
(972) 596-6377 home/office
(972) 342-5823 cell

Reply via email to