Macro: bind_main_file

Module location: BaseData_Set.pkg line 527 (view source)

this should not be used anymore

  #IF (!0>1)
    #IFSAME !1 MAIN_FILE
      #ERROR DFERR_COMP_OBSOLETE_UNSUPPORTED_FEATURE "Main_file object syntax is no longer supported. Use Set Main_file instead." 
      //#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