{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare subroutine set_list_box_data\r\ndeclare function set_property, fieldcount\r\n$insert quote_spec_equ\r\n\r\nControlInfo = field( CreateParam, char(244), 1 )\r\nTitle       = field( CreateParam, char(244), 2 )\r\nVoid = set_property( @window, 'TEXT', Title )\r\n\r\n* now load the controls\r\n* extra S on units and extra E on thickmeasure and resmeasure\r\n* so set_list_box_data does not override choices\r\n* the choices are set in the control itself\r\nControls = 'THICK_MIN/THICK_TAR/THICK_MAX/THICK_UNITSS/THICK_UNIF/THICKMEASUREE/'\r\nControls:= 'RES_MIN/RES_TAR/RES_MAX/RES_UNITSS/RES_UNIF/RESMEASUREE/'\r\nControls:= 'EPIDOPANT/THICK_PROD_WAFER/RES_PROD_WAFER'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@Controls', Controls )\r\nCcnt = fieldcount( Controls, @rm )\r\n* ok\r\ndebug\r\nControlInfo = field( ControlInfo, @vm, 1, Ccnt ) ;* don't want the last blank value\r\nconvert @vm to @rm in ControlInfo\r\nVoid = set_property( Controls, 'TEXT', ControlInfo )\r\nset_list_box_data( @window )\r\nRETURN 1"
        }
    }
}