zOs/REXX/WSHTUT31

$#=
--- primary ---
string mit apostroph $'string $ "q" ''a'' '
string mit quote     $"string $ ""q"" 'a' "
$= n1 = eins
variable             $n1 Oder
  mit {}             ${n1}Oder
$= i1 = 1
  mit {expression}   ${n$i1} geschachtelt $'n$i1'=n$i1
block to string      $-[rexx 'string' (3+1)$]
   mehere Zeilen     $-[rexx 'zeile' eins
                             'zeile zwei'   $]
block to object      $.[rexx 'string' (3+2)$]
block to object      $.-[rexx 'string' (3+3)$]
mit operatoren       $.-.-n1
    proc             $-f1
    runReturn        $-^f1
    runOutput        $-%f1
    run block        $.-@[$$ n1=$n1 $$ zwei$]
$proc $@/f1/
$$ start of function f1
return 'return from f1, n1='$n1
$/f1/
$#out                                              20161127 10:20:07
--- primary ---
string mit apostroph string $ "q" 'a'
string mit quote     string $ "q" 'a'
variable             eins Oder
  mit {}             einsOder
  mit {expression}   eins geschachtelt n$i1=n1
block to string      REXX string 4
   mehere Zeilen     REXX zeile EINS zeile zwei
block to object      REXX string 5
block to object      ]REXX string 6
mit operatoren       ]eins
    proc             O.178.1
start of function f1
    runReturn        return from f1, n1=eins
    runOutput        start of function f1
    run block        ]n1=eins zwei
$#out                                              20161126 10:48:01