Creating Customer Via Job In Dynamics Ax 2009

static void CustomerCreation(Args _args)
{
    CustTable                           CustTable;
    DirpartyTable                       DirpartyTable;
    DirPersonPartyDetail                DirPersonPartyDetail;
    DirPartyAddressRelationship         DirPartyAddressRelationship;
    Address                             Address;
    DirPartyAddressRelationshipMapping  DirPartyAddressRelationshipMapping;
    NumberSeq                           numberSeq;
    ;
    ttsbegin;
    CustTable.initValue();
    CustTable.AccountNum ="1000002";
    CustTable.CustGroup = "Test";
    CustTable.Name ="Ram Paul";
    CustTable.PartyId = NumberSeq::newGetNum(DirParameters::numRefDirPartyId()).num();
    CustTable.PartyType = DirPartyType::Person;
    CustTable.Phone = "9600341450";
    CustTable.Email = "RamPaul@rediffmail.com";
    CustTable.LanguageId = "en-us";
    if(CustTable.validateWrite())
    {
         CustTable.insert();
    }

    DirpartyTable.PartyId = CustTable.PartyId;
    DirpartyTable.FirstName = 'Ram';
    DirpartyTable.LastName  = 'Paul';
    DirpartyTable.insert();

    DirPersonPartyDetail.PartyId = DirpartyTable.PartyId;
    DirPersonPartyDetail.BBB_Spouse_Name = 'Nila';
    DirPersonPartyDetail.insert();

    dirparty::updatePartyFromCommonInsert(CustTable.PartyId, CustTable);

    select DirpartyTable where DirpartyTable.PartyId == CustTable.PartyId;

    Address.clear();
    Address.initValue();
    Address.AddrTableId = DirpartyTable.TableId;
    Address.AddrRecId = DirpartyTable.RecId;
 
    Address.Street = 'Knowledge Village';
    Address.City = 'Lawrenceburg';
    Address.CountryRegionId = 'US';
    Address.ZipCode = '47025';

    Address.CountryRegionId = 'US';
    Address.State = 'IN';
    Address.County = 'DEARBORN' ;
    Address.Address = Address::formatAddress(Address.City,Address.ZipCode,Address.Street,Address.CountryRegionId,Address.State,Address.County);
    Address.insert();
    ttscommit;

}