Show Contents List

Example 3: Show the IBM i Disk Usage

A screen wrapper can pick values out of hidden 5250 screen(s) and present it in completely different ways. This example shows the disk usage of a IBM i graphically:
 

 
To access the work with disk status screen type wrkdsksts in the command line. The name given to the Work with Disk Status screen in this example is "DiskStatus".
When in the disk status screen, read the %Use column of the subfile and feed the data to the graph.
 

• COMPONENT:  STD_PANL                            
• Function Options(*DIRECT)
  Begin_Com Role(*EXTENDS #VF_AC010) Height(559) Hint(*MTXTDF_DET1) Layoutmanager(#ATLM_1) Width(557)
   
  Define_Com Class(#PRIM_GRID) Name(#DiskSts) Displayposition(1) Height(150) Left(109) Parent(#PANL_2) Rowheight(19) Tabposition(1) Top(15) Width(212)
  Define_Com Class(#PRIM_GDCL) Name(#GDCL_1) Caption('Disk Unit') Captiontype(Caption) Displayposition(1) Parent(#DiskSts) Source(#VF_ELTYPE) Width(29)
  Define_Com Class(#PRIM_GDCL) Name(#GDCL_2) Caption('% Use') Captiontype(Caption) Displayposition(2) Parent(#DiskSts) Readonly(False) Source(#VF_ELTXTS) Width(30) Widthtype(Remainder)
  Define_Com Class(#PRIM_GRPH) Name(#GRPH_1) Displayposition(1) Height(370) Left(0) Parent(#PANL_3) Scatterstyle(SymbolAtPoints+Solid) Surfacestyle(ConnectLinesInBlack) Tabposition(1) Top(0) Width(557) Xcaption('Disk Units') Ycaption('% Use')
  Define_Com Class(#PRIM_GRCL) Name(#GRCL_1) Columnrole(Label) Displayposition(1) Parent(#GRPH_1) Source(#VF_ELTYPE)
  Define_Com Class(#PRIM_GRCL) Name(#GRCL_2) Columnsymbol(HollowUpTriangle) Displayposition(2) Parent(#GRPH_1) Source(#VF_ELWIDP)
  Define_Com Class(#vf_sy122) Name(#myscreen_wrapper) Displayposition(3) Height(513) Left(144) Parent(#PANL_1) Top(24) Visible(False) Width(593)
   
  Define_Com Class(#PRIM_PANL) Name(#PANL_1) Displayposition(1) Height(559) Layoutmanager(#SPLM_1) Left(0) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(0) Width(557)
  Define_Com Class(#PRIM_ATLM) Name(#ATLM_1)
  Define_Com Class(#PRIM_ATLI) Name(#ATLI_1) Attachment(Center) Manage(#PANL_1) Parent(#ATLM_1)
  Define_Com Class(#PRIM_SPLM) Name(#SPLM_1)
  Define_Com Class(#PRIM_PANL) Name(#PANL_2) Displayposition(1) Height(185) Layoutmanager(#FWLM_1) Left(0) Parent(#PANL_1) Tabposition(2) Tabstop(False) Top(0) Width(557)
  Define_Com Class(#PRIM_PANL) Name(#PANL_3) Displayposition(2) Height(370) Layoutmanager(#ATLM_2) Left(0) Parent(#PANL_1) Tabposition(3) Tabstop(False) Top(189) Width(557)
  Define_Com Class(#PRIM_SPLI) Name(#SPLI_1) Manage(#PANL_2) Parent(#SPLM_1) Weight(1)
  Define_Com Class(#PRIM_SPLI) Name(#SPLI_2) Manage(#PANL_3) Parent(#SPLM_1)
  Define_Com Class(#PRIM_ATLM) Name(#ATLM_2)
  Define_Com Class(#PRIM_ATLI) Name(#ATLI_2) Attachment(Center) Manage(#GRPH_1) Parent(#ATLM_2)
   
  Define_Com Class(#PRIM_FWLM) Name(#FWLM_1) Direction(TopToBottom) Flowoperation(Center) Margintop(15) Spacingitems(2)
  Define_Com Class(#PRIM_FWLI) Name(#FWLI_3) Manage(#DiskSts) Parent(#FWLM_1)
  Define_Com Class(#PRIM_PHBN) Name(#PHBN_1) Caption('Refresh Statistics') Displayposition(2) Left(331) Parent(#PANL_2) Tabposition(2) Top(15) Width(117)
  Define_Com Class(#PRIM_FWLI) Name(#FWLI_6) Manage(#PHBN_1) Parent(#FWLM_1)
   
  Mthroutine Name(uInitialize) Options(*REDEFINE)
   
• Do any initialization defined in the ancestor
  Invoke Method(#Com_Ancestor.uInitialize)
  Set Com(#grph_1) Graphtype(Bar)
  Set Com(#myscreen_wrapper) Ucommand(#com_owner)
  Endroutine
   
  Mthroutine Name(uExecute) Options(*REDEFINE)
   
• Do any execution logic defined in the ancestor
   
  Invoke Method(#Com_Ancestor.uExecute)
   
  Invoke Method(#myscreen_wrapper.MakeRampAvailable) Foraction(ShowDiskStatus)
   
  Endroutine
   
  Evtroutine Handling(#myscreen_wrapper.RampAvailable) Foraction(#ForAction)
   
• Get the employee number of the employee whose details are to be displayed.
   
  Case (#ForAction)
   
  When Value_Is('= ShowDiskStatus')
   
  #myscreen_wrapper.current_form Name(#vf_eltxtl)
   
  If (#vf_eltxtl *NE 'DiskStatus')
  Invoke Method(#myscreen_wrapper.navigatetoscreen) Name('DiskStatus') Returnscreen(#vf_eltxtl)
  Endif
   
  If (#vf_eltxtl = 'DiskStatus')
  #myscreen_wrapper.sendkey Key(#myscreen_wrapper.KeyF10)
  #myscreen_wrapper.sendkey Key(#myscreen_wrapper.KeyF5)
  #com_owner.uGetDiskStatus Gridname('uDiskStatus')
  Endif
   
  Otherwise
   
  Use Builtin(message_box_show) With_Args(ok ok info *component ('Incorrect ForAction>>' + #ForAction.Value + '<<'))
  Endcase
   
  Endroutine
   
  Mthroutine Name(uGetDiskStatus)
   
  Define_Map For(*input) Class(#vf_eltxtl) Name(#GridName)
  Define_Map For(*input) Class(#vf_eltxtl) Name(#nxtpage) Mandatory('+')
   
  Define Field(#colcount) Type(*dec) Length(2) Decimals(0)
  Define Field(#rowcount) Type(*dec) Length(4) Decimals(0)
  Define Field(#column) Type(*dec) Length(2) Decimals(0) Default(0)
  Define Field(#row) Type(*dec) Length(2) Decimals(0) Default(0)
  Define Field(#colname) Type(*char) Length(50)
  Define Field(#headrows) Type(*dec) Length(2) Decimals(0) Default(0)
   
  Clr_List Named(#DiskSts)
  Clr_List Named(#grph_1)
   
  Dowhile ((#nxtpage *NE '') And (#nxtpage *NE 'Bottom'))
   
  #myscreen_wrapper.getvalue From(#GridName.value + ".RowCount") Value(#rowcount)
  #myscreen_wrapper.getvalue From(#GridName.value + ".HeadRows") Value(#headrows)
   
• Subtract one because the row collection is zero based.
  #rowcount -= 1
   
  Begin_Loop Using(#row) From(#headrows) To(#rowcount)
   
  #myscreen_wrapper.getvalue From(#GridName.value + ".Columns.Count") Value(#colcount)
   
  Begin_Loop Using(#column) To(#colcount)
   
  #com_owner.uGetColName Ugridname(#GridName.value) Ucolnumber(#column) Ucolname(#colname)
   
  Case (#colname)
  When Value_Is(= 'Unit')
  #com_owner.uGetCellValue Ugridname(#GridName.value) Ucolnumber(#column) Urownumber(#row) Ucellvalue(#vf_eltype)
  When Value_Is(= 'Used')
  #com_owner.uGetCellValue Ugridname(#GridName.value) Ucolnumber(#column) Urownumber(#row) Ucellvalue(#vf_eltxts)
  #VF_ELWIDP := #vf_eltxts.trim.asnumber
  Endcase
   
  End_Loop
   
  Add_Entry To_List(#DiskSts)
  Add_Entry To_List(#grph_1)
   
  End_Loop
   
  #myscreen_wrapper.getvalue From(#GridName.value + ".Marker") Value(#nxtpage.value)
  If ((#nxtpage.value *NE '') And (#nxtpage.value *NE 'Bottom'))
  #myscreen_wrapper.sendkey Key(#myscreen_wrapper.KeyPageDown)
  Endif
   
  Endwhile
   
  Endroutine
   
  Mthroutine Name(uGetColName)
  Define_Map For(*input) Class(#vf_eltxtl) Name(#uGridName)
  Define_Map For(*input) Class(#vf_elnum) Name(#uColNumber)
  Define_Map For(*output) Class(#vf_eltxtl) Name(#uColName)
   
  #ucolnumber -= 1
  #myscreen_wrapper.getvalue From(#uGridName.value + ".Columns(" + #uColNumber.asstring + ").Name") Value(#ucolname.value)
  Endroutine
   
  Mthroutine Name(uGetCellValue)
  Define_Map For(*input) Class(#vf_eltxtl) Name(#uGridName)
  Define_Map For(*input) Class(#vf_elnum) Name(#uColNumber)
  Define_Map For(*input) Class(#vf_elnum) Name(#uRowNumber)
  Define_Map For(*output) Class(#vf_eltxtl) Name(#uCellvalue)
   
  #ucolnumber -= 1
  #myscreen_wrapper.getvalue From(#uGridName.value + ".Columns(" + #uColNumber.asstring + ").Cells(" + #uRowNumber.asstring + ").Text") Value(#ucellvalue.value)
  Endroutine
   
  Mthroutine Name(uTerminate) Options(*REDEFINE)
   
• Clean up the colelction of fields on the panel
• Do any termination defined in the ancestor
   
  Invoke Method(#Com_Ancestor.uTerminate)
   
  Endroutine
   
  Evtroutine Handling(#PHBN_1.Click)
  Invoke Method(#myscreen_wrapper.MakeRampAvailable) Foraction(ShowDiskStatus)
  Endroutine
  End_Com
   
  Show Contents List