midrange.com code scratchpad |
Name:
ZQMHSNDPM
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
04/29/2010 02:42:26 pm
|
IP:
Logged
|
|
Description:
The user was to lazy to give a description
|
Code:
- /* Out: 6/20/00 8:18 Ver: 0. 0 Level40 Duane J. Christen */
- /* Ref: 27350003 Digital Subscriber Line (SDSL) Project/Digital Subscr */
- /* DJC: CONDITION ALLOCATION OF STORAGE TO PREVENT MULTIPLE ALLOCATIONS */
- /* */
- /* Out: 3/24/00 8:22 Ver: 0. 0 Level20 Duane J. Christen */
- /* Ref: DJC 0010 Duane Christen - Small scope projects/OT01 Performanc */
- /* DJC: INITIAL COPYBOOK CREATION */
- *=========================================================================|
- /IF DEFINED(ZQMHSNDPM) |
- /EOF |
- /ENDIF |
- * |
- /DEFINE ZQMHSNDPM |
- * |
- *=========================================================================|
- * QMHSNDPM - SEND PROGRAM MESSAGE INIZILIZATION CODE |
- *=========================================================================|
- * |
- * AUTHOR: DUANE J. CHRISTEN |
- * CREATION DATE: DECEMBER 29, 1999 |
- * |
- * |
- *! FOR A DESCRIPTION ON HOW TO USE THIS COPYBOOK SEE: |
- *! |
- * |
- *=========================================================================|
- * CODE |
- *=========================================================================|
- * |
- *-------------------------------------------------------------------------|
- * INITILIZE CALL STACK ENTRY |
- *-------------------------------------------------------------------------|
- * |
- C IF SNDPM_C_BASE = *NULL |
- C ALLOC SNDPM_C_STG SNDPM_C_BASE |
- * |
- C EVAL %SUBST(SNDPM_C_STACK_ENTRY : |
- C 1 : |
- C SNDPM_C_STG) = '*' |
- * |
- *-------------------------------------------------------------------------|
- * INITILIZE DATA |
- *-------------------------------------------------------------------------|
- * |
- C If sndPm_Max_Data_Length = 0
- C EVAL SNDPM_DTA_STG = SNDPM_DATA_LENGTH |
- * |
- C Else
- C Eval sndPm_Dta_Stg = sndPm_Max_Data_Length
- C EndIf
- * |
- C IF SNDPM_DTA_STG > 0 |
- C ALLOC SNDPM_DTA_STG SNDPM_DTA_BASE |
- * |
- C EVAL %SUBST(SNDPM_DATA : |
- C 1 : |
- C SNDPM_DTA_STG) = *BLANKS |
- C ENDIF |
- C ENDIF |
- * |
- *=========================================================================|
|
|
|