OpenVMS Source-Code Demos

PIPE_DEMO_CHILD.COM

$!=========================================================
$! pipe_demo_child.com
$!=========================================================
$ write sys$error "-i-script: child is starting"
$ read  sys$command msg
$ write sys$output "-i-script: child received msg: ", msg
$ write sys$error "-i-script: child is exiting"
$ exit