added LSL2 stored procedures
This commit is contained in:
21
LSL2/STPROC/REMOVE_MFS.txt
Normal file
21
LSL2/STPROC/REMOVE_MFS.txt
Normal file
@ -0,0 +1,21 @@
|
||||
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
|
||||
|
Reference in New Issue
Block a user