<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
$PAGE "DPAN4 : The outter block"                                        60000000
$CONTROL SEGMENT=DPANMAIN                                      <<01114>>60002000
COMMENT                                                                 60004000
                                                                        60006000
Purpose:                                                                60008000
    This is the outter block of the DPAN program ( DumP ANalyzer)       60010000
                                                                        60012000
Input parameters:                                                       60014000
                                                                        60016000
Output parameters:                                                      60018000
                                                                        60020000
Globals Referenced:                                                     60022000
                                                                        60024000
Globals Altered:                                                        60026000
                                                                        60028000
Data Structures:                                                        60030000
                                                                        60032000
Algorithm:                                                              60034000
                                                                        60036000
;                                                                       60038000
<<***********************************************************>><<01114>>60040000
<<**                                                       **>><<01114>>60042000
<<**                 DPAN4 OUTER BLOCK                     **>><< WBT >>60044000
<<**                                                       **>><<01114>>60046000
<<***********************************************************>><<01114>>60048000
IF FALSE THEN BEGIN           <<ALLOW MULTIPLE ENTRY W/O GOTO>><<03084>>60050000
EIGHTLPI: LNSPERPG := 78;                                      <<01114>>60052000
NOPRINT: PRTNPRT := TRUE;             <<ENTRY PT TO ADD FILES>><<03084>>60054000
END;                                                           <<03084>>60056000
 ARITRAP(FALSE);                                               <<03084>>60058000
 IF PARM=0 OR PARM=10 OR PARM=20 THEN                          <<03076>>60060000
  PROCESS'DUMP(PARM)                                           <<01114>>60062000
  ELSE                                                         <<01114>>60064000
  BEGIN                  << INVALID PARM VALUE >>              <<01114>>60066000
   MOVE DBUFFER :=                                             <<01114>>60068000
    " THE PARM VALUE SPECIFIED WAS INVALID.  ";                <<01114>>60070000
   PRINT(DBUFFER,19,0);                                        <<01114>>60072000
  END;                                                         <<01114>>60074000
END.                                                           <<01114>>60076000
