{ "header": { "version": 1, "type": "record" }, "body": { "record1": { "<1>": "declare function entid, function, msg, repository, dialog_box\r\n$insert msg_equates\r\n$insert popup_equates\r\n$insert logical\r\n\r\n\r\n\r\nTWCols = 'TW_PPLUS/TW_PMINUS/TW_NPLUS/TW_NMINUS/TW_PROD/TW_RECLAIM'\r\nTWAcctPos = '1,7,13,19,25,31,37,43,49/2,8,14,20,26,32,38,44,50/3,9,15,21,27,33,39,45,51/4,10,16,22,28,34,40,46,52/5,11,17,23,29,35,41,47,53/6,12,18,24,30,36,42,48,54'\r\nconvert '/' to @fm in TWCols\r\nconvert '/' to @fm in TWAcctPos\r\nconvert ',' to @vm in TWAcctPos\r\nPopId = entid( @appid<1>, 'POPUP', '', 'RDS_TW_ACCT_OPTS' )\r\nOverRide = ''\r\nDisplay = ''\r\nif .tw_pplus->text then\r\n Display<1,-1> = 'P Plus':@tm:'TW_PPLUS'\r\nend\r\nif .tw_pminus->text then\r\n Display<1,-1> = 'P Minus':@tm:'TW_PMINUS'\r\nend\r\nif .tw_nplus->text then\r\n Display<1,-1> = 'N Plus':@tm:'TW_NPLUS'\r\nend\r\nif .tw_nminus->text then\r\n Display<1,-1> = 'N Minus':@tm:'TW_NMINUS'\r\nend\r\nif .tw_prod->text then\r\n Display<1,-1> = 'Product':@tm:'TW_PROD'\r\nend\r\nif .tw_reclaim->text then\r\n Display<1,-1> = 'Reclaim':@tm:'TW_RECLAIM'\r\nend\r\nif Display then\r\n\tOverRide = Display\r\n\tTWCol = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif TWCol then\r\n\t locate TWCol in TWCols using @fm setting Fpos then\r\n \tCurTW = get_property( @window:'.':TWCols, 'TEXT' )+0\r\n\t\t TWInfo = .tw_info->array\r\n\t\t ParamToPass = TWCol\r\n\t\t convert '_' to ' ' in ParamToPass\r\n\t HoldTW = TWInfo>\r\n\t HoldCode = TWInfo>\r\n HoldTool = TWInfo>\r\n\t HoldThick = TWInfo>\r\n\t HoldRes = TWInfo>\r\n\t HoldConc = TWInfo>\r\n\t HoldStress = TWInfo>\r\n\t HoldTrans = TWInfo>\r\n\t HoldRHO = TWInfo>\r\n\t HoldAll = HoldTW:HoldCode:HoldTool:HoldThick:HoldRes:HoldConc:HoldStress:HoldTrans:HoldRHO\r\n\t ParamToPass := '*':CurTW\r\n\t ParamToPass := '*':HoldTW\r\n\t\t ParamToPass := '*':HoldCode\r\n\t\t ParamToPass := '*':HoldTool\r\n\t\t ParamToPass := '*':HoldThick\r\n\t\t ParamToPass := '*':HoldRes\r\n\t\t ParamToPass := '*':HoldConc\r\n\t\t ParamToPass := '*':HoldStress\r\n\t\t ParamToPass := '*':HoldTrans\t\t \r\n\t\t ParamToPass := '*':HoldRHO\r\n\t\t RetVal = dialog_box( 'RDS_TW', @window, ParamToPass )\r\n\t\t if RetVal <> 'CANCEL' then\r\n\t\t RetCnt = RetVal<1>\r\n\t\t RetCode = RetVal<2>\r\n\t\t RetTool = RetVal<3>\r\n\t\t RetThick = RetVal<4>\r\n\t\t RetRes = RetVal<5>\r\n\t\t RetConc = RetVal<6>\r\n\t\t RetStress = RetVal<7>\r\n\t\t RetTrans = RetVal<8>\r\n\t\t RetRHO = RetVal<9>\r\n\t\t All = RetCnt:RetCode:RetTool:RetThick:RetRes:RetConc:RetStress:RetTrans:RetRHO\r\n\t\t if All <> HoldAll then\r\n\t\t\t TWInfo> = RetCnt\r\n\t\t\t TWInfo> = RetCode\r\n\t\t\t TWInfo> = RetTool\r\n\t\t\t TWInfo> = RetThick\r\n\t\t\t TWInfo> = RetRes\r\n\t\t\t TWInfo> = RetConc\r\n\t\t\t TWInfo> = RetStress\r\n\t\t\t TWInfo> = RetTrans\r\n\t\t\t TWInfo> = RetRHO\r\n\t\t\t .tw_info->array = TWInfo\r\n \t\t\t @@window->savewarn = true$\r\n\t\t\t end\r\n\t\t\tend\r\n\t\tend\r\n\tend \r\nend else\r\n MsgInfo = ''\r\n MsgInfo = 'There are no test wafers!'\r\n MsgInfo = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0" } } }