35 lines
1.8 KiB
Plaintext
35 lines
1.8 KiB
Plaintext
|
|
//=== Prototypes for SRV_MSG routines ========================
|
|
//============================================================
|
|
D SndMsgPgmQ pr Send Msg to PGM Q
|
|
D pMsgQ 10
|
|
D pMsgid 7
|
|
D pMsgFile 10
|
|
D pMsgDta 512 options(*NOPASS)
|
|
D Varying
|
|
//============================================================
|
|
D ClrMsgPgmQ pr N Clear PGM Msg Q
|
|
D pPgmMsgQ 10
|
|
|
|
//============================================================
|
|
D SndEscMsg pr Send ESC Msg
|
|
D piMsg 512a Const Varying
|
|
D pStackEnt 10i 0 Const options(*nopass)
|
|
|
|
//============================================================
|
|
D SndInfMsg pr Send INF Msg
|
|
D piMsg 512a Const Varying
|
|
|
|
//============================================================
|
|
D JobLogMsg Pr
|
|
D piMsg 512a Value Varying Msg to job log
|
|
|
|
//============================================================
|
|
D Show pr extpgm('SHOW') Show popup msg
|
|
D piPext 8192a Const Varying
|
|
D piMsgId 7a Const options(*NOPASS)
|
|
d piMsgFile 21a Const options(*NOPASS)
|
|
|
|
|
|
//=== End of Prototypes forSRV_MSG Routines ==================
|