midrange.com code scratchpad
Name:
LQMHSNDPM
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
04/29/2010 02:44:39 pm
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1.      /* Out:  5/02/02 10:00 Ver:  0.  0 Level40 Duane J. Christen             */ 
  2.      /* Ref: SWTR050201 Switch Translations/14673 - 2Q02 Auto-Translations Pr */ 
  3.      /* DJC:  INITIAL COPYBOOK CREATION                                       */ 
  4.      /*                                                                       */ 
  5.       *=========================================================================|
  6.       /IF DEFINED(LQMHSNDPM)                                                    |
  7.       /EOF                                                                      |
  8.       /ENDIF                                                                    |
  9.       *                                                                         |
  10.       /DEFINE LQMHSNDPM                                                         |
  11.       *                                                                         |
  12.       *=========================================================================|
  13.       * QMHSNDPM - SEND PROGRAM MESSAGE CLEANUP CODE                            |
  14.       *=========================================================================|
  15.       *                                                                         |
  16.       * AUTHOR:          DUANE J. CHRISTEN                                      |
  17.       * CREATION DATE:   May 2, 2002                                            |
  18.       *                                                                         |
  19.       *=========================================================================|
  20.       * CODE                                                                    |
  21.       *=========================================================================|
  22.       *                                                                         |
  23.       *-------------------------------------------------------------------------|
  24.       * Deallocate allocated storage                                            |
  25.       *-------------------------------------------------------------------------|
  26.       *                                                                         |
  27.      C                   IF        SNDPM_C_BASE <> *NULL                        |
  28.      C                   DeAlloc(E)              SNDPM_C_BASE                   |
  29.      C                   Eval      SNDPM_C_BASE = *NULL                          
  30.      C                   EndIf                                                  |
  31.       *                                                                         |
  32.      C                   IF        SNDPM_DTA_Base <> *NULL                      |
  33.      C                   DeAlloc(E)              SNDPM_DTA_BASE                 |
  34.      C                   Eval      SNDPM_DTA_BASE = *NULL                        
  35.      C                   ENDIF                                                  |
  36.       *                                                                         |
  37.       *=========================================================================|
© 2004-2019 by midrange.com generated in 0.008s valid xhtml & css