PRSRTLPR (1037)    ROUTINE (9.8)