pjbl

Public Sub OnLoad(Screen As String, ActiveField As String, CntScreen As Integer, RunIdx As Integer)
    On Error Resume Next
        Select Case PJBLoader.MIMSMessage
            Case ""
                Select Case Screen
                    Case "MSM904A"
                        If PJBLoader.MIMSCommand("XMIT-Confirm") Then
                            PJBLoader.SendKey Enter
                            PJBLoader.XLSStatus = "OK"
                        ElseIf PJBLoader.MIMSCommand("XMIT-Validate") Then
                            If flag = False Then
                                If PJBLoader.NextData("TRAN_ID1I") Then
                                    PJBLoader.MIMSData("TRAN_ID1I") = PJBLoader.XLSData("TRAN_ID1I")
                                    PJBLoader.SendKey Enter
                                    flag = True
                                Else
                                    PJBLoader.LoadStop True
                                End If
                            Else
                                PJBLoader.MIMSData("REASON1I") = PJBLoader.XLSData("REASON1I")
                                PJBLoader.SendKey Enter
                                flag = False
                            End If
                        End If

                    Case Else
                        PJBLoader.XLSStatus(vbRed) = "Unknown Screen [" & Screen & "]"
                        PJBLoader.SendKey F3
                End Select

            Case Else
                PJBLoader.XLSStatus(vbRed) = Screen & ":" & ActiveField & ":" & PJBLoader.MIMSMessage
                PJBLoader.XLSData(ActiveField).Select
                PJBLoader.SendKey F3
        End Select
End Sub