HcmPositionHirarchy To whom position needs to report in upper ranking in AX 2012 / D365

Hi,

static void AlfPositionHirarchyUP(Args _args)
{
HcmWorker                   HcmWorker;
HcmPositionWorkerAssignment HcmPositionWorkerAssignment;
HcmPositionHierarchy        HcmPositionHierarchy;
HcmPositionRecId            positionRecId;

positionRecId = HcmPosition::findByPosition(HcmWorker::findByPersonnelNumber(‘701027’)
.primaryPositionId()).RecId;

while(positionRecId>0)
{
select * from HcmPositionHierarchy
where HcmPositionHierarchy.Position ==positionRecId;

positionRecId=HcmPositionHierarchy.ParentPosition ;
if(HcmPositionHierarchy.ParentPosition)
{
print HcmWorker::find(HcmPosition::getReportsToWorker(HcmPositionHierarchy.Position))
.name();
}
}
pause;
}

Regards,