zOs/REXX/WSHTUT40

$#@
$$ --- operator .-<@|?%^  ---
$$ . 2object $..-'eins' $..@=[zwei$]
$= v3 =.-= drei
$$ - 2string $-v3 $.v3 $--..v3  $-=[vier
   fuenf$]
$$- '< 2file' className(objClass($.<-=[~wk.rexx(wsh)$]))
$=r=.@-[fuenf time()$]
$$- '@ 2run ' className(objClass($r)) 'run='$-%r
$<> $<.<#[ginge auch mit $<=[
sechs
$]
call pipeWriteAll
$<>
$$ | singleton $-|=[sieben $]
$$ ? 0or1      $-?=[acht   $]
$$ % runOut    $-%p1
$$ ^ runRet    $-^p1
$proc p1 $@[$$ p1 output $@ return 'p1 returns'$]
$<>
$#out                                              20161127 14:33:32
--- operator .-<@|?%^  ---
. 2object ]eins O.176.1
- 2string ]drei ]drei drei  vier    fuenf
< 2file File
@ 2run  ORun178 run=FUENF 14:33:32
ginge auch mit $<=[
sechs
| singleton sieben
? 0or1      acht
% runOut    p1 output
p1 output
^ runRet    p1 returns
$#out                                              20161127 14:25:10