#COMMAND API_REFRESH #IF (!0>0) #CHECK !1 _LG# MOVE 0 to INDEX_NUMBER VARIABLE_FILE_COMMAND $CC !1 |CI2 #IFCLASS !1 SNDIECWV [FINDERR] ERROR 25 !1 #ELSE [FINDERR] ERROR 25 |CS"!1" #ENDIF API_REFRESH !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDCOMMAND
#IF (!0=0) !A [] $0C9 // REREAD ALL #ELSE !A [] $0C7 // LOCK [MULTIUSER] API_REFRESH !1 !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF