22 lines
347 B
Plaintext
22 lines
347 B
Plaintext
COMPILE ROUTINE Remove_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('PROD_SPEC','DATA_MODS_MFS',5)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
CONVERT @FM TO ' / ' IN errCode
|
|
Send_Dyn(errCode)
|
|
END
|
|
|
|
|
|
|
|
RETURN
|
|
|