Error-Status

[shivaprasath143]

can an1 explore abt ERROR-STATUS ..?

 

[mosfin]

if you read ABL Reference, you should understand how to use it
anyway here is an example (taken from the guide):

[LEFT][SIZE=1][FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter]CONNECT "db-xyz" NO-ERROR.[/FONT][/SIZE][/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter]RUN chk-connect [B]NO-ERROR[/B].[/FONT][/SIZE][/FONT][/SIZE][SIZE=1][FONT=LucidaSansTypewriter]
[SIZE=1][FONT=LucidaSansTypewriter]IF [B]ERROR-STATUS:ERROR [/B][/FONT][/SIZE][SIZE=1][FONT=LucidaSansTypewriter]THEN MESSAGE "Run statement failed.".[/FONT][/SIZE][/LEFT]
 
[LEFT][SIZE=1][FONT=LucidaSansTypewriter]PROCEDURE chk-connect.[/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter]  DEFINE VARIABLE connect-ok AS LOGICAL INITIAL TRUE NO-UNDO.[/FONT][/SIZE]
[/FONT][/SIZE][FONT=LucidaSansTypewriter-Bd][SIZE=1][FONT=LucidaSansTypewriter-Bd][SIZE=1]  IF[B] ERROR-STATUS:ERROR[/B][/SIZE][/FONT][/SIZE][/FONT]
[FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter][SIZE=1]  THEN DO:[/SIZE][/FONT][/SIZE][/FONT]
[SIZE=1][FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter]    MESSAGE "Connect failed".[/FONT][/SIZE][/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter]    connect-ok = FALSE [B]NO-ERROR[/B].[/FONT][/SIZE][/FONT][/SIZE]
[SIZE=1]    [FONT=LucidaSansTypewriter][FONT=LucidaSansTypewriter]IF [/FONT][/FONT][/SIZE][B][FONT=LucidaSansTypewriter-Bd][SIZE=1][FONT=LucidaSansTypewriter-Bd][SIZE=1]ERROR-STATUS:ERROR[/SIZE][/FONT][/SIZE][/FONT][/B] [FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter][SIZE=1]THEN MESSAGE "Assignment failed".[/SIZE][/FONT][/SIZE][/FONT]
[SIZE=1][FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter]  END.[/FONT][/SIZE]

[SIZE=1][FONT=LucidaSansTypewriter]  IF connect-ok[/FONT][/SIZE]
[LEFT][SIZE=1][FONT=LucidaSansTypewriter]  THEN RETURN "OK".[/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter]  ELSE RETURN "FAILED".[/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter]END PROCEDURE.[/FONT][/SIZE][/LEFT]
[/LEFT]
[/FONT][/SIZE]