11 lines
3.8 KiB
JSON
11 lines
3.8 KiB
JSON
{
|
|
"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<Pdisplay$> = 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<Fpos>, '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<TWAcctPos<Fpos,2>>\r\n\t HoldCode = TWInfo<TWAcctPos<Fpos,1>>\r\n HoldTool = TWInfo<TWAcctPos<Fpos,3>>\r\n\t HoldThick = TWInfo<TWAcctPos<Fpos,4>>\r\n\t HoldRes = TWInfo<TWAcctPos<Fpos,5>>\r\n\t HoldConc = TWInfo<TWAcctPos<Fpos,6>>\r\n\t HoldStress = TWInfo<TWAcctPos<Fpos,7>>\r\n\t HoldTrans = TWInfo<TWAcctPos<Fpos,8>>\r\n\t HoldRHO = TWInfo<TWAcctPos<Fpos,9>>\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<TWAcctPos<Fpos,2>> = RetCnt\r\n\t\t\t TWInfo<TWAcctPos<Fpos,1>> = RetCode\r\n\t\t\t TWInfo<TWAcctPos<Fpos,3>> = RetTool\r\n\t\t\t TWInfo<TWAcctPos<Fpos,4>> = RetThick\r\n\t\t\t TWInfo<TWAcctPos<Fpos,5>> = RetRes\r\n\t\t\t TWInfo<TWAcctPos<Fpos,6>> = RetConc\r\n\t\t\t TWInfo<TWAcctPos<Fpos,7>> = RetStress\r\n\t\t\t TWInfo<TWAcctPos<Fpos,8>> = RetTrans\r\n\t\t\t TWInfo<TWAcctPos<Fpos,9>> = 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<mtext$> = 'There are no test wafers!'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |