Emulador AS400 - VBScript

[EDI.MAIS]

Pessoal, não sou programador mas preciso de uma ajuda urgente:

Tenho que criar uma Lógica em VBscript no AS00 que consiga analisar o problema abaixo:

1º Reconhecer a "/" que separa o SOBRENOME do NOME

2º Comparar o 1º SOBRENOME com o 2º SOBRENOME, analisando os 7 últimos digitos. No exemplo abaixo VILLELA=VILLELA

3º Comparar o 1º NOME com o 2º NOME, analisando os 7 últimos digitos. No exemplo abaixo ANDRE=ANDRE

4º Se os itens 2º e 3º acima forem Verdadeiros, inserir "Y" no campo "3. Same Person":

SOBRENOME NOME

1.POMPEO DE CAMARGO VILLELA/ANDRE 3.Same Person N/Y

2.POMPEO DE CAMARGO VILLELA/ANDRE

....................1234567/1234567

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=alteração ou inserção de cartão de crédito
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()

Dim sTextoLinha,NumXE,CTInvalido,ProcCartao,ApagaNumCT
Dim iNum


For iNum = 1 to 23
sTextoLinha = trim(autECLSession.autECLPS.GetText(inum,1,80))
if sTextoLinha = "/" Then
autECLSession.autECLPS.SendKeys "md"
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.Wait(1500)
autECLSession.autECLOIA.WaitForAppAvailable
iNum = 1
elseif sTextoLinha = ">" Then
exit for
end if

autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[PF4]"
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[RESET]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[PF19]"
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[ENTER]"
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.Wai

Editado Julho 11, 2010 por Jonathan Queiroz
Remover caixa alta do título conforme regra 3.7 e adicionar tag's (Jonathan)