Sample CA Ideal Program: GET$DATE

Document created by GIAJU01 Employee on Oct 6, 2014
Version 1Show Document
  • View in full screen mode

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.                          

                               :

Attachments

Outcomes