added remaining LSL2 entities

LSL2/OIEVENT/CALCULATE/LAST_WFR_CI_GROUP.WAFERS_IN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'WO_VERIFY_CHK' )\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CALCULATE/RDS_UNLOAD.WAFERS_IN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function rds_comm\r\n\r\nVoid = rds_comm( 'WO_VERIFY_CHK' )\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CALCULATE/REACTORPM_SRPT1.SORT_OPTIONS_1.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function msg\r\n\r\nOpt1 = .sort_options_1->Value\r\nOpt2 = .sort_options_2->Value\r\nOpt3 = .sort_options_3->Value\r\n\r\nIf Opt1 = Opt2 Or Opt2 = Opt3 Or Opt1 = Opt3 Then\r\n   Msg001  = ''\r\n   Msg001 := 'The same sort field has been selected|'\r\n   Msg001 := 'for two or more options!'\r\n   Void = msg('',Msg001)\r\nEnd\r\n\r\nReturn 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.FROM.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if NewData = '' and .thru->text = '' then\r\n   .span->enabled = 1\r\nend else\r\n   .span->text = 'N/A'\r\n   .span->enabled = 0\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.ORDER_QUOTE.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if NewData = 'Quoted Products' then\r\n   .order_stat->text = 'N/A'\r\n   .order_stat->enabled = 0\r\nend else\r\n   .order_stat->text = 'All Orders'\r\n   .order_stat->enabled = 1\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.SPAN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".from->text = ''\r\n.thru->text = ''\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/CUST_ACTIVITY_RPT1.THRU.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if NewData = '' and .from->text = '' then\r\n   .span->enabled = 1\r\nend else\r\n   .span->text = 'N/A'\r\n   .span->enabled = 0\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/EXPORT3.EXPORTTABLENAMES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if @user4 = 'MIS' then\r\n\tDEBUG\r\nend\r\nif .exporttablenames->text = 'REACT_UTIL' then\r\n   .UTIL_START->VISIBLE = 1\r\n   .UTIL_END->VISIBLE = 1\r\n   .UTIL_START_LABEL->VISIBLE = 1\r\n   .UTIL_END_LABEL->VISIBLE = 1\r\nend else\r\n   .UTIL_START->VISIBLE = 0\r\n   .UTIL_END->VISIBLE = 0\r\n   .UTIL_START_LABEL->VISIBLE = 0\r\n   .UTIL_END_LABEL->VISIBLE = 0\r\nend\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/EXPORT3.EXPORT_NAME.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function send_event, post_event\r\n\r\nif len( NewData ) > 24 then\r\n   Void = send_event( @window:'.':CtrlEntId, 'LOSTFOCUS', '' )\r\n   Void = set_property( @window:'.EXPORTTABLENAMES', \"FOCUS\", 1)\r\n   Void = post_event( @window:'.EXPORTTABLENAMES', \"GOTFOCUS\" )\r\n   return 0\r\nend\r\nif NewData[-1,1] = ' ' then\r\n   CurVal = @CtrlEntId->text\r\n   CurVal[-1,1] = '_'\r\n   @CtrlEntId->text = CurVal\r\n   @CtrlEntId->selection = len( CurVal )+1\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/EXPORTS.EXPORTTABLENAMES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if .exporttablenames->text = 'REACT_UTIL' then\r\n   .UTIL_START->VISIBLE = 1\r\n   .UTIL_END->VISIBLE = 1\r\n   .UTIL_START_LABEL->VISIBLE = 1\r\n   .UTIL_END_LABEL->VISIBLE = 1\r\nend else\r\n   .UTIL_START->VISIBLE = 0\r\n   .UTIL_END->VISIBLE = 0\r\n   .UTIL_START_LABEL->VISIBLE = 0\r\n   .UTIL_END_LABEL->VISIBLE = 0\r\nend\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/EXPORTS.EXPORT_NAME.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function send_event, post_event\r\n\r\nif len( NewData ) > 24 then\r\n   Void = send_event( @window:'.':CtrlEntId, 'LOSTFOCUS', '' )\r\n   Void = set_property( @window:'.EXPORTTABLENAMES', \"FOCUS\", 1)\r\n   Void = post_event( @window:'.EXPORTTABLENAMES', \"GOTFOCUS\" )\r\n   return 0\r\nend\r\nif NewData[-1,1] = ' ' then\r\n   CurVal = @CtrlEntId->text\r\n   CurVal[-1,1] = '_'\r\n   @CtrlEntId->text = CurVal\r\n   @CtrlEntId->selection = len( CurVal )+1\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/EXPORTS.PATH.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "Path = Get_Property(CtrlEntID,'DEFPROP')\r\nIF INDEX(Path,'/',1) THEN\r\n\tCall ErrMsg('\"/\" characters are invalid in paths.  Use \"\\\" instead.')\r\nEND\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.PRECLEAN_AKRIONRECIPES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_POST_CLEAN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n   .post_akrion_recipe->text = ''\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/NDW_GAN_PROD_SPEC.SUB_PRE_CLEAN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n   .pre_akrion_recipe->text = ''\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/PROD_SPEC_SHIP.SHIP_PARTIAL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "$insert logical\r\n\r\nif NewData = 'No' then\r\n   .ship_full_type->visible = true$\r\n   .sftype_label1->visible  = true$\r\n   .sftype_label2->visible  = true$      \r\nend else\r\n   .ship_full_type->text    = ''\r\n   .ship_full_type->visible = false$\r\n   .sftype_label1->visible  = false$\r\n   .sftype_label2->visible  = false$\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.PRECLEAN_AKRIONRECIPES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nIF @USERNAME = 'BRYCE_BARB' THEN DEBUG\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_POST_CLEAN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n   .post_akrion_recipe->text = ''\r\nend\r\nreturn 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/PROD_SPEC_SI.SUB_PRE_CLEAN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "CurVal = @CtrlEntId->text\r\nif index( CurVal, 'Akrion', 1 ) else\r\n   .pre_akrion_recipe->text = ''\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/PROD_SPEC_SI4.TOOL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/PROD_SPEC_SI5.PRECLEAN_AKRIONRECIPES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/PRS_SUBSTRATE.PRECLEAN_AKRIONRECIPES.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function prod_spec_comm\r\ndeclare subroutine forward_event\r\n\r\nforward_event(NewData)\r\nVoid = prod_spec_comm( \"LOAD_TOOL_RECIPE\" )\r\nRETURN 0\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/REACTOR_LOG_SRPT1.REACTORSECTIONS.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function scroll_enable, send_message\r\n\r\nequ EditTableInsDel$   to 4    ;* ALLOW ROW INSERTION AND/OR DELETION FOR EDITTABLE STYLE\r\nequ Protected$         to 8    ;* AS DOCUMENTED IN THE COLSYTLE MESSAGE IN HELP\r\nequ ReadOnly$          to 2048 ;* FIGURED THIS OUT BY SETTING THE STYLE IN THE WINDOW THEN DEBUGGING\r\n\r\nSectionNo = NewData[1,1]\r\n\r\nIf SectionNo Then \r\n  X = XLATE(\"CONFIG\",\"REACTOR_SELECTIONS\",SectionNo,\"X\")\t  \t\r\n  Treactors = .reactors->array\r\n  Treactors<1> = X\r\n  .reactors->array = Treactors\r\n  *Void = scroll_enable( '', @window:'.REACTORS' )\r\nend\r\n* WILL LOOK INTO THIS LATER IDEA IS TO REENABLE THE REACTORS CONTROL Later Dude! \r\n*end else\r\n*  ThisEditTable = @window:'.REACTORS'\r\n*  Styles = send_message( ThisEditTable, \"COLSTYLE\", 0, '' )\r\n* Styles<1> = bitand( Styles<1>, Protected$ )\r\n*  Void = send_message( ThisEditTable, \"COLSTYLE\", 0, Styles )\r\n*  Style = get_property( ThisEditTable, \"STYLE\" )\r\n*  if Style[1,2] _eqc \"0x\" then\r\n*     convert @lower_case to @upper_case in Style\r\n*\t Style = iconv( Style[3,999], 'MX' )\r\n* end\r\n*  Style = bitor( Style, EditTableInsDel$ )\r\n*  Void = set_property( ThisEditTable, 'STYLE', Style )   \r\n*  .reactors->array = @vm:@vm\r\n*  *.reactors->enabled = 1  \r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.MODE.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "OrigMode = get_property( @window, '@Mode' )\r\nM = .mode->text\r\nif M <> OrigMode then\r\n   .apply->enabled = 1\r\nend else\r\n   .apply->enabled = 0\r\nend\r\nif M[1,11] = 'Maintenance' THEN\r\n   .reactmodesvc->visible = 1\r\n   .serv_label->visible = 1\r\n      \r\nend else\r\n   .reactmodesvc->visible = 0\r\n   .serv_label->visible = 0\r\n   .note_group->enabled = 1\r\nend\r\n\r\n*IF OrigMode[1,11] = 'Maintenance' THEN\r\n*\t.note_group->enabled = 0\r\n*END ELSE\r\n*   .note_group->enabled = 1\r\n*END\r\n\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.NOTE.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": ".apply->enabled = 1\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/REACT_MODE_CHG.REACTMODESVC.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.PSN.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'REACT_REC_ON_CHANGE', '' )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.REACTOR.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'REACT_REC_ON_CHANGE', '' )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHANGED/RECIPE_BROWSE.RECIPE_NO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine recipe_browse_comm\r\n\r\nrecipe_browse_comm( 'REACT_REC_ON_CHANGE', '' )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHAR/CAR.ANT_CAR_INPLACE_DATE.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nif .resp_signature->text <> '' else\r\n   MsgInfo = ''\r\n   MsgInfo<micon$> = 'H'\r\n   MsgInfo<mtext$> = 'Cannot have an anticipated CAR inplace date without a responsible person signature.'\r\n   Void = msg( '', MsgInfo ) \r\n   .ant_car_inplace_date->text = ''\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHAR/CAR.CAR_INPLACE_DATE.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function msg\r\n$insert msg_equates\r\n\r\nif .car_inplace_signature->text <> '' else\r\n   MsgInfo = ''\r\n   MsgInfo<micon$> = 'H'\r\n   MsgInfo<mtext$> = 'Cannot have a CAR inplace date without having a CAR inplace signature.'\r\n   Void = msg( '', MsgInfo ) \r\n   .car_inplace_date->text = ''\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHAR/EXPORTS2.COMPVAL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "$insert msg_equates\r\ndeclare subroutine forward_event\r\n\r\nforward_event( VirtCode, ScanCode, CtrlKey, ShiftKey, AltKey )\r\n* REMOVED THIS CODE CAUSE BACK ON THE EDIT TABLES I SET TO 500 FOR THE WIDTH\r\n*CompVal = .compval->text\r\n*if len( CompVal ) > 80 then\r\n*   .compval->text = CompVal[1,80]\r\n*   MsgInfo = ''\r\n*   MsgInfo<mtext$> = 'Comparision value can only be 80 characters'\r\n*   MsgInfo<micon$> = '!'\r\n*   Void = msg( '', MsgInfo )\r\n*   * NOW SET CURSOR TO THE END\r\n*   .compval->selection = 81:@fm:0   \r\n*end\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CHAR/RDS_SUPPL_INST.SUPPL_INST.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if @CtrlEntId->text <> '' then\r\n   .save->enabled = 1\r\nend else\r\n   .save->enabled = 0\r\nend\r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CHAR/WO_MAST_SCHED_FIND.FIND_VAL.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "if len( .find_val->text ) then\r\n   .next->enabled = 1\r\n   .prev->enabled = 1\r\nend else\r\n   .next->enabled = 0\r\n   .prev->enabled = 0\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/ANNUAL_CONTRACTS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/ASSIGN_CAUSE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/ATTENDANCE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/CALL_VISIT..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/CAR..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/CDM_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/COC..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/COMPANY..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function set_property, utility, fieldcount\r\ndeclare subroutine forward_event\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/CUST_INQUIRY..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/DESIG_ERR_GRP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/HOTH2O2_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/INVOICE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/LAST_WFR_CI_GROUP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\ndeclare SUBROUTINE Comm_RDS, Forward_Event\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n   * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n   return 0\r\nend\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\t;* Added 08/23/2004 by JCH\r\n\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/LOSS_CODES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/MASTER_DISK_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/MEG_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/MSG_GROUPS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/NAMES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function post_event, set_property, send_event, fieldcount\r\ndeclare subroutine forward_event\r\n\t   \r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )\r\nfor i = 1 to Acnt\r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      Void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end\r\nnext i\t\r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/NCR..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/NDA..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/ORDER..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/PHOTOFLO_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/QUARTZ_TC_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/QUARTZ_WAND_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end\r\n  \r\nnext i \r\nRETURN 1\r\n\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/QUOTE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/QUOTE_OLD..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/QUOTE_SRL..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/RDS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i\r\n\r\nComm_RDS('FirstRefresh')\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/RDS_POST_EPI..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\n\r\nComm_RDS('Refresh')\r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/RDS_PRE_EPI..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS, Forward_Event\r\n\r\n\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i\r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\r\n\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/RDS_PRE_EPI_ORG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\nDECLARE Subroutine Comm_RDS, Forward_Event\r\n\r\n\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i\r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\r\n\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/RDS_UNLOAD..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property, rds_comm\r\ndeclare SUBROUTINE Comm_RDS, Forward_Event\r\n\r\nif rds_comm( 'CHECK_NCR_SAVE' ) then\r\n   * DO NOTHING CAUSE THE USER WAS ASKED TO SAVE AND THEY SAID NO BUT WE MUST\r\n   return 0\r\nend\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\n\r\nForward_Event()\r\n\r\nComm_RDS('Refresh')\t;* Added 08/23/2004 by JCH\r\n\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/REACTOR_LOG_AREV..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/REACTOR_PM..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/REACT_ITEMS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/REACT_PROBS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/REACT_PROB_CAT..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/RECIPE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SCHEDULE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SCHEDULE_SRL..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SEMI_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_AKRION..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_CLEAN_HF_ETCH_AKRION..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_CLEAN_SC1..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_CLEAN_SRD..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_EVAL_4PP..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_EVAL_ADE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_EVAL_FTIR..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_REACTOR_PARTICLES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SPC_WAFER_ETCH..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SRP_COC_RESULTS..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SRP_INCOMING_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/SUB_REC_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/TW_CODES..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/TW_PRIME_USAGE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/TW_USAGE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/TW_USE..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "DECLARE FUNCTION Comm_TW_Use\r\n\r\nRETURN Comm_TW_Use(CtrlEntID,'CLEAR')"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/WAFER_INV..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/WO_LOG..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function utility, fieldcount, set_property\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nRETURN 1\r\n"
+        }
+    }
+}

