31 lines
490 B
Plaintext
31 lines
490 B
Plaintext
COMPILE ROUTINE Install_WM_MFS( DUMMY )
|
|
ROWDEF( CHARSTR )
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, ErrMsg, Set_Status, Set_MFS
|
|
DECLARE Function WhoseLock
|
|
|
|
EQU CRLF TO \0D0A\
|
|
DEBUG
|
|
Set_Status(0)
|
|
|
|
Set_MFS('WM_OUT','WM_MFS*LSL2',5)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
CONVERT @FM TO ' / ' IN errCode
|
|
Send_Dyn(errCode)
|
|
END
|
|
|
|
Set_Status(0)
|
|
|
|
Set_MFS('WM_OUT','WM_MFS*LSL2',3)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
CONVERT @FM TO ' / ' IN errCode
|
|
Send_Dyn(errCode)
|
|
END
|
|
|
|
|
|
|
|
RETURN
|
|
|