HcmPositionHirarchy under a position in AX 2012 /D365

Hi,

static void AlfPositionHirarchyDown(Args _args)
{
    HcmWorker                   HcmWorker;
    HcmPositionWorkerAssignment HcmPositionWorkerAssignment;
    HcmPositionHierarchy        HcmPositionHierarchyMan,HcmPositionHierarchy;
    HcmPositionRecId            positionRecId;
 
    positionRecId = HcmPosition::findByPosition(HcmWorker::findByPersonnelNumber('701027').primaryPositionId()).RecId;

    while select HcmPositionHierarchy where HcmPositionHierarchy.ParentPosition == positionRecId
    {
        print HcmWorker::find(HcmPosition::getWorker(HcmPositionHierarchy.Position)).name();
    }
    pause;
}

Regards,