Form VL_SAM151: Tier and Platform Aware Subroutines

LANSA

Form VL_SAM151: Tier and Platform Aware Subroutines
Name: VL_SAM151

Description: The following RDMLX form is used to demonstrate the evaluation of system variable *CENTRAL_DATETIME
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) HEIGHT(98) LEFT(328) TOP(242) VISUALSTYLE(#VS_NORM) WIDTH(364);
DEFINE_COM CLASS(#STD_TEXTS.Visual) NAME(#VISIBLE_DATETIME) CAPTION('Central Time') DISPLAYPOSITION(2) HEIGHT(19) LABELTYPE(Caption) LEFT(16) MARGINLEFT(65) PARENT(#COM_OWNER) READONLY(True) TABPOSITION(2) TABSTOP(False) TOP(16) VISUALSTYLE(#VS_NOREAD) WIDTH(209);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#BTN_UPDATE) BUTTONDEFAULT(True) CAPTION('Update Time') DISPLAYPOSITION(1) LEFT(248) PARENT(#COM_OWNER) TABPOSITION(1) TOP(13);
DEFINE_COM CLASS(#PRIM_STBR) NAME(#STBR_1) DISPLAYPOSITION(3) HEIGHT(22) LEFT(0) MESSAGEPOSITION(1) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(49) WIDTH(356);
;
* ==================================================;
* Standard closing of form ends all tier connections;
* ==================================================;
;
EVTROUTINE HANDLING(#Com_Owner.Closing);
Change #Std_Obj *End_All_Tiers;
EndRoutine;
;
* ====================================================;
* Handle update button by changing displayed;
* value to value of system variable *Central_DateTime.;
* The evaluation of *Central_DateTime is tier aware ;
* logic, but the programmer of this application ;
* does not have to know about this. ;
* ====================================================;
;
EVTROUTINE HANDLING(#BTN_UPDATE.Click);
Set #Visible_DateTime Value(*Central_DateTime) ;
ENDROUTINE;
;
END_COM;