Page 1 of 1
under the browse list (AS400/IBM I)
Posted: Mon Mar 30, 2020 10:58 pm
by noamp
hey,
i have a problem on lansa as400/ibm i.
maybe anyone can help me with that.
when i have browse list on the display screen i can't position test or field under the list on the bottom of the screen.
please if anyone know.
thanks!
Re: under the browse list (AS400/IBM I)
Posted: Thu Apr 02, 2020 9:01 am
by caseywhite
I haven't looked at green screen code in a long time but I did figure out how you might be able to do what you want depending on whether you need fields to be input capable. Check out the help on the DISPLAY/REQUEST command and look at the OPTIONS parm. You can use *NOREAD on the first DISPLAY which will cause the system to go to the next DISPLAY/REQUEST. But that means that those fields cannot be input capable. I tried putting an input field above the browselist in the second but it resulted in the browselist data not being displayed. Your input capable fields would be on your the second DISPLAY/REQUEST.
Here is some sample code to play around with. I commented out the Request that didn't work correctly.
Code: Select all
Def_List Name(#TEST) Fields(#STD_TEXT)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Display Fields((#STD_ALPHA *L4 *P3) (#STD_TEXTS *L6 *P3)) Browselist(#TEST 5) Options(*NOREAD)
Request Fields((#STD_FLAG *L19 *P3 *INPUT)) Options(*OVERLAY)
* Request Fields((#STD_FLAG *L19 *P3 *INPUT) (#STD_ALPHA *L3 *P2)) Options(*OVERLAY)
Re: under the browse list (AS400/IBM I)
Posted: Fri Apr 03, 2020 1:35 am
by noamp
caseywhite wrote: Thu Apr 02, 2020 9:01 am
I haven't looked at green screen code in a long time but I did figure out how you might be able to do what you want depending on whether you need fields to be input capable. Check out the help on the DISPLAY/REQUEST command and look at the OPTIONS parm. You can use *NOREAD on the first DISPLAY which will cause the system to go to the next DISPLAY/REQUEST. But that means that those fields cannot be input capable. I tried putting an input field above the browselist in the second but it resulted in the browselist data not being displayed. Your input capable fields would be on your the second DISPLAY/REQUEST.
Here is some sample code to play around with. I commented out the Request that didn't work correctly.
Code: Select all
Def_List Name(#TEST) Fields(#STD_TEXT)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Change Field(#STD_TEXT) To(X)
Add_Entry To_List(#TEST)
Display Fields((#STD_ALPHA *L4 *P3) (#STD_TEXTS *L6 *P3)) Browselist(#TEST 5) Options(*NOREAD)
Request Fields((#STD_FLAG *L19 *P3 *INPUT)) Options(*OVERLAY)
* Request Fields((#STD_FLAG *L19 *P3 *INPUT) (#STD_ALPHA *L3 *P2)) Options(*OVERLAY)
Thank you caseywhite!!
It's work perfect.