LSL2/OIEVENT/CLEAR/WO_VERIFY..json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function fieldcount, utility, send_event, set_property, msg, post_event\r\ndeclare subroutine forward_event\r\n$insert logical\r\n$insert msg_equates\r\n\r\nAllControls = utility( 'OBJECTLIST', @window, '' )\r\nAcnt = fieldcount( AllControls, @fm )     \r\nfor i = 1 to Acnt         \r\n   ThisControl = AllControls<i>\r\n   if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n      void = set_property( ThisControl, 'ENABLED', 1 )\r\n   end           \r\nnext i \r\nreturn 1"
+        }
+    }
+}

LSL2/OIEVENT/CLICK/ABOUT.BUTTON_1.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function send_event\r\nVoid = send_event( @window, 'CLOSE' )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLICK/AC_RPT1.CANCEL_BUTTON.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare subroutine end_dialog\r\n\r\nend_dialog( @window, 'CANCEL' )\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLICK/AC_RPT1.CUSTOMER_INFO.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function editcell\r\ndeclare subroutine forward_event\r\n\r\nforward_event()\r\nCol = get_property( CtrlEntId, 'SELPOS' )<1>\r\nif Col = 2 else\r\n    Void = set_property( @window, '@JustClicked', 1 )\r\nend\r\nRETURN 0"
+        }
+    }
+}

LSL2/OIEVENT/CLICK/AC_RPT1.RUN_REPORT_BUTTON.json

@@ -0,0 +1,11 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record"
+    },
+    "body": {
+        "record1": {
+            "<1>": "declare function sched_rpt1, send_event, msg\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n\r\nEntryDateFrom = .entry_date_from->text\r\nEntryDateThru = .entry_date_thru->text\r\nCusts = .customer_info->array<1>\r\nswap @vm:@vm with '' in Custs\r\nif Custs[-1,1] = @vm then Custs[-1,1] = ''\r\nDirToPrint   = .send_to_printer->text\r\nOpen   = .open_check->check \r\nClosed = .closed_check->check\r\nRetVal = EntryDateFrom:'*':EntryDateThru:'*':Custs:'*':Open:'*':Closed:'*':DirToPrint\r\nend_dialog( @window, RetVal )\r\nreturn 0\r\n"
+        }
+    }
+}