Example

This example defines the workstation address and title variables, and invokes the WSCON service to initiate a GUI display.

DECLARE
   GUI_TITLE CHAR(64),
   IP_ADDRESS CHAR(64),
   BLANKS   CHAR(8);

IP_ADDRESS = '32.225.17.228';
CALL ISPLINK('VDEFINE ','MYADDR  ',IP_ADDRESS,'CHAR',64);

GUI_TITLE = 'THIS IS MY TITLE FOR MY GUI SESSION';
CALL ISPLINK('VDEFINE ','MYTITLE ',GUI_TITLE,'CHAR',64);

CALL ISPLINK('WSCON   ',
       'MYADDR',          /* IP  */
       BLANKS,            /* LU  */
       BLANKS,            /* FI  */
       'MYTITLE',         /* TITLE  */
       'FIX',             /* FRAME  */
       'STD',             /* BACKGROUND COLOR  */
       37,                /* CODEPAGE  */
       697,               /* CHARACTER SET  */
       BLANKS,            /* NOGUIDSP  */
       'ONERROR');        /* PANEL  */