DITTALOC DITTPRFX ALOCSAVE,'ALLOCATE DEVICE'
USING DITTCOMM,R11 SPECIFY BASE
DITTRACE ID=ENTRY, TRACE ENTRY +
DATA1=COMMINU .. TRACE CUU RECEIVED
TM COMMFLAG,$COMMCLS 'CLOSE' IN PROGRESS??
BO ALOC9900 YES.. NOTHING FOR US TO DO
ALOC0010 DS 0H
MVI DAIRTYPE,$DAIRCUU LOCATE DYNBLOCK BY CUU
MVC DAIRCUU,COMMINU MOVE UNIT ADDRESS
C R12,COMMINM RUNNING AS INPUT MODULE?
BE ALOC0020 YES.. THEN FUNCTION IS 'ACQ'
C R12,COMMOUTM RUNNING AS OUTPUT MODULE?
BE ALOC0030 YES.. THEN FUNCTION IS 'REL'
ABEND ABEND013,DUMP,,USER ABEND WITH REASON
ALOC0020 DS 0H
DITTRACE ID=ALOCACQ TRACE CALLS TO DAIR MODULE
MVI DAIRCMMD,$DAIRACQ ALLOCATION REQUEST
B ALOC0040
ALOC0030 DS 0H
Thanks all.
Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Ct.
Confidentiality Notice
Unless expressly stated otherwise, this message is confidential and may be
privileged. It is intended for the addressee(s) only. Access to this e-mail
by anyone else is unauthorized. If you are not an addressee, any disclosure or
copying of the contents of this e-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an
addressee, please inform the sender immediately and delete this message from
your system.
----------------------------------------------------------------------
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
