connect example

The following example uses the UNIX format to connect to the server SYBASE.

exec sql begin declare section end-exec

01      USER       PIC X(16)   VALUE "myname"

01      PASSWD     PIC X(16)   VALUE "abcdefg".

01      SERV-NAME  PIC X(16).

01      MY-SERVER  PIC X(512).

exec sql end declare section end-exec.

    MOVE "SYBASE" TO SERV-NAME.

exec sql connect :USER identified by :PASSWD

     using :SERV-NAME end-exec.