C *PSSR BEGSR * C IF ERROR = 102 C EVAL DIVISEUR = 1 C MOVE '*GETIN' ReturnPt 6 C ELSE C MOVE '*CANCL' ReturnPt C ENDIF * C ENDSR ReturnPt