Table of Contents

XDUMP

Table Of Contents

Source Code

XDUMP.txt 
  1. *DECK XDUMP 
  2.           IDENT  XDUMP
  3.           SST 
  4.           ENTRY  XDUMP
  5.           EXT    XTRACE 
  6. *#
  7. *1DC  XDUMP 
  8. * 
  9. *     1. PROC NAME           AUTHOR              DATE 
  10. *        XDUMP               J.C. LEE            80/04/15 
  11. *                            L.T.NGUYEN          82/02/11 
  12. * 
  13. *     2. FUNCTIONAL DESCRIPTION.
  14. *        DUMP EXCHANGE PACKAGE AND NIP-S FIELD LENGTH TO OUTPUT FILE
  15. * 
  16. *     3. METHOD USED. 
  17. *        ISSUE SYSTEM REQUEST.
  18. * 
  19. *     4. ENTRY PARAMETERS.
  20. *        NONE 
  21. * 
  22. *     5. EXIT PARAMETERS. 
  23. *        NONE 
  24. * 
  25. *     6. COMDECKS USED. 
  26. *        NONE 
  27. * 
  28. *     7. ROUTINES CALLED. 
  29. *        XTRACE 
  30. * 
  31. *     8. DAYFILE MESSAGES.
  32. *          *NIP REPRIEVED.* 
  33. * 
  34. *#
  35. *CALL MACDEF
  36. *CALL INPARU
  37.  
  38.  XDUMP    BSSZ   1                 ENTRY EXIT 
  39.           IFEQ   DEBUG,1,2
  40.           SX1    XDUMPN 
  41.           RJ     XTRACE            RECORD CALL
  42.  
  43.           SB1    1
  44.           SA0   =C*  NIP REPRIEVED.*
  45.           MESSAGE  A0,0,R    DAYFILE NIP REPRIEVED MESSAGE
  46.  
  47.           SYSTEM DMP,R             DUMP EXCHANGE PACKAGE
  48.           SYSTEM DMB,R
  49.           EQ     XDUMP             RETURN 
  50.  
  51.  XDUMPN   DATA   L*XDUMP* 
  52.           END