|
|
| Author |
Message |
prasanth_urs
New User
Joined: 04 Dec 2006
Posts: 34
Location: Pune,India
|
|
|
|
Hi all,
Can anyone please tell me if there is any facility to search natural programs for a specific word ??
I need to check whether how many programs are using a particular table.
So if there is any provision like the 3.14 option in ISPF, then the task will be much simpler.
Please clarify my query as early as possible.
Many Thanks in Advance!!!
 |
|
| Back to top |
|
 |
References
|
 Posted: Thu Dec 21, 2006 11:03 am Post subject: Re: Searching Natural programs in a Library for a specific word |
|
|
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 1898
Location: Israel
|
|
|
|
There is a SCAN command in NATURAL. When you invoke SCAN outside the editor, you get a screen allowing you to input scan value, replace value, library, absolute mode etc.
A batch invocation of this utility is straightforward, and should look like this:
| Code: |
//V08020FT JOB (),@SCAN,MSGCLASS=X,CLASS=U,NOTIFY=&SYSUID
//**********************************************************************
//* NATURAL SCAN *
//**********************************************************************
//NAT EXEC NAT2TEST,OUTCLAS=X,PARM='IM=F'
//STEPLIB DD DISP=SHR,DSN=SYS3.ADABAS.COLTEST.LOAD
//SYSIN DD *
LOGON library
SCAN
S
scan-value
replace-value (or blank line)
library (blank for current library)
program-name or *
program-type or *
absolute (Y/N)
FIN
/*
//
//**********************************************************************
//* *
//* Attention: Although there are simpler ways to invoke NATURAL scan, *
//* *
//* this is the safest one. *
//* *
//* This method let you scan for blank-delimited values, *
//* *
//* and bypass the old bug that replace the first word in *
//* *
//* the scan value by the second one. *
//* *
//* Do not delete the blank line at the end !!! *
//* *
//* If you don't have a 'replace' value, keep the *
//* *
//* 'replace-value' line blanked !!! *
//* *
//********************************************************************** |
O. |
|
| Back to top |
|
|
prasanth_urs
New User
Joined: 04 Dec 2006
Posts: 34
Location: Pune,India
|
|
|
|
hi Ofer,
Thank you for the quick response....!
But the Proc NAT2TEST is not available for me to use.The only avaialble Proc related to this name is NAT3TEST which is calling a program NATLBATN.
Please clarify my question,whether i can use NAT3TEST Proc ? otherwise can you please provide me the NAT2TEST Proc.
Thank you once again!  |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 1898
Location: Israel
|
|
|
|
Shops create their own NATURAL-batch proc. This is mainly because you can have multiple NATURAL nucleuses, thus multiple DDCARDs are required. In addition, seperate procs allow for different parameters to NATURAL or ADABAS.
To summerize, simply use the proc that is usually in use at your shop for NATURAL batch invocations. The syntax for the SCAN is identical for all NATURAL nucleuses.
O. |
|
| Back to top |
|
|
|
|
