/* Rexx */
 
/*-----------------------------------------------------------------*/
/* Description:                                                    */
/*                                                                 */
/* Delete a record from the CKDS                                   */
/*                                                                 */
/*-----------------------------------------------------------------*/
krd_label = left('SAMPLE.SECRET.AES256.KEY001',64);
 
Call CSNBKRD;
 
Exit;
 
/* --------------------------------------------------------------- */
/* CSNBKRD - Key Record Delete (CKDS)                              */
/*                                                                 */
/* Deletes a key record from the CKDS.                             */
/*                                                                 */
/* See the ICSF Application Programmer's Guide for more details.   */
/* --------------------------------------------------------------- */
CSNBKRD:
 
krd_rc = 'FFFFFFFF'x;
krd_rs = 'FFFFFFFF'x;
krd_exit_data_length = '00000000'x;
krd_exit_data = '';
krd_rule_array_count = '00000001'x;
krd_rule_array = 'LABEL-DL';
 
ADDRESS LINKPGM "CSNBKRD",
                "krd_rc",
                "krd_rs",
                "krd_exit_data_length",
                "krd_exit_data",
                "krd_rule_array_count",
                "krd_rule_array",
                "krd_label";
 
if (KRD_RC /= '00000000'x) Then
  say 'KRD Failed   (rc=' c2x(KRD_RC)' rs='c2x(KRD_rs)')' ;
else
  say 'Deletion successful'
 
 
return;