$PAGE "DPAN4 : The outter block"                                        39640000
$control segment=dpanmain                                      <<01114>>39642000
comment                                                                 39644000
                                                                        39646000
purpose:                                                                39648000
    this is the outter block of the dpan program ( dump analyzer)       39650000
                                                                        39652000
input parameters:                                                       39654000
                                                                        39656000
output parameters:                                                      39658000
                                                                        39660000
globals referenced:                                                     39662000
                                                                        39664000
globals altered:                                                        39666000
                                                                        39668000
data structures:                                                        39670000
                                                                        39672000
algorithm:                                                              39674000
                                                                        39676000
;                                                                       39678000
<<***********************************************************>><<01114>>39680000
<<**                                                       **>><<01114>>39682000
<<**                 dpan4 outer block                     **>><< wbt >>39684000
<<**                                                       **>><<01114>>39686000
<<***********************************************************>><<01114>>39688000
if false then begin           <<allow multiple entry w/o goto>><<03084>>39690000
eightlpi: lnsperpg := 78;                                      <<01114>>39692000
end; if false then begin                                                39694000
noprint: prtnprt := true;             <<entry pt to add files>><<03084>>39696000
end;                                                           <<03084>>39698000
 aritrap(false);                                               <<03084>>39700000
 if parm=0 or parm=10 or parm=20 or parm=30 then               <<b8888>>39702000
  process'dump(parm)                                           <<01114>>39704000
  else                                                         <<01114>>39706000
  begin                  << invalid parm value >>              <<01114>>39708000
   move dbuffer :=                                             <<01114>>39710000
    " THE PARM VALUE SPECIFIED WAS INVALID.  ";                <<01114>>39712000
   print(dbuffer,19,0);                                        <<01114>>39714000
  end;                                                         <<01114>>39716000
end.                                                           <<01114>>39718000
