midrange.com code scratchpad
Name:
CQMHSNDPM
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
04/29/2010 02:43:38 pm
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1.      /* Out:  3/24/00  8:21 Ver:  0.  0 Level20 Duane J. Christen             */ 
  2.      /* Ref: DJC 0010   Duane Christen - Small scope projects/OT01 Performanc */ 
  3.      /* DJC:  INITIAL COPY BOOK CREATION                                      */ 
  4.       *=========================================================================|
  5.       * QMHSNDPM - SEND PROGRAM MESSAGE - EXECUTION CODE                        |
  6.       *=========================================================================|
  7.       *                                                                         |
  8.       * AUTHOR:          DUANE J. CHRISTEN                                      |
  9.       * CREATION DATE:   DECEMBER 29, 1999                                      |
  10.       *                                                                         |
  11.       *                                                                         |
  12.       *! FOR A DESCRIPTION ON HOW TO USE THIS COPYBOOK SEE:                     |
  13.       *!                                                                        |
  14.       *                                                                         |
  15.       *=========================================================================|
  16.       * QMHSNDPM - CALL FORMATS                                                 |
  17.       *=========================================================================|
  18.       *                                                                         |
  19.       *-------------------------------------------------------------------------|
  20.       * STANDARD PARAMETER GROUP                                                |
  21.       *-------------------------------------------------------------------------|
  22.       *                                                                         |
  23.      C                   CALLP     QMHSNDPM                                     |
  24.       *                                                                         |
  25.      C                             (SNDPM_MSG_ID :                              |
  26.      C                              SNDPM_QUAL_MSGF :                           |
  27.      C                              SNDPM_DATA :                                |
  28.      C                              SNDPM_DATA_LENGTH :                         |
  29.      C                              SNDPM_MSG_TYPE :                            |
  30.      C                              SNDPM_C_STACK_ENTRY :                       |
  31.      C                              SNDPM_C_STACK_COUNTER :                     |
  32.      C                              SNDPM_MSG_KEY :                             |
  33.      C                              USEC                                        |
  34.       *                                                                         |
  35.       *=========================================================================|
  36.       * QMHSNDPM - OPTIONAL PARAMETER FORMATS                                   |
  37.       *=========================================================================|
  38.       *                                                                         |
  39.       /IF DEFINED(QMHSNDPM_OPG1)                                                |
  40.       *-------------------------------------------------------------------------|
  41.       * STANDARD PARAMETER GROUP                                                |
  42.       *-------------------------------------------------------------------------|
  43.       *                                                                         |
  44.      C                             :SNDPM_LENGTH_C_STACK_ENTRY :                |
  45.      C                              SNDPM_C_STACK_ENTRY_QUAL :                  |
  46.      C                              SNDPM_DSP_P_MSG_SCREEN_WAIT                 |
  47.       /ENDIF                                                                    |
  48.       *                                                                         |
  49.       /IF DEFINED(QMHSNDPM_OPG2)                                                |
  50.       *-------------------------------------------------------------------------|
  51.       * STANDARD PARAMETER GROUP                                                |
  52.       *-------------------------------------------------------------------------|
  53.       *                                                                         |
  54.      C                             :SNDPM_C_STACK_ENTRY_DATA_TYPE:              |
  55.      C                              SNDPM_CCSID                                 |
  56.       /ENDIF                                                                    |
  57.       *                                                                         |
  58.      C                             )                                            |
  59.       *                                                                         |
  60.       *=========================================================================|
© 2004-2019 by midrange.com generated in 0.007s valid xhtml & css