Hello List,
We have a program here, got from this list, that is very usefull for us.
Unfortunatelly I don't remember the author of this program, may be Kris...
This program is wrote using PIPE command, and FIND all CALL instructions in all
programas with FILETYPE of COBOL.
We already use this same program for FIND the EXEC commands in all JCL here,
and run very well.
Now, We need, locate the CBL commands, and my program don't want work.
The code is here : (A piece)
'PIPE (NAME COBCALL ENDCHAR ?)',
'| <' fn ft fm, /* Read COBOL Program */
'| SPECS RECNO 1.6 7-72 8', /* Record Number, Record */
'| NLOCATE 8 /*/', /* Skip Comments */
'| LOCATE ANYCASE 8-* / CALL /', /* Look for CALL Commands */
'| SPECS /'pgm.n'/ 1 1-* NW', /* Add File info */
'| C: COUNT LINES', /* Count Records */
'| >>' cobcall, /* Write to file */
'? C:',
'| STRLITERAL APPEND /0/', /* Just in Case */
'| VAR RECCNT', /* Record Count */
'' /* End COBCALL */
We already have tried change the CALL by CBL in the line of LOCATE, and also,
change 8-* to 1-*, and nothing.
Please more one time, someone can help us in this question.
Thanks very much,
Sergio Lima Costa
Sao Paulo - Brazil
