John,

Your code should be:

Code:
Constraint_Set 1Constrain ACCOUNTS.ACCOUNT eq "3310"
Constrain ACCOUNTS.STATE eq ""
Constraint_Set 2
Constrain LEDGER RELATES to ACCOUNTS


Constraint_Set 1
Constrained_Find First ACCOUNTS by 1
While (Found)
    // Find Ledger In Records
    Constraint_Set 2
    Constrained_Find First LEDGER by 11
    While (Found)
        // fill records
        Move ACCOUNTS.ACCOUNT to vData[iRow][0] // Name: Account, Length: 4, Datatype: String
        Move ACCOUNTS.STATE to vData[iRow][1] // Name: State, Length: 2, Datatype: String
        Move ACCOUNTS.DESC to vData[iRow][2] // Name: Desc, Length: 30, Datatype: String
        Move ACCOUNTS.ACCOUNT_SUB to vData[iRow][3] // Name: Acct_Type, Length: 1, Datatype: String
        Move ACCOUNTS.ACCOUNT_SUB to vData[iRow][4] // Name: Acct_Sub, Length: 1, Datatype: String
        Move ACCOUNTS.YR_BAL to vData[iRow][5] // Name: Yr_Bal, Length: 12, Precision: 2, Datatype: Number
        Move ACCOUNTS.YR_TRANS to vData[iRow][6] // Name: Yr_Trans, Length: 12, Precision: 2, Datatype: Number
        Move ACCOUNTS.MN_BAL to vData[iRow][7] // Name: Mn_Bal, Length: 12, Precision: 2, Datatype: Number
        Move ACCOUNTS.MN_TRANS to vData[iRow][8] // Name: Mn_Trans, Length: 12, Precision: 2, Datatype: Number
        Move LEDGER.DESC to vData[iRow][9] // Name: Trans_Desc, Length: 150, Datatype: String
        Move LEDGER.AMOUNT_IN to vData[iRow][10] // Name: Trans_Amount, Length: 12, Precision: 2, Datatype: 
        Move LEDGER.TYPE_RECORD to vData[iRow][11] // Name: Type_Record, Length: 1, Datatype: String
        Move LEDGER.item to vData[iRow][12] // Name: Item, Length: 8, Precision: 1, Datatype: Number
        Increment iRow
        Constrained_Find Next
    Loop
    
    Constraint_Set 1
    Constrained_Find Next
Loop