HP3000-L Archives

October 1997, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Fri, 3 Oct 1997 13:34:04 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines)
> I am attempting to addup all the line counts of programs within a group
>
> Used N2@LISTF@VESOFT as a guide
>
> Keep getting variable not defined message..

Here's something posted in May 1997:
-----------------------------------------------------------------

Here's an MPEX LISTF setup that will do the job, courtesy of
Michael Hensley:

   First, create a file named linetot.listf.vesoft that contains:

   ---cut here---
   for rfile in mpexfileset
      alreadysorted (account:8, group:8)
      onbreakbefore 1
         begin
            writeln(" Account: ",account:8);
         end
      onbreakafter 1
         begin
            writeln(" ",account:8," total: ",
               total(1,1):8," files ",
               total(1,EOF):8, " lines ");
            writeln(" ");
         end
      onbreakafter 2
         begin
            writeln("    ",group:8," total: ",
               total(2,1):8," files ",
               total(2,EOF):8, " lines ");
         end
   finally
     writeln("    Grand Total: ",
       total(0,1):8," files ",
       total(0,EOF):8," lines ");
   ---cut here---

   Now you can do something like this:

   %listf @[log in to unmask]@[log in to unmask],linetot
    Account: FOO
       C        total:        1 files       40 lines
       SPL      total:        1 files       26 lines
       COBOL    total:        2 files       83 lines
       PASCAL   total:        1 files       43 lines
    FOO      total:        5 files      192 lines

       Grand Total:        5 files      192 lines
----------------------------------------------------------------------

--
Stan Sieler                                          [log in to unmask]
                                     http://www.allegro.com/sieler.html

ATOM RSS1 RSS2