//CERTPRO JOB CLASS=A,MSGCLASS=A,USER=TWSROOT,PASSWORD=XXXXXX
//*************************************************************
//*    To import the partner's certificate in the ring
//*************************************************************
//STEP1 EXEC PGM=ICEMAN
//SYSOUT  DD SYSOUT=*
//SORTIN  DD DSN=TWSTST.TWSV.MDMCSTM.TLS,DISP=SHR
//SORTOUT DD DSN=TWSTST.TWSV.MDMCSTM.SEQ3,
//           DISP=(NEW,CATLG),UNIT=SYSDA,
//           DCB=(DSORG=PS,RECFM=VB,LRECL=1024),
//           SPACE=(TRK,(1,1))
//SYSIN DD *
   OPTION COPY
/*
//*************************************************************
//*  Import the distributed certificate into RACF
***************************************************************
//STEP2   EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 RACDCERT ADD('TWSTST.TWSV.MDMCSTM.SEQ3') +
 TRUST WITHLABEL('MDMTLS')
 RACDCERT LIST(LABEL('MDMTLS'))
/*
//*************************************************************
//*  Delete temporary sequential ds
//*************************************************************
//STEP3     EXEC PGM=IEFBR14
//CLICER    DD DSN=TWSTST.TWSV.MDMCSTM.SEQ3,
//           DISP=(OLD,DELETE,DELETE)
//*************************************************************
//* Create the SAF keyring connecting the imported certificates
//*************************************************************
//STEP4   EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 RACDCERT CONNECT(LABEL('MDMTLS') +
    RING(MDMCSTMRING) USAGE(CERTAUT))
 RACDCERT LISTRING(MDMCSTMRING)
/*
//*************************************************************
//*  Refresh RACF DB for the new certificates and keyring
//*************************************************************
//STEP5   EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 SETROPTS RACLIST(DIGTCERT) REFRESH
 SETROPTS RACLIST(DIGTRING) REFRESH