Form VL_SAM018: Display Server Job or Process Details

LANSA

previous page next page
Form VL_SAM018: Display Server Job or Process Details
Name: VL_SAM018

Description: The following RDMLX form demonstrates the use of RDML function VSAM017
Please note that this form is a demonstration harness only. Refer to VSAM017 for the actual general purpose logic used to extract server job details.

FUNCTION OPTIONS(*DIRECT);
BEGIN_COM BORDERICONS(Maximize+Minimize+SystemMenu) HEIGHT(288) LEFT(614) TOP(165) WIDTH(366);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Client Job Details') DISPLAYPOSITION(3) HEIGHT(113) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(5) WIDTH(177);
DEFINE_COM CLASS(#JOBNAME.Visual) NAME(#JOBNAME) CAPTION(Name) DISPLAYPOSITION(1) HEIGHT(19) LABELTYPE(Caption) LEFT(16) MARGINLEFT(50) PARENT(#GPBX_1) READONLY(True) TABPOSITION(1) TABSTOP(False) TOP(16) WIDTH(145);
DEFINE_COM CLASS(#JOBNBR.Visual) NAME(#JOBNBR) CAPTION(Number) DISPLAYPOSITION(2) HEIGHT(19) LABELTYPE(Caption) LEFT(16) MARGINLEFT(50) PARENT(#GPBX_1) READONLY(True) TABPOSITION(2) TABSTOP(False) TOP(47) WIDTH(145);
DEFINE_COM CLASS(#USER.Visual) NAME(#USER) CAPTION(User) DISPLAYPOSITION(3) HEIGHT(19) LABELTYPE(Caption) LEFT(16) MARGINLEFT(50) PARENT(#GPBX_1) READONLY(True) TABPOSITION(3) TABSTOP(False) TOP(76) WIDTH(145);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) CAPTION('Server Job Details') DISPLAYPOSITION(2) HEIGHT(113) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(124) VISIBLE(False) WIDTH(177);
DEFINE_COM CLASS(#JOBNAME.Visual) NAME(#SJOBNAME) CAPTION(Name) DISPLAYPOSITION(1) HEIGHT(19) LABELTYPE(Caption) LEFT(16) MARGINLEFT(50) PARENT(#GPBX_2) READONLY(True) TABPOSITION(1) TABSTOP(False) TOP(16) WIDTH(145);
DEFINE_COM CLASS(#JOBNBR.Visual) NAME(#SJOBNBR) CAPTION(Number) DISPLAYPOSITION(2) HEIGHT(19) LABELTYPE(Caption) LEFT(16) MARGINLEFT(50) PARENT(#GPBX_2) READONLY(True) TABPOSITION(2) TABSTOP(False) TOP(47) WIDTH(145);
DEFINE_COM CLASS(#USER.Visual) NAME(#SUSER) CAPTION(User) DISPLAYPOSITION(3) HEIGHT(19) LABELTYPE(Caption) LEFT(16) MARGINLEFT(50) PARENT(#GPBX_2) READONLY(True) TABPOSITION(3) TABSTOP(False) TOP(76) WIDTH(145);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PB_CONN) CAPTION('Connect to Server') DISPLAYPOSITION(5) HEIGHT(26) LEFT(195) PARENT(#COM_OWNER) TABPOSITION(1) WIDTH(156);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PB_DISC) CAPTION('Disconnect from Server') DISPLAYPOSITION(4) ENABLED(False) LEFT(196) PARENT(#COM_OWNER) TABPOSITION(3) TOP(40) WIDTH(155);
DEFINE_COM CLASS(#VL_SAM003) NAME(#VL_SAM003) BORDERICONS(Maximize+Minimize+SystemMenu) CAPTION('Connect to Server') FORMPOSITION(ScreenCenter) HEIGHT(364) LEFT(324) TOP(152) WIDTH(349);
DEFINE_COM CLASS(#PRIM_STBR) NAME(#STBR_1) DISPLAYPOSITION(1) HEIGHT(23) LEFT(0) MESSAGEPOSITION(1) PARENT(#COM_OWNER) TABPOSITION(5) TOP(238) WIDTH(358);

EVTROUTINE HANDLING(#VL_SAM003.uConnectionCreated);
call process(*direct) function(vsam017) exit_used(*next) menu_used(*next);
set #gpbx_2 Visible(True);
set #pb_conn enabled(false);
set #pb_disc enabled(true);
invoke #pb_disc.SetFocus;
ENDROUTINE;

EVTROUTINE HANDLING(#VL_SAM003.uConnectionDestroyed);
set #gpbx_2 Visible(False);
set #pb_conn enabled(True);
set #pb_disc enabled(False);
invoke #pb_conn.SetFocus;
ENDROUTINE;

EVTROUTINE HANDLING(#PB_CONN.Click);
invoke #VL_SAM003.uConnect;
ENDROUTINE;

EVTROUTINE HANDLING(#PB_DISC.Click);
invoke #VL_SAM003.uDisConnect;
ENDROUTINE;

END_COM ;

previous page start next page