-$ @[--.util]deltree [.demoCA]*.*
-$
-$ open/write file VMStsa-response.create_ca
-$ write file ""
-$ write file "HU"
-$ write file "Budapest"
-$ write file "Budapest"
-$ write file "Gov-CA Ltd."
-$ write file "ca1"
-$ close file
-$ open/read sys$ca_input VMStsa-response.create_ca
-$ @[--.apps]CA.com -input sys$ca_input -newca
-$ save_severity = $severity
-$ close sys$ca_input
-$ if save_severity .ne. 1 then call error
+$ TSDNSECT = "ts_ca_dn"
+$ openssl req -new -x509 -nodes -
+ -out tsaca.pem -keyout tsacakey.pem
+$ if $severity .ne. 1 then call error