Hello2: proc options(main);
    put list ('Hello, world!');
end Hello2;

/* Read in a line, which contains a string,
/* and then print every subsequent line that contains that string. */

find_strings: procedure options (main);
    declare pattern character (100) varying;
    declare line character (100) varying;
    declare line_no fixed binary;

    on endfile (sysin) stop;

    get edit (pattern) (L);
    line_no = 1;
    do forever;
        get edit (line) (L);
        if index(line, pattern) > 0 then
            put skip list (line_no, line);
        line_no = line_no + 1;
    end;

end find_strings;