The following example shows you how to split a sentence into
       lines (the separators are spaces, commas, or dots).

       DTR> SHOW D1
       DOMAIN D1 USING R1 ON LOG_NAM ;

       DTR> FN$CREATE_LOG("LOG_NAM","FN_STR_TOKEN_01.DAT");
       DTR> READY D1 ;
       DTR> DECLARE TOKEN PIC X(80) .;
       DTR> FOR D1
       CON>         BEGIN
       CON>         TOKEN = FN$STR_TOKEN(F," ,.", 1) ;
       CON>         WHILE TOKEN NOT EQ " "
       CON>                 BEGIN
       CON>                 PRINT TOKEN ;
       CON>                 TOKEN = FN$STR_TOKEN(F," ,.", 0);
       CON>                 END ;
       CON>         END ;

                                            TOKEN

       DEC
       DATATRIEVE
       for
       OpenVMS
       AXP
       systems
       is
       a
       query
       report
       and
       data
       management
       tool
       for
       the
       OpenVMS
       Operating
       System

       DTR>