Macro: Report_Breaks

Module location: cReport.pkg line 1391 (view source)

Set the report Breaks Format: Report_Breaks Brk_1 Brk_2 ... Brk_n

  #PUSH !i
  #SET I$ 0 // set I$ to the number of breakpoint arguments
  // This returns the outermost break level...if 0
  // then there was no break at all
  Function Test_BreakPoints Returns Integer
    Integer Arr# CBreak RCount
    Move oBreakArray to Arr#  // do this to optimize
    Move 0 to CBreak                            // parsing speed
    Get piRecordCount to RCount
    // Create a "Get Test_One_BreakPoint" command for each breakpoint
    Multi$ Setup$Breaks !1 !2 !3 !4 !5 !6 !7 !8 !9
    Function_Return CBreak
  End_Function

  Procedure Breaks_Set
    Set piNumberBreaks to !i
  End_Procedure

  #POP I$
Module location: Report.pkg line 1432 (view source)

Set the report Breaks Format: Report_Breaks Brk_1 Brk_2 ... Brk_n

  #PUSH !i
  #SET I$ 0 // set I$ to the number of breakpoint arguments
  // This returns the outermost break level...if 0
  // then there was no break at all
  Function Test_BreakPoints Returns Integer
    Integer Arr# CBreak RCount
    Move (Break_Array(self)) to Arr#  // do this to optimize
    Move 0 to CBreak                            // parsing speed
    Get Rec_Count to RCount
    // Create a "Get Test_One_BreakPoint" command for each breakpoint
    Multi$ Setup$Breaks !1 !2 !3 !4 !5 !6 !7 !8 !9
    Function_Return CBreak
  End_Function

  Procedure Breaks_Set
    Set Num_Breaks to !i
  End_Procedure

  #POP I$