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