How about changing '| LOCATE ANYCASE 8-* / CALL /', to '| ANYCASE LOCATE 8-* / CALL /',
Peter -----Original Message----- From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf Of Sergio Lima Sent: January 7, 2011 11:45 To: [email protected] Subject: CMDCOB PIPE looking for CBL 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 The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review retransmission dissemination or other use of or taking any action in reliance upon this information by persons or entities other than the intended recipient or delegate is strictly prohibited. If you received this in error please contact the sender and delete the material from any computer. The integrity and security of this message cannot be guaranteed on the Internet. The sender accepts no liability for the content of this e-mail or for the consequences of any actions taken on the basis of information provided. The recipient should check this e-mail and any attachments for the presence of viruses. The sender accepts no liability for any damage caused by any virus transmitted by this e-mail. This disclaimer is property of the TTC and must not be altered or circumvented in any manner.
