Purpose
Informs the remote program that CA ADS detected an application-level error (such as DB-REC-NOT-FOUND).
Syntax
►►──── SEND-ERROR ───── . ────────────────────────────────────────────────────►◄
Usage
When you issue SEND-ERROR, the remote program does not automatically send the data again. The remote program must detect the SEND-ERROR and respond appropriately.
Example
If the record is not found, notify the client.
IF DB-REC-NOT-FOUND THEN DO.
SEND-ERROR.
IF APPCCODE LT 0 THEN CALL SR-ABEND.
DEALLOCATE.
LEAVE ADS.
END.
|
Copyright © 2014 CA.
All rights reserved.
|
|