/* Out: 3/24/00 8:21 Ver: 0. 0 Level20 Duane J. Christen */ /* Ref: DJC 0010 Duane Christen - Small scope projects/OT01 Performanc */ /* DJC: INITIAL COPYBOOK CREATION */ *========================================================================= /IF DEFINED(DQMHSNDPM) /EOF /ENDIF * /DEFINE DQMHSNDPM * *========================================================================= * QMHSNDPM - SEND PROGRAM MESSAGE FROM QSYSINC/QRPGLESRC,QMHSNDPM *========================================================================= * * AUTHOR: DUANE J. CHRISTEN * CREATION DATE: DECEMBER 29, 1999 * * *! FOR A DESCRIPTION ON HOW TO USE THIS COPYBOOK SEE: *! * *{ THIS HEADER IS DERIVED FROM QSYSINC/QRPGLESRC,QMHSNDPM * *========================================================================= * PROCEDURE PROTOTYPES *========================================================================= * *------------------------------------------------------------------------- * STANDARD PARAMETER GROUP *------------------------------------------------------------------------- * D QMHSNDPM PR EXTPGM('QMHSNDPM') D 7A MESSAGE ID D 20A QUAL MESSAGE FILE D 32767A OPTIONS(*VARSIZE) DATA D 10I 0 LENGTH OF DATA D 10A MESSAGE TYPE D 32767A OPTIONS(*VARSIZE) CALL STACK ENTRY D 10I 0 CALL STACK COUNTE D 4A MESSAGE KEY D 32767A OPTIONS(*VARSIZE) ERROR CODE * /IF DEFINED(QMHSNDPM_OPG1) *------------------------------------------------------------------------- * OPTIONAL PARAMETER GROUP 1 *------------------------------------------------------------------------- * D 10I 0 LENGTH OF CALL D STACK ENTRY D 20A CALL STACK ENGRY D QUALIFICATION D 10I 0 DISPLAY PROGRAM D MESSAGE SCREEN D WAIT TIME /ENDIF * /IF DEFINED(QMHSNDPM_OPG2) *------------------------------------------------------------------------- * OPTIONAL PARAMETER GROUP 2 *------------------------------------------------------------------------- * D 10A CALL STACK ENTRY D DATA TYPE D 10I 0 CODED CHARACTER D SET IDENTIFIER /ENDIF * *========================================================================= * DATA DEFINITIONS *========================================================================= * D SNDPM_DTA_STG... D S 10I 0 INZ(0) D SNDPM_DTA_BASE... D S * INZ(*NULL) D SNDPM_C_STG... D S 10I 0 INZ(10) D SNDPM_C_BASE... D S * INZ(*NULL) * *------------------------------------------------------------------------- * STANDARD PARAMETERS *------------------------------------------------------------------------- * D SNDPM_MSG_ID... D S 7A D SNDPM_QUAL_MSGF... D DS 20 D SNDPM_MSGF_FILE... D 10A INZ('QUSERMSG') D SNDPM_MSGF_LIB... D 10A INZ('*LIBL') D SNDPM_DATA... D S 32767A BASED(SNDPM_DTA_BASE) D SNDPM_DATA_LENGTH... D S 10I 0 INZ(100) D SNDPM_MAX_DATA_LENGTH... D S 10I 0 INZ(0) D SNDPM_MSG_TYPE... D S 10A INZ('*INFO') D SNDPM_C_STACK_ENTRY... D S 32767A BASED(SNDPM_C_BASE) D SNDPM_C_STACK_COUNTER... D S 10I 0 INZ(0) D SNDPM_MSG_KEY... D S 4A * /IF DEFINED(QMHSNDPM_OPG1) *------------------------------------------------------------------------- * SEND PROGRAM MESSAGE OPTIONAL PARAMETER GROUP 1 *------------------------------------------------------------------------- * D SNDPM_LENGTH_C_STACK_ENTRY... LENGTH OF CALL D S 10I 0 STACK ENTRY D SNDPM_C_STACK_ENTRY_QUAL... CALL STACK ENTRY D DS 20 QUALIFICATION D SNDPM_C_STACK_ENTRY_Module... CALL STACK ENTRY D 10A Inz('*NONE') Module D SNDPM_C_STACK_ENTRY_Program... CALL STACK ENTRY D 10A Inz('*NONE') Program D SNDPM_DSP_P_MSG_SCREEN_WAIT... DISPLAY PROGRAM D S 10I 0 MESSAGE SCREEN D WAIT TIME /ENDIF * /IF DEFINED(QMHSNDPM_OPG2) *------------------------------------------------------------------------- * SEND PROGRAM MESSAGE OPTIONAL PARAMETER GROUP 2 *------------------------------------------------------------------------- * D SNDPM_C_STACK_ENTRY_DATA_TYPE... CALL STACK ENTRY D S 10A DATA TYPE D SNDPM_CCSID... CODED CHARACTER D S 10I 0 SET IDENTIFIER /ENDIF * *=========================================================================