Set a reports Main_File: Format is: REPORT_MAIN_FILE FileName obsolete
  #IFDEF !1.File_Number
    Set Main_File to !1.File_Number
  #ELSE
    #ERROR DFERR_COMPILE If !1 is a file it is unopened
  #ENDIF
Set a reports Main_File: Format is: REPORT_MAIN_FILE FileName obsolete
  #IFDEF !1.File_Number
    Set Main_File to !1.File_Number
  #ELSE
    #ERROR DFERR_COMPILE If !1 is a file it is unopened
  #ENDIF