PRCFFUD1 (596)    ROUTINE (9.8)