Given a RUN parameter of a 3-character IDEAL SYSTEM ID the GET$DATE program will retrieve, from Datadictionary,
all program names for that system via SDF calls to non-Ideal subprogram DDCALL. The program name is then used to read
the VLS source library member containing the PDL code and search for "$DATE" and "$INTERNAL-DATE". VLS read access
of the source library is done by calling non-IDEAL subprogram @I$SRCRD. A report is produced listing the program name,
version, status, statement number and line of source code containing either $DATE or $INTERNAL-DATE.
This program can be modified to search for any string in the program. For example, if you would like to search for string 'TRANSFER TO',
you need to edit the procedure from:
IF $INDEX(PDL-CODE,SEARCH='$DATE') NE 0
OR $INDEX(PDL-CODE,SEARCH='$INTERNAL-DATE') NE 0
TO ! !
IF $INDEX(PDL-CODE,SEARCH='TRANSFER TO') NE 0
You will need to use Source Transport to IMPORT GET$DATE into your system.
//SYSIN DD *
SET IMPORT SYS $ID
SET IMPORT DUPLICATE REPLACE
IMPORT ALL
OFF
//
Add SET IMPORT NEW SYSTEM *** if you want to IMPORT the source into a system other than $ID.
For additional IMPORT cards,see the CA Ideal CA Datacom Working In The Environment Reference Guide.
: