I've recorded a macro in PCOMM 5.8 for ELF (Express Logon Feature) purposes. The macro and the whole ELF stuff are working fine; however the macro always fails on the first connection attempt after starting the PCOMM window. If I disconnect and connect again, the macro is working fine, so apparently it is a timing problem. Here is the macro:

[wait app]
[wait inp inh]
"l tso
[enter]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (1,26)
wait 10 sec until cursor at (2,1)
[wait app]
[wait inp inh]
elf applid TSOSYS1
")USR.ID(
[enter]
[wait inp inh]
wait 10 sec until FieldAttribute 000C at (8,19)
wait 10 sec until cursor at (8,20)
[wait app]
[wait inp inh]
")PSS.WD(
[enter]

To explain a little better what is happening, our system is an ADCD system running on a Tserver. On the initial screen, the macro first enters "L TSO" to get the userid prompt. Apparently, this string is entered before the screen is ready to accept the input (in spite of the two "wait" statements that were generated when the macro was recorded). Subsequently, the userid is entered at the wrong time and the whole process gets out of sync.

I'm looking for a modification to the macro that would make it wait until the initial screen has really been set up. Note: Entering "LOGON userid" on this first screen does not work well with ELF, it needs the userid prompt. This is the relevant part of the first screen:

                       Application Developer System

// OOOOOOO SSSSS
                               //  OO    OO SS
                       zzzzzz //  OO    OO SS
                         zz  //  OO    OO SSSS
                       zz   //  OO    OO     SS
                     zz    //  OO    OO      SS
                   zzzzzz //   OOOOOOO  SSSSS


                   System Customization - ADCD.Z.*





 ===> Enter "LOGON" followed by the TSO userid. Example "LOGON IBMUSER" or
 ===> Enter L followed by the APPLID
 ===> Examples: "L TSO", "L CICS", "L IMS3270
--
Ulrich Boche
SVA GmbH, Germany
IBM Premier Business Partner

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to