Worker and his financial dimension relation in AX

Hi,

static void ListOutAllWorkerWithDim(Args _args)
{
    Counter                                               i;
    HcmWorker                           hcmWorker;
    HcmEmployment                       hcmEmployment;
    while select hcmWorker   //=   HcmWorker::findByPersonnelNumber('000173');
    {
     hcmEmployment = hcmEmployment::find(hcmWorker.recid);//.DefaultDimension != 0
    if(hcmEmployment.DefaultDimension)
        info (int642str(hcmEmployment.DefaultDimension) +'--'+  hcmWorker.PersonnelNumber);
    }
    //hcmEmployment   =   HcmEmployment::find(hcmWorker.recid);
}

Regards,