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:
- /* Out: 5/02/02 10:00 Ver: 0. 0 Level40 Duane J. Christen */
- /* Ref: SWTR050201 Switch Translations/14673 - 2Q02 Auto-Translations Pr */
- /* DJC: INITIAL COPYBOOK CREATION */
- /* */
- *=========================================================================|
- /IF DEFINED(LQMHSNDPM) |
- /EOF |
- /ENDIF |
- * |
- /DEFINE LQMHSNDPM |
- * |
- *=========================================================================|
- * QMHSNDPM - SEND PROGRAM MESSAGE CLEANUP CODE |
- *=========================================================================|
- * |
- * AUTHOR: DUANE J. CHRISTEN |
- * CREATION DATE: May 2, 2002 |
- * |
- *=========================================================================|
- * CODE |
- *=========================================================================|
- * |
- *-------------------------------------------------------------------------|
- * Deallocate allocated storage |
- *-------------------------------------------------------------------------|
- * |
- C IF SNDPM_C_BASE <> *NULL |
- C DeAlloc(E) SNDPM_C_BASE |
- C Eval SNDPM_C_BASE = *NULL
- C EndIf |
- * |
- C IF SNDPM_DTA_Base <> *NULL |
- C DeAlloc(E) SNDPM_DTA_BASE |
- C Eval SNDPM_DTA_BASE = *NULL
- C ENDIF |
- * |
- *=========================================================================|
|
|
|