.R PEPB *INITIALIZE MPE-10-V703 *EXIT .DELETE PAT:CPNSER.MAC .RUN ASL:UPDATE *@PAT:MPE703.SUP . .R PEPB *SIGNAL-SUCCESS MPE-10-V703 *EXIT .GOTO END %ERR:: .GOTO ERROR %CERR:: .GOTO ERROR %TERR:: ERROR:: .R PEPB *SIGNAL-FAILURE MPE-10-V703 *EXIT . END:: %FIN::