$!
$! DES3_SIGN
$!
$ on error then goto done
$ on control_y then goto done
$ save_default_dir = f$environment( "DEFAULT" )
$ cdsa_sign_exe == "$sys$system:cdsa$sign.exe"
$!
$ if( f$trnlnm( "cdsa_tempdir" ) .eqs. "" )
$ then
$    write sys$output ""
$    write sys$output "Please define the rooted logical """cdsa_tempdir""" to build this example."
$    write sys$output ""
$    goto done
$ endif
$!
$ if( f$search( "cdsa_tempdir:[des3]des3.exe" ) .eqs. "" )
$ then 
$    write sys$output ""
$    write sys$output "Cannot sign, CDSA_TEMPDIR:[DES3]DES3.EXE Not Found."
$    write sys$output ""
$    goto done 
$ endif
$!
$!**********************************************************************
$! The logical 'cdsa_sign' is used internally by the code, don't change.
$ define cdsa_sign "/cdsa_tempdir/des3"
$!**********************************************************************
$!
$ set default cdsa_sysdir:[sign]
$ cdsa_sign_exe des3 /cdsa_tempdir/des3 X intapps.cer selfsign intchain. -
  {1d6871ce-6371-115a-b3b8-08002bc48051} "XX" "EXEMPT" "XX" "XX"
$!cdsa_sign_exe /cdsa_tempdir/des3/des3.esw exapps.cer selfsign exchain. "AAAAAQ==" "XX" "EXEMPT" "XX"
$
$ done:
$ set default 'save_default_dir
$ exit