🚀 go-pugleaf

On Fri, 29 May 1992 11:59:36 -0400, Barry Walton <BWALTON@MILLERSV>
raised the question of how to extract the subject line from the
mail files in a user's reader.  This can be done quite simply
using CMS Pipelines; for example:

/* SUBJECTS EXEC */

'CP SPOOL RDR CL M HOLD'              /* Hold the reader.            */

'PIPE',
   'cp query rdr all class m |',      /* Query the reader.           */
   'drop 1 |',                        /* Drop the header line.       */
   'specs word 2 1 |',                /* Save only the spoolid.      */
   'sort |',                          /* Put in numeric order.       */
   'stem files.'                      /* Put spoolids into array.    */

Do i = 1 to files.0                   /* Loop through the files.     */
   'PIPE',
      'reader 00C file' files.i '|',  /* Read i-th file.             */
      'find  Subject: |',             /* Find "Subject:" line if any.*/
      'append literal . (none) |',    /* In case no subject.         */
      'take 1 |',                     /* Take only 1 Subject line.   */
      'specs',                        /* Format the output:          */
         '/File/ 1',                  /*   literal "File",           */
         '/'files.i'/ nextword',      /*   then spoolid,             */
         'word 2-* nextword |',       /*   then subject.             */
      'console'                       /* Display on console          */

This will produce output such as the following:

File 0750 hello
File 0752 goodbye
File 0754 (none)
File 0756 An example subject line