Source: ERCM09:TELDATA.TELANS         Compiled: 07/10/86   15.04.38
Object: ERCM09:TELDATA.TELANY

Parms set: DEFAULTS



              ERCC. Portable Imp80 Compiler Release 4 Version 15 May 86


  2047  4095
     1        %EXTERNALROUTINE telan(%STRING (255) s)
     2        
     3        %EXTERNALROUTINESPEC prompt %ALIAS "S#PROMPT"(%STRING (255) s)
     4           %routine define (%string (255) s)
     5              %EXTERNALROUTINESPEC emas3(%STRINGNAME command,params, %INTEGERNAME flag)
     6              %INTEGER flag
     7              emas3("DEFINE",s,flag)
     8           %END;                                 ! Of %ROUTINE define.
     9        
    10           %INTEGER i,j,k,ln,file, hours, mins, secs
    11           %OWNINTEGERARRAY swstat(1:2,1:14)
    12           %OWNINTEGERARRAY lnstat(1:2,1:31,1:21)
    13           %STRING (255) s1,s2,s3,s4,t
    14        
    15           %routine dash
    16              %integer i
    17              printsymbol('-') %for i = 1, 1, 79
    18              newline
    19           %end
    20        
    21           %integerfn diff(%integer ln, ent)
    22              %integer x
    23              x = lnstat(2, ln, ent)-lnstat(1, ln, ent)
    24              %if x < 0 %or x > 65000 %then x = -1
    25              %result = x
    26           %end
    27        
    28           %realfn difft(%integer ln, ent)
    29              %result = diff(ln, ent)/secs
    30           %end
    31        
    32           %ROUTINE readstring(%STRING (*) %NAME s)
    33              %INTEGER i
    34              s = ""
    35              %CYCLE
    36                 readsymbol(i)
    37                 %RETURNIF i=nl
    38                 s = s.tostring(i)
    39              %REPEAT
    40           %END
    41        
    42           %ROUTINE skipfordigit
    43              %INTEGER i
    44              %CYCLE
    45                 i = nextsymbol
    46                 %IF '0'<=i<='9' %THENRETURN
    47                 skipsymbol
    48              %REPEAT
    49           %END
    50        
    51           %ROUTINE skipforinitialdigit
    52              %INTEGER i,j,k
    53              %CYCLE
    54                 %CYCLE
    55                    readsymbol(i); %EXITIF i=nl
    56                 %REPEAT
    57                 %CYCLE
    58                    i = nextsymbol
    59                    %RETURNIF '0'<=i<='9'
    60                    skipsymbol; %exit
    61                 %REPEAT
    62              %REPEAT
    63           %END
    64        
    65        
    66           %UNLESS s->s1.("/").s2 %START
    67              s1 = s; s2 = ".out"
    68           %FINISH
    69        
    70           %UNLESS s1->s3.(",").s4 %START
    71              printstring("Min params: file,file
    72"       ")
    73              %STOP
    74           %FINISH
    75        
    76           prompt("Time Diff, hours:"); read(hours)
    77           prompt("           mins :"); read(mins)
    78           secs = (hours*60+mins)*60
    79        
    80        
    81           define("1,".s3); define("2,".s4)
    82           define("3,".s2)
    83        
    84           select output(3)
    85        
    86           %CYCLE file = 1,1,2
    87              select input(file)
    88              readstring(t); printstring(t); newline
    89              skipforinitialdigit
    90              %CYCLE i = 1,1,14
    91                 read(swstat(file,i))
    92              %REPEAT
    93        
    94              %CYCLE ln = 1,1,30
    95                 skipfordigit
    96                 %CYCLE i = 1,1,5
    97                    read(lnstat(file,ln,i))
    98                 %REPEAT
    99                 skipfordigit
   100                 %CYCLE i = 6,1,21
   101                    read(lnstat(file,ln,i))
   102                 %REPEAT
   103              %REPEAT
   104           %REPEAT
   105        
   106           %cycle i = 1, 1, 30
   107              %cycle j = 1, 1, 21
   108                 lnstat(1, 31, j) = lnstat(1, 31, j)+lnstat(1,i,j)
   109                 lnstat(2, 31, j) = lnstat(2, 31, j)+lnstat(2,i,j)
   110              %repeat
   111           %repeat
   112        
   113           printstring("      Current       Frames           Bytes    Acc Calls")
   114           printstring("
   115"       ")
   116           printstring("Line   Calls    Rx/sec Tx/sec  Rx/sec Tx/sec    per min")
   117           printstring("  CRC  Rejects  Retxs
   118"       ")
   119           %CYCLE ln = 1,1,31
   120              %if ln < 31 %then write(ln,3) %else %start
   121                 dash
   122                 printstring("Total")
   123              %finish
   124              write(lnstat(2,ln,5),6)
   125              print(difft(ln, 13), 6, 1)
   126              print(difft(ln, 14), 6, 1)
   127              print(difft(ln, 11), 7, 0)
   128              print(difft(ln, 12), 7, 0)
   129              print(difft(ln, 4)*60, 6, 0)
   130              print(diff(ln, 1), 6, 0)
   131              print(diff(ln, 2), 6, 0)
   132              print(diff(ln, 3), 6, 0)
   133              newline
   134           %REPEAT
   135        %END
   136        %ENDOFFILE

   136 LINES ANALYSED   SIZE=  4896
?  Warning :-  Name k not used at line No 63

?  Warning :-  Name j not used at line No 63

?  Warning :-  Name k not used at line No 135

IBM CODE   4240+  480 BYTES      GLAP 216+ 5320 BYTES      DIAG TABLES 536 BYTES
TOTAL 10792 BYTES
     141 STATEMENTS COMPILED