*                                         1...5....1....5....2....5..
     D myString        S             30    inz('Liebe bewegt das Universum!')
     D output          S             30    inz('')
     D n               S              2  0 inz(1)
     D m               S              2  0 inz(5)
     D length          S              2  0 inz(0)
     D find            S              2  0 inz(0)

      /free
       *inlr = *on;
        dsply    %subst(myString:n:m);
        dsply    %subst(myString:7:20);

        length = %len(%trim(myString));
        dsply    %subst(myString:1:length-1);

        find   = %scan('U':myString);
        dsply    %subst(myString:find:9);

        find   = %scan('bewegt':myString);
        dsply    %subst(myString:find:%len('bewegt'));

        output = ' *** end *** ';
        dsply ' ' ' ' output;
      /end-free