[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]