lParam whattwonumber findMOInfoString = "SELECT ordno, refno, curop, ostat From amflib6.momast Where refno = '" + whattwonumber + "'" pdmVar.GlobalSQLString = findMOInfoString If SQLEXEC(pdmVar.as400con, findMOInfoString, 'findMOInfoQuery') <> -1 Then Do Case Case reccount("findMOInfoQuery") < 1 Return PadR("No MO has been issued!",60) Case findMOInfoQuery.ostat = "10" Return PadR("MO-"+findMOInfoQuery.ordno + " Status - " + findMOInfoQuery.ostat,60) Case findMOInfoQuery.ostat = "45" Return PadR("MO-"+findMOInfoQuery.ordno + " Status - " + findMOInfoQuery.ostat,60) Case findMOInfoQuery.ostat = "40" findMOInfoString2 = "SELECT ordno, opseq, wkctr, opstc From amflib6.morout Where ordno = '" + findMOInfoQuery.ordno + "'" pdmVar.GlobalSQLString = findMOInfoString2 If SQLEXEC(pdmVar.as400con, findMOInfoString2, 'findMOInfoQuery2') <> -1 Do Case Case reccount("findMOInfoQuery2") < 1 Return PadR("No MO was found!",60) Otherwise Select Max(opseq) As opseq, wkctr, opstc From findMOInfoQuery2 Where opstc = '20' InTo Cursor findMOInfoQuery3 Group by wkctr, opstc *Select Max(opseq) As opseq, wkctr, opstc From findMOInfoQuery2 Where opstc = '20' InTo Cursor findMOInfoQuery3 &&Current Operation If reccount("findMOInfoQuery3") > 0 Then Return PadR("MO-"+findMOInfoQuery2.ordno + " @ " + findMOInfoQuery3.opseq+" - " + findMOInfoQuery3.wkctr,60) Else Select Max(opseq) As opseq, wkctr, opstc From findMOInfoQuery2 Where opstc = '30' InTo Cursor findMOInfoQuery3 Group by wkctr, opstc &&In Work Operation If reccount("findMOInfoQuery3") > 0 Then Return PadR("MO-"+findMOInfoQuery2.ordno + " @ " + findMOInfoQuery3.opseq+" - " + findMOInfoQuery3.wkctr,60) Else Select Max(opseq) As opseq, wkctr, opstc From findMOInfoQuery2 Where opstc = '40' InTo Cursor findMOInfoQuery3 Group by wkctr, opstc &&Last Operation Complete If reccount("findMOInfoQuery3") > 0 Then Return PadR("MO-"+findMOInfoQuery2.ordno + " Status - " + findMOInfoQuery3.opstc,60) Else Return PadR("",60) EndIf EndIf EndIf EndCase Else Return PadR("No Info Found!",60) EndIf OtherWise Return PadR("MO is Closed!",60) EndCase Else Return PadR("No Info Found!",60) EndIf