Visual Lansa: Set Com(#model) Com_Fields(*ALL)?

This Q&A forum allows users to post and respond to "How Do I Do ....." questions. Please do not use to report (suspected) errors - you must use your regional help desk for this. The information contained in this forum has not been validated by LANSA and, as such, LANSA cannot guarantee the accuracy of the information.
Post Reply
Posts: 42
Joined: Wed Apr 26, 2017 7:12 pm

Visual Lansa: Set Com(#model) Com_Fields(*ALL)?

Post by pkoopmanpk » 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:

Code: Select all

Define_Com Class(#Com_Home.modelObject) Name(#model)

Set Com(#model) Com_Fields(*ALL)
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:

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)
Where RPMODEL has a *FIELDLISTS in the Role definition.

Suggestions anyone?

Post Reply