Mike,
There is an acb error code (2 or 4 bytes) that is useful. It used to be
documented w/the VTAM OPEN as opposed to VSAM open. If I remember
correctly it should be in the VTAM programming book(s). That will get
you more detail.
Ray Overby
Michael Knigge wrote:
All,
we currently move to another z/OS System (ADCD-based) and I have a
poblem with one of our applications.
This dialog-application generates the 3270 Datastream itself and
communicates to the 3270 terminals using a VTAM ACB.
I've configured this ACB as usual:
AMYAPP VBUILD TYPE=APPL
MYAPP APPL APPC=YES,
AUTH=(ACQ,PASS),
MODETAB=LOGMODES,
PARSESS=YES
(of couse, I've put the continuation char in column 72)
The command "D NET,IP=MYAPP,SCOPE=ALL" gives the following:
IST075I NAME = ADCD.MYAPP, TYPE = APPL
IST486I STATUS= CONCT, DESIRED STATE= CONCT
IST1447I REGISTRATION TYPE = CDSERVR
IST977I MDLTAB=***NA*** ASLTAB=***NA***
IST861I MODETAB=LOGMODES USSTAB=***NA*** LOGTAB=***NA***
IST934I DLOGMOD=***NA*** USS LANGTAB=***NA***
IST1632I VPACING = 8
IST1938I APPC = YES
IST597I CAPABILITY-PLU INHIBITED,SLU INHIBITED,SESSION LIMIT NONE
IST231I APPL MAJOR NODE = AMYAPP
IST654I I/O TRACE = OFF, BUFFER TRACE = OFF
IST1500I STATE TRACE = OFF
IST271I JOBNAME = ***NA***, STEPNAME = ***NA***, DSPNAME ***NA***
IST228I ENCRYPTION = OPTIONAL , TYPE = DES
IST1563I CKEYNAME = MYAPP CKEY = PRIMARY CERTIFY = NO
IST1552I MAC = NONE MACTYPE = NONE
IST1050I MAXIMUM COMPRESSION LEVEL - INPUT = 0, OUTPUT = 0
IST1633I ASRCVLM = 1000000
IST1634I DATA SPACE USAGE: CURRENT = ***NA*** MAXIMUM = ***NA***
IST171I ACTIVE SESSIONS = 0000000000, SESSION REQUESTS = 0000000000
IST172I NO SESSIONS EXIST
IST314I END
Now, when I tra to open the ACB in my assembler prog, I get the RC=8
in R15. This just says "ACB was not opened" - very helpful :-(
Any hints how to track this down? My VTAM Skills are very, very, very
limited (I'm a Coder - not an VTAM-Admin)!
OPEN PACB
.......
PACB ACB AM=VTAM,APPLID=APPL1,EXLST=EXLST1,MACRF=LOGON
EXLST1 EXLST AM=VTAM,LOGON=LOGON1,SYNAD=SYNAD1,LERAD=LERAD1,
RESP=RESP1,TPEND=TPEND1,LOSTERM=LOSTERM1,
DFASY=DFASY1,NSEXIT=NSEXIT1,RELREQ=RELREQ1,SCIP=SCIP1
.....
APPL1 DC X'08'
APPL1A DC CL8'MYAPP '
Thank you very much for any hint!
Bye,
Michael
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
