SJLennon
23 lines
1.2 KiB
Plaintext
23 lines
1.2 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 80 options(*NOPASS)
|
|
D Varying
|
|
//============================================================
|
|
D ClrMsgPgmQ pr N Clear PGM Msg Q
|
|
D pPgmMsgQ 10
|
|
|
|
//============================================================
|
|
D SndEscMsg pr Send ESC Msg
|
|
D piMsg 1024a Const Varying
|
|
|
|
//============================================================
|
|
D SndInfMsg pr Send INF Msg
|
|
D piMsg 1024a Const Varying
|
|
|
|
//=== End of Prototypes forSRV_MSG Routines ==================
|