*DECK XDUMP 
          IDENT  XDUMP
          SST 
          ENTRY  XDUMP
          EXT    XTRACE 
*#
*1DC  XDUMP 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        XDUMP               J.C. LEE            80/04/15 
*                            L.T.NGUYEN          82/02/11 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        DUMP EXCHANGE PACKAGE AND NIP-S FIELD LENGTH TO OUTPUT FILE
* 
*     3. METHOD USED. 
*        ISSUE SYSTEM REQUEST.
* 
*     4. ENTRY PARAMETERS.
*        NONE 
* 
*     5. EXIT PARAMETERS. 
*        NONE 
* 
*     6. COMDECKS USED. 
*        NONE 
* 
*     7. ROUTINES CALLED. 
*        XTRACE 
* 
*     8. DAYFILE MESSAGES.
*          *NIP REPRIEVED.* 
* 
*#
*CALL MACDEF
*CALL INPARU
  
 XDUMP    BSSZ   1                 ENTRY EXIT 
          IFEQ   DEBUG,1,2
          SX1    XDUMPN 
          RJ     XTRACE            RECORD CALL
  
          SB1    1
          SA0   =C*  NIP REPRIEVED.*
          MESSAGE  A0,0,R    DAYFILE NIP REPRIEVED MESSAGE
  
          SYSTEM DMP,R             DUMP EXCHANGE PACKAGE
          SYSTEM DMB,R
          EQ     XDUMP             RETURN 
  
 XDUMPN   DATA   L*XDUMP* 
          END