.R PEPB *INITIALIZE CUSTOMER-SUPPORTED-10-V703 *EXIT .R PEPB *SIGNAL-SUCCESS CUSTOMER-SUPPORTED-10-V703 *EXIT .GOTO END %ERR:: .GOTO ERROR %CERR:: .GOTO ERROR %TERR:: ERROR:: .R PEPB *SIGNAL-FAILURE CUSTOMER-SUPPORTED-10-V703 *EXIT . END:: %FIN::