Datacom

 View Only

Sample CA Ideal Program: GET$DATE 

Oct 06, 2014 10:20 AM

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.                          

                               :

Statistics
0 Favorited
1 Views
1 Files
0 Shares
0 Downloads
Attachment(s)
zip file
GET$DATE.TXT.zip   6 KB   1 version
Uploaded - May 29, 2019

Related Entries and Links

No Related Resource entered.