Break Ledger Dimension ax 2012

static void Job29(Args _args)
{
    GeneralJournalAccountEntry generalJournalAccountEntry;
    List strlist=new List(Types::String);
    ListIterator    iterator;
    str value,v1,v2,v3;
    container       packedList;
    ;
     select generalJournalAccountEntry where generalJournalAccountEntry.RecId == 5637146331 ;
    value = generalJournalAccountEntry.LedgerAccount;
    strlist=strSplit(value,'-');
    iterator = new ListIterator(strlist);
    while(iterator.more())
    {
        packedList += iterator.value();
        iterator.next();

    }
    v1 = conPeek( packedList,1);
    v2 = conPeek( packedList,2);
    v3 = conPeek( packedList,3);

   //info(conPeek(packedList,1));
    info(strFmt("%1",value));
    info(v1);
     info(v2);
     info(v3);

}