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:
"Exequiel R. Sevilla III" <[log in to unmask]>
Reply To:
Date:
Fri, 3 Oct 1997 12:57:37 PST8
Content-Type:
text/plain
Parts/Attachments:
text/plain (51 lines)
Greetings.

I'm not a Guru...wouldn't claim to be...but here's one which works for us:

   for rfile in mpexfileset
      alreadysorted (account:8, group:8)
      onbreakbefore 1
         begin
            writeln(" Account: ",account:8);
            writeln(" ");
         end
      onbreakafter 1
         begin
            writeln(" ---------------------",
                "-------------------------");
            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 ");

Kelly Sevilla


______________________________ Reply Separator _________________________________
Subject: Is there a FLEXIBLE LISTF (MPEX) Guru ....
Author:  [log in to unmask] at CCGATE
Date:    10/3/1997 9:34 AM


on board?

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..

Thanks
Ish

ATOM RSS1 RSS2