         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$EDIT VOID=39718000                                                     39640000
$PAGE "DPAN4 : The outter block"                                        41080000
$CONTROL SEGMENT=DPANMAIN                                      <<02368>>41082000
COMMENT                                                                 41084000
                                                                        41086000
Purpose:                                                                41088000
    This is the outter block of the DPAN program ( DumP ANalyzer)       41090000
                                                                        41092000
Input parameters:                                                       41094000
                                                                        41096000
Output parameters:                                                      41098000
                                                                        41100000
Globals Referenced:                                                     41102000
                                                                        41104000
Globals Altered:                                                        41106000
                                                                        41108000
Data Structures:                                                        41110000
                                                                        41112000
Algorithm:                                                              41114000
                                                                        41116000
;                                                                       41118000
<<***********************************************************>><<02368>>41120000
<<**                                                       **>><<02368>>41122000
<<**                 DPAN4 OUTER BLOCK                     **>><< 2368>>41124000
<<**                                                       **>><<02368>>41126000
<<***********************************************************>><<02368>>41128000
IF FALSE THEN BEGIN           <<ALLOW MULTIPLE ENTRY W/O GOTO>><<02368>>41130000
EIGHTLPI: LNSPERPG := 78;                                      <<02368>>41132000
END; IF FALSE THEN BEGIN                                                41134000
NOPRINT: PRTNPRT := TRUE;             <<ENTRY PT TO ADD FILES>><<02368>>41136000
END;                                                           <<02368>>41138000
 ARITRAP(FALSE);                                               <<02368>>41140000
 IF PARM=0 OR PARM=10 OR PARM=20 OR PARM=30 THEN               <<b2368>>41142000
  PROCESS'DUMP(PARM)                                           <<02368>>41144000
  ELSE                                                         <<02368>>41146000
  BEGIN                  << INVALID PARM VALUE >>              <<02368>>41148000
   MOVE DBUFFER :=                                             <<02368>>41150000
    " THE PARM VALUE SPECIFIED WAS INVALID.  ";                <<02368>>41152000
   PRINT(DBUFFER,19,0);                                        <<02368>>41154000
  END;                                                         <<02368>>41156000
END.                                                           <<02368>>41158000
