The following assembler program example shows how to invoke
the RCCClose request:
***********************************************************************
* RCCClose request *
* *
* The RCCHeader is reused from the RCCOpen request. *
* *
***********************************************************************
Close DS 0H
MVI RCHRRequest,RCCClose Setup request header
XR R0,R0 No other input structure
STH R0,RCHRNum
LHI R0,RCHRSize Size of request header
ST R0,DynReqLn
*
EZBRCIFR RCCHeader,DynReqLn, X
DynRtVal,DynRtCde,DynRtRsn, X
MF=(E,DynRcIfr) Issue RCCStart request
LT R15,DynRtVal Did it work?
JNZ ErrRtn Error
.
.
DynRcIfr EZBRCIFR MF=L RCC API parameter list
DynReqLn DS F Length of request input
DynRtVal DS F Return value
DynRtCde DS F Return Code
DynRtRsn DS F Reason Code
DynRccH DS XL(RCHRSize) Space for the RCC header