Form VL_SAM139 : Submit Interactive/Batch and Tier Aware Report
Name: VL_SAM139
Description: The following RDMLX form is used to execute the interactive/batch and tier aware report function VSAM138.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) HEIGHT(215) LAYOUTMANAGER(#ATLM_1) LEFT(230) TOP(190) VISUALSTYLE(#VS_NORM) WIDTH(515);
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1);
DEFINE_COM CLASS(#PRIM_STBR) NAME(#STBR_1) DISPLAYPOSITION(1) HEIGHT(22) LEFT(0) MESSAGEPOSITION(1) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(166) WIDTH(507);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Bottom) MANAGE(#STBR_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Employee List') DISPLAYPOSITION(2) HEIGHT(166) LAYOUTMANAGER(#ATLM_2) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(0) WIDTH(281);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_2) ATTACHMENT(Left) MANAGE(#GPBX_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_2);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) DISPLAYPOSITION(3) HEIGHT(166) LEFT(281) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(0) WIDTH(226);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_3) ATTACHMENT(Center) MANAGE(#GPBX_2) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#DEP_LIST) DISPLAYPOSITION(1) HEIGHT(149) LEFT(4) PARENT(#GPBX_1) SELECTIONSTYLE(Single) TABPOSITION(1) TOP(13) WIDTH(273);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_4) ATTACHMENT(Center) MANAGE(#DEP_LIST) PARENT(#ATLM_2);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#BTN_SUBMIT) CAPTION('Submit Print Request to Queue') DISPLAYPOSITION(2) LEFT(32) PARENT(#GPBX_2) TABPOSITION(1) TOP(24) WIDTH(161);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#BTN_PRINT) CAPTION('Print-While-U-Wait') DISPLAYPOSITION(1) LEFT(32) PARENT(#GPBX_2) TABPOSITION(2) TOP(56) WIDTH(161);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) CAPTION('Details to be Printed') DISPLAYPOSITION(3) HEIGHT(73) LEFT(8) PARENT(#GPBX_2) TABPOSITION(3) TABSTOP(False) TOP(88) WIDTH(209);
DEFINE_COM CLASS(#DEPTMENT.Visual) NAME(#DEPTMENT) CAPTION('Dept') DISPLAYPOSITION(1) HEIGHT(19) LABELTYPE(Caption) LEFT(8) MARGINLEFT(45) PARENT(#GPBX_3) TABPOSITION(1) TOP(19) VISUALSTYLE(#VS_NOREAD) WIDTH(89);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) CAPTION('Code') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#DEP_LIST) SOURCE(#DEPTMENT) WIDTH(20);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#DEP_LIST) SOURCE(#DEPTDESC) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#STD_TEXTS.Visual) NAME(#MSVSAM138) CAPTION('Message') DISPLAYPOSITION(2) HEIGHT(19) LABELTYPE(Caption) LEFT(8) MARGINLEFT(45) PARENT(#GPBX_3) TABPOSITION(2) TOP(40) WIDTH(193);
DEFINE FIELD(#OPVSAM138) TYPE(*CHAR) LENGTH(10);
;
* =====================================================;
* Handle Form Initialization (note reference to the data tier) ;
* =====================================================;
;
EVTROUTINE Handling(#Com_Owner.Initialize);
Change #Std_Obj *Data_Tier;
Select (#Deptment #DeptDesc) From_File(DepTab);
Add_Entry #Dep_List;
EndSelect;
ENDROUTINE;
;
* =====================================================;
* Handle Form closing by ending the connections to all tiers ;
* =====================================================;
;
EVTROUTINE handling(#Com_Owner.Closing);
Change #Std_Obj *End_All_Tiers;
ENDROUTINE;
;
* =====================================================;
* Handle Print-While-U-Wait request ;
* =====================================================;
;
EVTROUTINE HANDLING(#BTN_Print.Click);
Change #OpVSAM138 PRINT;
Exchange (#Deptment #OpVSAM138 #MsVSAM138);
Call Process(*direct) function(VSAM138) exit_used(*next) menu_used(*next);
ENDROUTINE;
;
* =====================================================;
* Handle Submit Batch Job Request ;
* =====================================================;
;
EVTROUTINE HANDLING(#BTN_SUBMIT.Click);
Change #OpVSAM138 SUBMIT;
Exchange (#Deptment #OpVSAM138 #MsVSAM138);
Call Process(*direct) function(VSAM138) exit_used(*next) menu_used(*next);
ENDROUTINE;
;
END_COM;
Name: VL_SAM139
Description: The following RDMLX form is used to execute the interactive/batch and tier aware report function VSAM138.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM FORMPOSITION(ScreenCenter) HEIGHT(215) LAYOUTMANAGER(#ATLM_1) LEFT(230) TOP(190) VISUALSTYLE(#VS_NORM) WIDTH(515);
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1);
DEFINE_COM CLASS(#PRIM_STBR) NAME(#STBR_1) DISPLAYPOSITION(1) HEIGHT(22) LEFT(0) MESSAGEPOSITION(1) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(166) WIDTH(507);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Bottom) MANAGE(#STBR_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Employee List') DISPLAYPOSITION(2) HEIGHT(166) LAYOUTMANAGER(#ATLM_2) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(0) WIDTH(281);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_2) ATTACHMENT(Left) MANAGE(#GPBX_1) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_2);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) DISPLAYPOSITION(3) HEIGHT(166) LEFT(281) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(0) WIDTH(226);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_3) ATTACHMENT(Center) MANAGE(#GPBX_2) PARENT(#ATLM_1);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#DEP_LIST) DISPLAYPOSITION(1) HEIGHT(149) LEFT(4) PARENT(#GPBX_1) SELECTIONSTYLE(Single) TABPOSITION(1) TOP(13) WIDTH(273);
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_4) ATTACHMENT(Center) MANAGE(#DEP_LIST) PARENT(#ATLM_2);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#BTN_SUBMIT) CAPTION('Submit Print Request to Queue') DISPLAYPOSITION(2) LEFT(32) PARENT(#GPBX_2) TABPOSITION(1) TOP(24) WIDTH(161);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#BTN_PRINT) CAPTION('Print-While-U-Wait') DISPLAYPOSITION(1) LEFT(32) PARENT(#GPBX_2) TABPOSITION(2) TOP(56) WIDTH(161);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) CAPTION('Details to be Printed') DISPLAYPOSITION(3) HEIGHT(73) LEFT(8) PARENT(#GPBX_2) TABPOSITION(3) TABSTOP(False) TOP(88) WIDTH(209);
DEFINE_COM CLASS(#DEPTMENT.Visual) NAME(#DEPTMENT) CAPTION('Dept') DISPLAYPOSITION(1) HEIGHT(19) LABELTYPE(Caption) LEFT(8) MARGINLEFT(45) PARENT(#GPBX_3) TABPOSITION(1) TOP(19) VISUALSTYLE(#VS_NOREAD) WIDTH(89);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) CAPTION('Code') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#DEP_LIST) SOURCE(#DEPTMENT) WIDTH(20);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#DEP_LIST) SOURCE(#DEPTDESC) WIDTH(20) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#STD_TEXTS.Visual) NAME(#MSVSAM138) CAPTION('Message') DISPLAYPOSITION(2) HEIGHT(19) LABELTYPE(Caption) LEFT(8) MARGINLEFT(45) PARENT(#GPBX_3) TABPOSITION(2) TOP(40) WIDTH(193);
DEFINE FIELD(#OPVSAM138) TYPE(*CHAR) LENGTH(10);
;
* =====================================================;
* Handle Form Initialization (note reference to the data tier) ;
* =====================================================;
;
EVTROUTINE Handling(#Com_Owner.Initialize);
Change #Std_Obj *Data_Tier;
Select (#Deptment #DeptDesc) From_File(DepTab);
Add_Entry #Dep_List;
EndSelect;
ENDROUTINE;
;
* =====================================================;
* Handle Form closing by ending the connections to all tiers ;
* =====================================================;
;
EVTROUTINE handling(#Com_Owner.Closing);
Change #Std_Obj *End_All_Tiers;
ENDROUTINE;
;
* =====================================================;
* Handle Print-While-U-Wait request ;
* =====================================================;
;
EVTROUTINE HANDLING(#BTN_Print.Click);
Change #OpVSAM138 PRINT;
Exchange (#Deptment #OpVSAM138 #MsVSAM138);
Call Process(*direct) function(VSAM138) exit_used(*next) menu_used(*next);
ENDROUTINE;
;
* =====================================================;
* Handle Submit Batch Job Request ;
* =====================================================;
;
EVTROUTINE HANDLING(#BTN_SUBMIT.Click);
Change #OpVSAM138 SUBMIT;
Exchange (#Deptment #OpVSAM138 #MsVSAM138);
Call Process(*direct) function(VSAM138) exit_used(*next) menu_used(*next);
ENDROUTINE;
;
END_COM;