open-insight/LSL2/STPROC/INSTALL_WM_MFS.txt
Infineon\StieberD 7762b129af pre cutover push
2024-09-04 20:33:41 -07:00

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