Visual Lansa: Set Com(#model) Com_Fields(*ALL)?
Posted: Tue Nov 28, 2023 12:25 am
I really love Qualified DataStructures in RPG ILE. So I'm searching for a way to create something similar in Lansa.
I can fill models in Web Api's with the instruction:
I'd like to use this to fill my own 'Models' in Visual Lansa for Windows too. Has anyone found a trick to get this working.
Closest I can reach this, is:
Where RPMODEL has a *FIELDLISTS in the Role definition.
Suggestions anyone?
I can fill models in Web Api's with the instruction:
Code: Select all
Define_Com Class(#Com_Home.modelObject) Name(#model)
Set Com(#model) Com_Fields(*ALL)Closest I can reach this, is:
Code: Select all
Define_Com Class(#PRIM_LCOL<#RPMODEL>) Name(#model_list)
Add_Entry To_List(#model_list)
Use Builtin(MESSAGE_BOX_SHOW) With_Args(*Default *Default *Default *Default #model_list.First.FIELD)Suggestions anyone?