         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$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
