zOs/JCL/VS

//A540769C  JOB (CP00,KE50)                                             00010001
//*JOBLIB    DD DSN=CMN.DIV.P0.A18Q.#002140.LLB,DISP=SHR
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//           PARM=('%VS   v1=eins v2  =  " zwei "')
//*          PARM=('%VS   von=190  bis =  210 ')
//SYSIN    DD DUMMY
//*SYS3SIN  DD DUMMY
//VSOUT      DD SYSOUT=*
//VSIN       DD *
   erste Zeile nur text
   zweite Zeile mit var und Strings: $"$V1="$V1, $'${V2}='${ V2 }.Punkt
   dritte Zeile mit rexx date<$(date('s')$)>
//VSIN2      DD *
   Quadrat und Kubikzahlen von $VON bis $BIS
   $:{ le = length($BIS*$BIS*$BIS) + 1
       $| right('n', le) right('n**2', le) right('n**3', le)
       do x=$VON to $BIS
           $| right(x, le) right(x*x, le) right(x*x*x, le)
           end
   $:}
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX