|
ERROR VARIABLE
|
|
|
|
| SET ERROR VARIABLE errvar
|
|
|
|
|
| LABEL tryagain
|
| FILLIN vdbname USING 'Enter the database name: '
|
| CONNECT .vdbname
|
| IF errvar <> 0 THEN
|
| WRITE 'Database not found.'
|
| GOTO tryagain
|
| ENDIF
|
|
|
|
|
| FILLIN vdbname USING 'Enter the database name: '
|
| CONNECT .vdbname
|
| SET VARIABLE verr1 = .errvar
|
| IF verr1 <> 0 THEN
|
| RUN errhandl.cmd USING .verr1
|
| ENDIF
|
|
|