#COMMAND bind_main_file // this should not be used anymore #IF (!0>1) #IFSAME !1 MAIN_FILE #IFDEF !2.RECNUM #PUSH !u #SET U$ !2.RECNUM set main_file to |CI!u #POP u$ #ELSE #ERROR DFERR_COMPILE If !2 is a file it is unopened #ENDIF #ELSE bind_main_file !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDIF #ENDCOMMAND #COMMAND bind_index #IF (!0>1) #IFSAME !1 BY set ordering to !2 #ELSE bind_index !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDIF #ENDCOMMAND #COMMAND Bind_Updating #IF (!0>1) #IFSAME !1 UPDATING SetDependents !2 !3 !4 !5 !6 !7 !8 !9 #ELSE Bind_Updating !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDIF #ENDCOMMAND #COMMAND SetDependents //<File>|<Server#> [ ... ] ...obsolete #IF (!0>0) #IFDEF !1 send Attach_Server !1 #ELSE #IFDEF !1.OBJ send attach_Server !1.OBJ #ELSE #IFDEF !1.RECNUM #PUSH !u #SET U$ !1.RECNUM send Add_Parent_File |CI!u #POP U$ #ELSE #ERROR DFERR_COMPILE If !1 is a file it is unopened #ENDIF #ENDIF #ENDIF SetDependents !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDCOMMAND
procedure Constrain