*DECK SELDUMP 
USETEXT CCTTEXT 
          PRGM SELDUMP; 
 #        NAME - SELDUMP                                               #
 #                                                                     #
 #        DOES - SELECTS AND CALLS THE DESIRED DUMP                    #
 #                                                                     #
          BEGIN 
          XREF PROC OVERRTN;
$BEGIN
          XREF
*CALL DUMPNRS 
          XREF
          BEGIN 
              PROC DNATDMP; 
              PROC GTXTDMP; 
              PROC LATDMP;
              PROC PNATDMP; 
              PROC DNTDMP;
              PROC PNTDMP;
              PROC AWRTDMP; 
              PROC INTDMP;
              PROC PLTDMP;
              PROC CTXTDMP; 
              PROC PATDMP;
              PROC CCTDMP;
              PROC FDLTDMP; 
              PROC FNATDMP; 
              PROC AUXTDMP; 
              PROC ETEXTDMP;
              PROC POOLDMP; 
              PROC RFTDMP;
              PROC RPADMP;
              PROC RPDMP; 
              PROC SPBTDMP; 
          END 
          SWITCH DUMPRS:DUMPNAMES 
              DNATDMPR:DNATDMP, 
              GTXTDMPR:GTXTDMP, 
              LATDMPR :LATDMP , 
              PNATDMPR:PNATDMP, 
              DNTDMPR:DNTDMP, 
              PNTDMPR:PNTDMP, 
              AWRTDMPR:AWRTDMP, 
              INTDMPR:INTDMP, 
              PLTDMPR:PLTDMP, 
              CTXTDMPR:CTXTDMP, 
              PATDMPR:PATDMP, 
              CCTDMPR:CCTDMP, 
              FDLTDMPR:FDLTDMP, 
              FNATDMPR:FNATDMP, 
              AUXTDMPR:AUXTDMP, 
              ETEXTDMPR:ETEXTDMP, 
              POOLDMPR:POOLDMP, 
              RFTDMPR:RFTDMP, 
              RPADMPR:RPADMP, 
              RPDMPR:RPDMP, 
              SPBTDMPR:SPBTDMP
              ; 
 #     START MAIN PROCEDURE                                            #
  
          GOTO DUMPRS [DMPITEM[0]];   #GO TO PROPER DUMP# 
  
 DNATDMPR:  
          DNATDMP(DMPITEM[1], DMPITEM[2], DMPITEM[3], DMPITEM[4]);
          OVERRTN;
 GTXTDMPR:  
          GTXTDMP (DMPITEM [1], DMPITEM [2], DMPITEM [3], DMPITEM [4],
              DMPITEM [5]); 
          OVERRTN;
 LATDMPR: 
          LATDMP(DMPITEM[1], DMPITEM[2], DMPITEM[3], DMPITEM[4]); 
          OVERRTN;
 PNATDMPR:  
          PNATDMP(DMPITEM[1], DMPITEM[2], DMPITEM[3]);
          OVERRTN;
 DNTDMPR: 
          DNTDMP; 
          OVERRTN;
  
 PNTDMPR: 
          PNTDMP; 
          OVERRTN;
  
 AWRTDMPR:  
          AWRTDMP;
          OVERRTN;
  
 INTDMPR: 
          INTDMP; 
          OVERRTN;
  
 PLTDMPR: 
          PLTDMP; 
          OVERRTN;
  
 CTXTDMPR:  
          CTXTDMP;
          OVERRTN;
  
 PATDMPR: 
          PATDMP; 
          OVERRTN;
  
 CCTDMPR: 
          CCTDMP; 
          OVERRTN;
  
 FDLTDMPR:  
          FDLTDMP;
          OVERRTN;
  
 FNATDMPR:  
          FNATDMP;
          OVERRTN;
  
 AUXTDMPR:  
          AUXTDMP(DMPITEM[1],DMPITEM[2],DMPITEM[3]);
          OVERRTN;
  
 ETEXTDMPR: 
          ETEXTDMP; 
          OVERRTN;
  
 POOLDMPR:  
          POOLDMP(DMPITEM[1], DMPITEM[2], DMPITEM[3]);
          OVERRTN;
  
 RFTDMPR: 
          RFTDMP; 
          OVERRTN;
  
 RPADMPR: 
          RPADMP; 
          OVERRTN;
  
 RPDMPR:  
          RPDMP;
          OVERRTN;
  
 SPBTDMPR:  
          SPBTDMP;
          $END
          OVERRTN;
  
          END 
          TERM; 
