$! $! $! $ 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:[des2]des2.exe" ) .eqs. "" ) $ then $ write sys$output "" $ write sys$output "Cannot sign, CDSA_TEMPDIR:[DES2]DES2.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/des2" $!********************************************************************* $! $ set default cdsa_sysdir:[sign] $ cdsa_sign_exe des2 /cdsa_tempdir/des2 X intapps.cer selfsign intchain. - {fd52a3ea-d9ec-1159-916b-08002bc48051} "XX" "EXEMPT" "XX" "XX" $!cdsa_sign_exe /cdsa_tempdir/des2/des2.esw exapps.cer selfsign exchain. "AAAAAQ==" "XX" "EXEMPT" "XX" $ $ done: $ set default 'save_default_dir $ exit