{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function msg, send_event, admin_user, center_window, memberof\r\ndeclare subroutine end_dialog\r\n$insert msg_equates\r\n$insert spc_limits_equ\r\n\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n    void = center_window( @window )\r\nend else\r\n    Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nif memberof( @user4, 'ENGINEERING' ) then  \r\n\topen 'CONFIG' to ConfigTable else\r\n\t   Void = msg( '', 'Unable to open CONFIG table' )\r\n\t   end_dialog( @window, '' )\r\n\t   return 0\r\n\tend\r\n\tlock ConfigTable, 'SPC_LIMITS' else\r\n\t   Void = msg( '', 'SPC_LIMITS is in use somewhere else...' )\r\n\t   end_dialog( @window, '' )\r\n\t   return 0\r\n\tend\r\n\tread LimitInfo from ConfigTable, 'SPC_LIMITS' then\r\n\t    if LimitInfo then\r\n           .srd_min->text           = LimitInfo<SRDParticleMin$>\r\n           .srd_max->text           = LimitInfo<SRDParticleMax$>\r\n           .srd_chg_date->text      = oconv( LimitInfo<SRDParticleDate$>, 'D2/' )\r\n           *\r\n           .sc1_min->text           = LimitInfo<SC1ParticleMin$>\r\n           .sc1_max->text           = LimitInfo<SC1ParticleMax$>\r\n           .sc1_chg_date->text      = oconv( LimitInfo<SC1ParticleDate$>, 'D2/' )\r\n           *\r\n           .hf_min->text            = LimitInfo<HFParticleMin$>\r\n           .hf_max->text            = LimitInfo<HFParticleMax$>\r\n           .hf_chg_date->text       = oconv( LimitInfo<HFParticleDate$>, 'D2/' )\r\n           *\r\n           .hf_etch_min->text       = LimitInfo<HFEtchRemMin$>\r\n           .hf_etch_max->text       = LimitInfo<HFEtchRemMax$>\r\n           .hf_etch_chg_date->text  = oconv( LimitInfo<HFEtchRemDate$>, 'D2/' )\r\n           *\r\n           .waf_etch_min->text      = oconv( LimitInfo<WafEtchMin$>, 'MD3' )\r\n           .waf_etch_max->text      = oconv( LimitInfo<WafEtchMax$>, 'MD3' )\r\n           .waf_etch_chg_date->text = oconv( LimitInfo<WafEtchDate$>, 'D2/' )\r\n            *\r\n           EvalFTIRInfo                = ''\r\n           EvalFTIRInfo<1>             = LimitInfo<EvalFTIRHWaferID$>\r\n           EvalFTIRInfo<2>             = oconv( LimitInfo<EvalFTIRHMin$>, 'MD3' )\r\n  \t\t   EvalFTIRInfo<3>             = oconv( LimitInfo<EvalFTIRHMax$>, 'MD3' )\r\n  \t\t   EvalFTIRInfo<4>             = oconv( LimitInfo<EvalFTIRHDate$>, 'D2/' )\r\n  \t\t   EvalFTIRInfo<5>             = LimitInfo<EvalFTIRMWaferID$>\r\n  \t\t   EvalFTIRInfo<6>             = oconv( LimitInfo<EvalFTIRMMin$>, 'MD3' )\r\n  \t\t   EvalFTIRInfo<7>             = oconv( LimitInfo<EvalFTIRMMax$>, 'MD3' )\r\n  \t\t   EvalFTIRInfo<8>             = oconv( LimitInfo<EvalFTIRMDate$>, 'D2/' )\r\n  \t\t   EvalFTIRInfo<9>             = LimitInfo<EvalFTIRLWaferID$>\r\n  \t\t   EvalFTIRInfo<10>            = oconv( LimitInfo<EvalFTIRLMin$>, 'MD3' )\r\n  \t\t   EvalFTIRInfo<11>            = oconv( LimitInfo<EvalFTIRLMax$>, 'MD3' )\r\n  \t\t   EvalFTIRInfo<12>            = oconv( LimitInfo<EvalFTIRLDate$>, 'D2/' )\r\n  \t\t   .eval_FTIR_info->array      = EvalFTIRInfo\r\n           *\r\n           EvalFTIRStdevInfo = ''\r\n           EvalFTIRStdevInfo<1>  = LimitInfo<EvalFTIRHStdevWaferID$>\r\n           EvalFTIRStdevInfo<2>  = oconv( LimitInfo<EvalFTIRHStdevMin$>, 'MD3' )\r\n           EvalFTIRStdevInfo<3>  = oconv( LimitInfo<EvalFTIRHStdevMax$>, 'MD3' )\r\n           EvalFTIRStdevInfo<4>  = oconv( LimitInfo<EvalFTIRHStdevDate$>, 'D2/' )\r\n           EvalFTIRStdevInfo<5>  = LimitInfo<EvalFTIRMStdevWaferID$>\r\n           EvalFTIRStdevInfo<6>  = oconv( LimitInfo<EvalFTIRMStdevMin$>, 'MD3' )\r\n           EvalFTIRStdevInfo<7>  = oconv( LimitInfo<EvalFTIRMStdevMax$>, 'MD3' )\r\n           EvalFTIRStdevInfo<8>  = oconv( LimitInfo<EvalFTIRMStdevDate$>, 'D2/' )\r\n           EvalFTIRStdevInfo<9>  = LimitInfo<EvalFTIRLStdevWaferID$>\r\n           EvalFTIRStdevInfo<10> = oconv( LimitInfo<EvalFTIRLStdevMin$>, 'MD3' )\r\n           EvalFTIRStdevInfo<11> = oconv( LimitInfo<EvalFTIRLStdevMax$>, 'MD3' )\r\n           EvalFTIRStdevInfo<12> = oconv( LimitInfo<EvalFTIRLStdevDate$>, 'D2/' )\r\n           .eval_FTIR_stdev_info->array = EvalFTIRStdevInfo\r\n           *\r\n           EvalADEInfo                = ''\r\n           EvalADEInfo<1>             = LimitInfo<EvalADEHWaferID$>\r\n           EvalADEInfo<2>             = oconv( LimitInfo<EvalADEHMin$>, 'MD3' )\r\n  \t\t   EvalADEInfo<3>             = oconv( LimitInfo<EvalADEHMax$>, 'MD3' )\r\n  \t\t   EvalADEInfo<4>             = oconv( LimitInfo<EvalADEHDate$>, 'D2/' )\r\n  \t\t   EvalADEInfo<5>             = LimitInfo<EvalADEMWaferID$>\r\n  \t\t   EvalADEInfo<6>             = oconv( LimitInfo<EvalADEMMin$>, 'MD3' )\r\n  \t\t   EvalADEInfo<7>             = oconv( LimitInfo<EvalADEMMax$>, 'MD3' )\r\n  \t\t   EvalADEInfo<8>             = oconv( LimitInfo<EvalADEMDate$>, 'D2/' )\r\n  \t\t   EvalADEInfo<9>             = LimitInfo<EvalADELWaferID$>\r\n  \t\t   EvalADEInfo<10>            = oconv( LimitInfo<EvalADELMin$>, 'MD3' )\r\n  \t\t   EvalADEInfo<11>            = oconv( LimitInfo<EvalADELMax$>, 'MD3' )\r\n  \t\t   EvalADEInfo<12>            = oconv( LimitInfo<EvalADELDate$>, 'D2/' )\r\n  \t\t   .eval_ADE_info->array      = EvalADEInfo\r\n           *\r\n           EvalADEStdevInfo = ''\r\n           EvalADEStdevInfo<1>  = LimitInfo<EvalADEHStdevWaferID$>\r\n           EvalADEStdevInfo<2>  = oconv( LimitInfo<EvalADEHStdevMin$>, 'MD3' )\r\n           EvalADEStdevInfo<3>  = oconv( LimitInfo<EvalADEHStdevMax$>, 'MD3' )\r\n           EvalADEStdevInfo<4>  = oconv( LimitInfo<EvalADEHStdevDate$>, 'D2/' )\r\n           EvalADEStdevInfo<5>  = LimitInfo<EvalADEMStdevWaferID$>\r\n           EvalADEStdevInfo<6>  = oconv( LimitInfo<EvalADEMStdevMin$>, 'MD3' )\r\n           EvalADEStdevInfo<7>  = oconv( LimitInfo<EvalADEMStdevMax$>, 'MD3' )\r\n           EvalADEStdevInfo<8>  = oconv( LimitInfo<EvalADEMStdevDate$>, 'D2/' )\r\n           EvalADEStdevInfo<9>  = LimitInfo<EvalADELStdevWaferID$>\r\n           EvalADEStdevInfo<10> = oconv( LimitInfo<EvalADELStdevMin$>, 'MD3' )\r\n           EvalADEStdevInfo<11> = oconv( LimitInfo<EvalADELStdevMax$>, 'MD3' )\r\n           EvalADEStdevInfo<12> = oconv( LimitInfo<EvalADELStdevDate$>, 'D2/' )\r\n           .eval_ADE_stdev_info->array = EvalADEStdevInfo\r\n           *\r\n           Eval4PPInfo = ''\r\n           Eval4PPInfo<1> = LimitInfo<Eval4PPHWaferID$>\r\n           Eval4PPInfo<2> = LimitInfo<Eval4PPHMin$>\r\n           Eval4PPInfo<3> = LimitInfo<Eval4PPHMax$>\r\n           Eval4PPInfo<4> = oconv( LimitInfo<Eval4PPHDate$>, 'D2/' )\r\n           Eval4PPInfo<5> = LimitInfo<Eval4PPMWaferID$>\r\n           Eval4PPInfo<6> = LimitInfo<Eval4PPMMin$>\r\n           Eval4PPInfo<7> = LimitInfo<Eval4PPMMax$>\r\n           Eval4PPInfo<8> = oconv( LimitInfo<Eval4PPMDate$>, 'D2/' )\r\n           Eval4PPInfo<9> = LimitInfo<Eval4PPLWaferID$>\r\n           Eval4PPInfo<10> = LimitInfo<Eval4PPLMin$>\r\n           Eval4PPInfo<11> = LimitInfo<Eval4PPLMax$>\r\n           Eval4PPInfo<12> = oconv( LimitInfo<Eval4PPLDate$>, 'D2/' )\r\n           .eval_4pp_info->array = Eval4PPInfo\r\n           *\r\n           Eval4PPStdevInfo = ''\r\n           Eval4PPStdevInfo<1> = LimitInfo<Eval4PPHStdevWaferID$>\r\n           Eval4PPStdevInfo<2> = oconv( LimitInfo<Eval4PPHStdevMin$>, 'MD3' )\r\n           Eval4PPStdevInfo<3> = oconv( LimitInfo<Eval4PPHStdevMax$>, 'MD3' )\r\n           Eval4PPStdevInfo<4> = oconv( LimitInfo<Eval4PPHStdevDate$>, 'D2/' )\r\n           Eval4PPStdevInfo<5> = LimitInfo<Eval4PPMStdevWaferID$>\r\n           Eval4PPStdevInfo<6> = oconv( LimitInfo<Eval4PPMStdevMin$>, 'MD3' )\r\n           Eval4PPStdevInfo<7> = oconv( LimitInfo<Eval4PPMStdevMax$>, 'MD3' )\r\n           Eval4PPStdevInfo<8> = oconv( LimitInfo<Eval4PPMStdevDate$>, 'D2/' )\r\n           Eval4PPStdevInfo<9> = LimitInfo<Eval4PPLStdevWaferID$>\r\n           Eval4PPStdevInfo<10> = oconv( LimitInfo<Eval4PPLStdevMin$>, 'MD3' )\r\n           Eval4PPStdevInfo<11> = oconv( LimitInfo<Eval4PPLStdevMax$>, 'MD3' )\r\n           Eval4PPStdevInfo<12> = oconv( LimitInfo<Eval4PPLStdevDate$>, 'D2/' )\r\n           .eval_4pp_stdev_info->array = Eval4PPStdevInfo\r\n           *\r\n           .react_part_min->text = LimitInfo<ReactPartMin$>\r\n           .react_part_max->text = LimitInfo<ReactPartMax$>\r\n           .react_part_date_chg->text = oconv( LimitInfo<ReactPartDate$>, 'D2/' )\r\n           *\r\n           .react_haze_min->text  = oconv( LimitInfo<ReactHazeMin$>, 'MD2' )\r\n           .react_haze_max->text  = oconv( LimitInfo<ReactHazeMax$>, 'MD2' )\r\n           .react_haze_date_chg->text = oconv( LimitInfo<ReactHazeDate$>, 'D2/' )\r\n           *\r\n           .hf_ake_etch_min->text = LimitInfo<HFEtchAkrionRemEtchMin$>\r\n           .hf_ake_etch_max->text = LimitInfo<HFEtchAkrionRemEtchMax$>\r\n           .hf_ake_etch_date->text = oconv( LimitInfo<HFEtchAkrionRemEtchDate$>, 'D2/' )\r\n           .hf_akd_etch_min->text = LimitInfo<HFEtchAkrionRemDiluteMin$>\r\n           .hf_akd_etch_max->text = LimitInfo<HFEtchAkrionRemDiluteMax$>\r\n           .hf_akd_etch_date->text = oconv( LimitInfo<HFEtchAkrionRemDiluteDate$>, 'D2/' )\r\n           *\r\n           .hf_akq_min->text = LimitInfo<HFParticleAkrionQualMin$>\r\n           .hf_akq_max->text = LimitInfo<HFParticleAkrionQualMax$>\r\n           .hf_akq_date->text = oconv( LimitInfo<HFParticleAkrionQualDate$>, 'D2/' )\r\n           .hf_akh_min->text = LimitInfo<HFParticleAkrionHFLastMin$>\r\n           .hf_akh_max->text = LimitInfo<HFParticleAkrionHFLastMax$>\r\n           .hf_akh_date->text = oconv( LimitInfo<HFParticleAkrionHFLastDate$>, 'D2/' )           \r\n\t    end\r\n\tend\r\nend else\r\n   Message = 'You do not have the proper security to enter SPC Limits...' \r\n   Message<micon$> = 'H'\r\n   Void = msg( '', Message )\r\n   Void = send_event( @window, 'CLOSE' )\r\nend\r\nRETURN 0"
        }
    }
}