Using DF_WRAPO to Understand, Experiment or Trace
Your development environment contains a generic 5250 form wrapper named DF_WRAPO.
You can use it as a wrapper with any 5250 screen by doing this in your RAMP arrival script:
SHOW_CURRENT_FORM(true,"DF_WRAPO");
When executed it looks something like this:
You can use DF_WRAPO to help understand how wrappers are executed, or even to trace out an unusual situation.
If you don't have DF_WRAPO available, you can create a Visual LANSA reusable part just like it from this source code.
Note that the wrapper works generically because of the code below in blue:
- -------------------------------------------------------------------------------------------
- This is a generic RAMP 5250 form wrapper that can be used for testing/debugging
Begin_Com Role(*EXTENDS #VF_AC038O) Height(550) Width(680) Verticalscroll(True) Horizontalscroll(True) Layoutmanager(#MainPanelAttachmentManager) - -------------------------------------------------------------------------------------------
Define_Com Class(#Prim_atli) Name(#AttachEventsList) Parent(#MainPanelAttachmentManager) Manage(#EventsList) Attachment(Center) Marginbottom(4) Marginleft(4) Marginright(4)
Define_Com Class(#Prim_atli) Name(#AttachButtonPanel) Parent(#MainPanelAttachmentManager) Attachment(Bottom) Marginbottom(4) Marginleft(4) Marginright(4) Manage(#Buttonpanel) - -------------------------------------------------------------------------------------------------------------
Define_Com Class(#Prim_List) Name(#EventsList) Parent(#COM_OWNER) Displayposition(1) Tabposition(1) Height(492) Left(4) Top(0) Width(672) Autoselectitem(False) Columnheaderheight(0) Columnlines(False) Columnsortarrow(False)
Define_Com Class(#Prim_List.String) Name(#EventText) Parent(#EventsList) Columnwidth(1) Columnunits(Proportion) Wordwrap(True) Style(#SmallFont)
Define_Com Class(#Prim_Panl) Name(#Buttonpanel) Parent(#COM_OWNER) Displayposition(2) Tabposition(2) Left(4) Top(496) Width(672)
Define_Com Class(#Prim_MD.RaisedButton) Name(#ClearEvents) Parent(#Buttonpanel) Displayposition(3) Tabposition(3) Top(3) Width(155) Caption('Clear Events List') Left(6)
Define_Com Class(#Prim_MD.RaisedButton) Name(#SendF3) Parent(#Buttonpanel) Displayposition(2) Tabposition(2) Top(4) Width(155) Caption('SENDKEY(F3)') Left(170)
Define_Com Class(#Prim_MD.RaisedButton) Name(#SendF12) Parent(#Buttonpanel) Displayposition(1) Tabposition(1) Top(5) Width(155) Caption('SENDKEY(F12)') Left(333) - -------------------------------------------------------------------------------------------
Define_Com Class(#Prim_vs.Style) Name(#SmallFont) Fontsize(11) Fontunits(Pixel) - -------------------------------------------------------------------------------------------
Evtroutine Handling(#ClearEvents.Click)
Clr_List Named(#EventsList)
Endroutine - -------------------------------------------------------------------------------------------
Evtroutine Handling(#SendF12.Click)
#COM_OWNER.SENDKEY Key(F12)
Endroutine - -------------------------------------------------------------------------------------------
Evtroutine Handling(#SendF3.Click)
#COM_OWNER.SENDKEY Key(F3)
Endroutine - -------------------------------------------------------------------------------------------
Mthroutine Name(AddEvent)
Define_Map For(*INPUT) Class(#prim_dc.UnicodeString) Name(#Text)
Add_Entry To_List(#EventsList)
#EventText.CurrentItem.Value := #Text
Endroutine - -------------------------------------------------------------------------------------------
Mthroutine Name(uInitialize) Options(*REDEFINE) - Set up to notify all field arrivals, even when they are not registered/defined to be received.
*
#COM_OWNER.avNotifyAllFieldArrivals := True
* - Do the ancestor thing
#COM_ANCESTOR.uInitialize - Record event
#COM_OWNER.AddEvent Text("uInitialize invoked.") - Add your logic here ...
Endroutine - -------------------------------------------------------------------------------------------
Mthroutine Name(uTerminate) Options(*REDEFINE) - Record event
#COM_OWNER.AddEvent Text("uTerminate invoked.") - Add your logic here ...
- Do the ancestor thing
#COM_ANCESTOR.uTerminate
Endroutine - -------------------------------------------------------------------------------------------
Mthroutine Name(uInitializeForForm) Options(*REDEFINE) - This is called just the first time this form arrives
#COM_ANCESTOR.uInitializeForForm Formname(#FormName) - Record event
#COM_OWNER.AddEvent Text("uInitializeForForm invoked for #FormName=" + #FormName + ".")
Endroutine - -------------------------------------------------------------------------------------------
Mthroutine Name(SHOW_CURRENT_FORM) Options(*REDEFINE) - Record event
#COM_OWNER.AddEvent Text("SHOW_CURRENT_FORM invoked for #FormName=" + #FormName + ", WrapperData=" + #WrapperData + ".") - This will trigger RECEIVE_FORM_FIELD and RECEIVE_SUBFILE_CELL executions for received form data
#COM_ANCESTOR.SHOW_CURRENT_FORM Formname(#FormName) Wrapperdata(#WrapperData)
Endroutine - -------------------------------------------------------------------------------------------
Mthroutine Name(RECEIVE_FORM_FIELD) Options(*REDEFINE)
If (#SymbolicName = "")
#SymbolicName := *MTXTVF_NONE
Endif
#COM_OWNER.AddEvent Text("RECEIVE_FORM_FIELD invoked for #FormName=" + #FormName + ", #Id=" + #Id + ", #SymbolicName=" + #SymbolicName + ", #StringValuee=" + #Stringvalue + ".")
Endroutine - -------------------------------------------------------------------------------------------
Mthroutine Name(RECEIVE_SUBFILE_CELL) Options(*REDEFINE)
If (#SymbolicName = "")
#SymbolicName := *MTXTVF_NONE
Endif
#COM_OWNER.AddEvent Text("RECEIVE_SUBFILE_CELL invoked for #FormName=" + #FormName + ", #Id=" + #Id + ", #SymbolicName=" + #SymbolicName + ", #SubfileIndex=" + #SubfileIndex.AsString + ", #StringValuee=" + #Stringvalue + ".")
Endroutine
End_Com
Show Contents List