Ledger Journal marked settlement transactions x++

LedgerJournalTrans ledgerJournalTrans
SpecTrans        specTrans;
VendTransOpen    vendTransOpen;
VendTrans        vendTrans

select first only ledgerJournalTrans where ledgerJournalTrans.RecId == _recId; //pass line recId

while select specTrans
join vendTransOpen
join vendTrans
where specTrans.SpecCompany == ledgerJournalTrans.DataAreaId
&& specTrans.SpecTableId    == ledgerJournalTrans.TableId
&& specTrans.SpecRecId      == ledgerJournalTrans.RecId
&& specTrans.RefCompany     == vendTransOpen.DataAreaId
&& specTrans.RefTableId     == vendTransOpen.TableId
&& specTrans.RefRecId       == vendTransOpen.RecId
&& vendTransOpen.RefRecId   == vendTrans.RecId
&& vendTransOpen.AccountNum == vendTrans.AccountNum
{
info(strfmt("%1--%2--%3", ledgerJournalTrans.Voucher, vendTrans.Invoice, vendTransOpen.AmountCur));
}