Maintaining a history of Problem Determination Aid (PDA) log data

IBM recommends that you keep a history of DFSMSrmm PDA trace data in case a problem is reported to IBM. To do this, you should copy each log data set as it fills up to a generation data group (GDG) data set on tape.

DFSMSrmm writes trace data to the data set name defined by the EDGPDOX DD statement. When DFSMSrmm swaps the output data sets, trace data recorded prior to the swap is available in the data set name defined by the EDGPDOY DD statement. To archive the trace data, copy the EDGPDOY data set at the time DFSMSrmm issues message EDG9117I.

Example: Define the generation data group (GDG) name for the archived problem determination output data set. The z/OS system image ID (?HOSTID.) must be valid for your environment.

/***********************************************************************/
/* SAMPLE JOB THAT DEFINES THE GENERATION DATA GROUP NAME FOR THE      */
/* ARCHIVED PDA LOG DATA SET.                                          */
/***********************************************************************/
/*
//DEFGDG   JOB MSGLEVEL=1
//STEP1    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
           DEFINE   GDG(NAME('?UID..?HOSTID..RMMTRACE') -
           LIMIT(30) NOSCRATCH NOEMPTY)
/*

The data set name for the DD statement, SYSUT1, must correspond to the name specified for the EDGPDOY data set. Change the z/OS system image ID (?HOSTID.) to an ID that is valid for your environment. To copy the inactive trace data set to a scratch tape as a generation data set (GDS):

/***********************************************************************/
/* SAMPLE JOB THAT COPIES THE INACTIVE PDA LOG DATA SET TO TAPE        */
/***********************************************************************/
/*
//PDOCOPY     JOB MSGLEVEL=1
//STEP1       EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSIN    DD DUMMY
//SYSUT1   DD DSN=?UID..?HOSTID..RMMPDOY,DISP=SHR
//SYSUT2   DD DSN=?UID..?HOSTID..RMMTRACE(+1),
//            UNIT=TAPE,
//            DISP=(NEW,CATLG,DELETE),
//            DCB=(?UID..?HOSTID..RMMPDOY)