Hi K8MTR,
I do not have a ACL which can be used for Netmaster but I have a frame which can be used for every application.
An ACL receives the data streams (panels) from the application and automatically replies to them. To find out which data stream arrives it searches for a characteristic string. If that is found, the desired data is entered and sent back to the application. Then the next data stream arrives and the Ping-Pong goes on.
So in three steps this is what an ACL does:
a) Search for characteristic Strings in Datastream from appl.
b) If string appears, then enter required input and hit ENTER.
c) Repeat a) and b) if necessary.
While this is valid for each application you can use this example here and change it so that it fits for Netmaster.
OPTION TERM,OFF
OPTION FLOW,OFF
OPTION MAXI,200
OPTION TIME=10,TIMEOUT
WINP
*-----------------------------------------------------------------*
* Search for 'IKJ56700A'
*-----------------------------------------------------------------*
SET A1,0
SET A2,3
IKJ567 NOP
SEARCH IKJ56700A
BRANCH EQ,USER
ADD A1,1
COMPARE A1,A2
BRANCH LT,IKJ567
*-----------------------------------------------------------------*
* Three failed trials, now end the ACL
*-----------------------------------------------------------------*
MSG 'User &USERID could not logon to TSO'
BRANCH ANY,ENDE
*
*=================================================================*
* 1. Step: Enter Userid
*=================================================================*
USER NOP
KEY &USERID
ENTER
*-----------------------------------------------------------------*
* Search for 'Acct Nmbr'
*-----------------------------------------------------------------*
SET A1,0
SET A2,3
ACCTNMBR NOP
SEARCH 'Acct Nmbr'
BRANCH EQ,PASSWORT
ADD A1,1
COMPARE A1,A2
BRANCH LT,ACCTNMBR
*-----------------------------------------------------------------*
* Three failed trials, now end the ACL
*-----------------------------------------------------------------*
MSG 'User &USERID could not logon to TSO54'
BRANCH ANY,ENDE
*
*=================================================================*
* 2. Enter Passworts
*=================================================================*
PASSWORT NOP
KEY &USERPW
ENTER
*-----------------------------------------------------------------*
* Search for 'Ready'
*-----------------------------------------------------------------*
SET A1,0
SET A2,3
READY NOP
SEARCH 'READY'
BRANCH EQ,PDF
ADD A1,1
COMPARE A1,A2
BRANCH LT,READY
*-----------------------------------------------------------------*
* Three failed trials, now end the ACL
*-----------------------------------------------------------------*
MSG 'User &USERID could not logon to TSO54'
BRANCH ANY,ENDE
*
*=================================================================*
* 3. Enter 'pdf'
*=================================================================*
PDF NOP
KEY pdf
ENTER
*
ENDE NOP
STOP
*
TIMEOUT NOP
MSG 'ACL TSO timed out'
STOP