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:
  1.      /* Out:  6/20/00  8:18 Ver:  0.  0 Level40 Duane J. Christen             */  
  2.      /* Ref: 27350003   Digital Subscriber Line (SDSL) Project/Digital Subscr */  
  3.      /* DJC:  CONDITION ALLOCATION OF STORAGE TO PREVENT MULTIPLE ALLOCATIONS */  
  4.      /*                                                                       */  
  5.      /* Out:  3/24/00  8:22 Ver:  0.  0 Level20 Duane J. Christen             */  
  6.      /* Ref: DJC 0010   Duane Christen - Small scope projects/OT01 Performanc */  
  7.      /* DJC:  INITIAL COPYBOOK CREATION                                       */  
  8.       *=========================================================================| 
  9.       /IF DEFINED(ZQMHSNDPM)                                                    | 
  10.       /EOF                                                                      | 
  11.       /ENDIF                                                                    | 
  12.       *                                                                         | 
  13.       /DEFINE ZQMHSNDPM                                                         | 
  14.       *                                                                         | 
  15.       *=========================================================================| 
  16.       * QMHSNDPM - SEND PROGRAM MESSAGE INIZILIZATION CODE                      | 
  17.       *=========================================================================| 
  18.       *                                                                         | 
  19.       * AUTHOR:          DUANE J. CHRISTEN                                      | 
  20.       * CREATION DATE:   DECEMBER 29, 1999                                      | 
  21.       *                                                                         | 
  22.       *                                                                         | 
  23.       *! FOR A DESCRIPTION ON HOW TO USE THIS COPYBOOK SEE:                     | 
  24.       *!                                                                        | 
  25.       *                                                                         | 
  26.       *=========================================================================| 
  27.       * CODE                                                                    | 
  28.       *=========================================================================| 
  29.       *                                                                         | 
  30.       *-------------------------------------------------------------------------| 
  31.       * INITILIZE CALL STACK ENTRY                                              | 
  32.       *-------------------------------------------------------------------------| 
  33.       *                                                                         | 
  34.      C                   IF        SNDPM_C_BASE = *NULL                         | 
  35.      C                   ALLOC     SNDPM_C_STG   SNDPM_C_BASE                   | 
  36.       *                                                                         | 
  37.      C                   EVAL      %SUBST(SNDPM_C_STACK_ENTRY :                 | 
  38.      C                                    1 :                                   | 
  39.      C                                    SNDPM_C_STG) = '*'                    | 
  40.       *                                                                         | 
  41.       *-------------------------------------------------------------------------| 
  42.       * INITILIZE DATA                                                          | 
  43.       *-------------------------------------------------------------------------| 
  44.       *                                                                         | 
  45.      C                   If        sndPm_Max_Data_Length = 0                      
  46.      C                   EVAL      SNDPM_DTA_STG = SNDPM_DATA_LENGTH            | 
  47.       *                                                                         | 
  48.      C                   Else                                                     
  49.      C                   Eval      sndPm_Dta_Stg = sndPm_Max_Data_Length          
  50.      C                   EndIf                                                    
  51.       *                                                                         | 
  52.      C                   IF        SNDPM_DTA_STG > 0                            | 
  53.      C                   ALLOC     SNDPM_DTA_STG SNDPM_DTA_BASE                 | 
  54.       *                                                                         | 
  55.      C                   EVAL      %SUBST(SNDPM_DATA :                          | 
  56.      C                                    1 :                                   | 
  57.      C                                    SNDPM_DTA_STG) = *BLANKS              | 
  58.      C                   ENDIF                                                  | 
  59.      C                   ENDIF                                                  | 
  60.       *                                                                         | 
  61.       *=========================================================================| 
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css