A sample OfficeVision/MVS startup ACL/E program for a CICS session is shown in the following. You must customize this program for your system.
Sample ACL/E programs for CICS (OVACCICS), IMS (OVACIMS), and TSO (OVACTSO) are provided in the CA TPX CB0VSRC data set. If you use these ACL/E programs, make sure you customize them for your environment.
OPTION FLOW,OFF
OPTION MAXI,100 MAKE SURE WE DON'T GET INTO A LOOP
OPTION TERM,OFF
OPTION TIME=120 MAKE SURE WE DON'T TIME OUT
*
LOOPSRCH NOP
SEARCH 'WELCOME TO CICS' GOOD MORNING MESSAGE FROM CICS?
BRANCH EQ,DOCESN YES, PROCEED
WAIT 1 WAIT A LITTLE
BRANCH ANY,LOOPSRCH TRY AGAIN
DOCESN NOP
CLEAR CLEAR SCREEN FOR TRANSACTION
KEY 'CESN' DO CICS SIGNON
ENTER
SEARCH 'USERID:' LOOK FOR FIELD PROMPT
BRANCH NE,STOP NO, CAN'T CONTINUE
KEY '&USERID' ENTER THE USERID
TABF 1
KEY '&PSWD' ENTER THE PASSWORD
ENTER
SEARCH 'SIGN-ON IS COMPLETE' SIGNON OK?
BRANCH NE,STOP NO, CAN'T CONTINUE
CLEAR CLEAR SCREEN FOR TRANSACTION
*
DOOVMVS NOP MAKE SURE YOU ONLY REACH THIS
* POINT IF THE USER HAS SUCCESSFULLY
* SIGNED ON AND CICS IS READY FOR A
* TRANSACTION TO BE ENTERED
COMPARE &OVMVSACI, 'OK' START OV/MVS AC SESSION
BRANCH ANY,STOP RESULT OF COMPARE DOESN'T MATTER
*
STOP STOP
|
Copyright © 2013 CA.
All rights reserved.
|
|