> Can we do a similar thing [...]

   Probably not a very similar thing.  DCL is very different from a
UNIX(-like) shell.  (More like, say, Fortran.)  A Web search should be
able to find any number of introductions to DCL.  Also useful:

      HELP
      HELP Hints
      HELP Hints Command_procedures
      HELP LEXICALS
      HELP OPEN
      HELP CLOSE
      HELP GOTO

   Here's a start to one possible approach:

alp $ type dcl_5365063.com
$ open /read in_file 'p1'
$ loop_top:
$     read /end_of_file = loop_end /error = loop_end in_file line
$     ele0 = f$element( 0, " ", line)
$     write sys$output ele0
$ goto loop_top
$ loop_end:
$ close in_file

alp $ @ dcl_5365063.com test_5365063.txt
Device
------
se0
s10
dn0

   It opens a file, read its contents line by line, and stops (and
closes the file) when it runs out of input.  For each line in the input,
it extracts the first space-delimited field, and writes that to the
user's terminal.  I didn't write the code to skip the input until
"-----" appears, but I didn't want to spoil all your fun.

      HELP IF

   As with a shell script, a DCL procedure like this could be improved
in many ways (better error handling, for example), all of which could be
educational.