Deleting DTCN profiles with the DTCN LINK service

z/OS® Debugger provides a service that deletes unowned profiles from the DTCN repository.

If the DTCN repository is stored in CICS® Temporary Storage (EQADTCN2), profiles are owned by the terminal that created them. The service scans the repository, looking for profiles that were created in the region running the service. If the service finds a profile owned by a terminal that is no longer defined and active in the region, the service deletes the profile.

If the DTCN repository is stored in VSAM (EQADPFMB), profiles are owned by the user ID that created them. The service scans the repository, looking for profiles that were created in the region running the service. If the service finds a profile owned by a user ID that is no longer active in the region, the service deletes the profile.

Invoke the service with the following command:

EXEC CICS LINK PROGRAM('EQADCDEL')

The service does not expect a commarea.

Invoke this service during DELETE processing in the program that controls autoinstall of terminals; however, you can invoke it from any EXEC-capable program. Figure 1 and Figure 2 show how to invoke the service in DFHZATDX, the supplied, user-replaceable autoinstall control program for terminals.

Figure 1. Example of invoking service in DFHZATDX

***********************************************************************
* *                D E L E T E    P R O C E S S I N G               * *
* *                ----------------------------------               * *
* *                                                                 * *
***********************************************************************
DELETE_TERMINAL DS    0H                                              
         USING DELETE_EXIT_COMMAREA,R2 Address delete commarea    
* ==> PUT DELETE CODE HERE                                          
*
         EXEC CICS LINK PROGRAM('EQADCDEL')    
*  
         B     RETURN              EXIT PROGRAM

Figure 2. Example of invoking service in DFHZATDX

***********************************************************************
* Function 8 and 10 - Common delete processing for shipped definitions*
***********************************************************************
DELETE_SHIPPED_TERMINAL DS 0H                                      @D2A
         USING DELETE_SHIPPED_COMMAREA,R2 Address commarea         @D2A
* ==> PUT DELETE CODE HERE                                         @D2A       
*                                                                        
         EXEC CICS LINK PROGRAM('EQADCDEL') NOHANDLE                    
*
         B     RETURN              EXIT PROGRAM                    @D2A
         DFHEJECT                                                  @D2A

Note: To use the the DTCN LINK service, ensure that the DTCNDELETEDEADPROF EQAOPTS command is set to YES.

See DTCNDELETEDEADPROF for more information.