***********************************************************************
* CSECT-NAME: BPXTPOST
*
* DESCRIPTIVE-NAME: Post an ECB
*
* Input: R1 - parm list:
* ASCB address
* Address of ECB
*
***********************************************************************
BPXTPOST CSECT
BPXTPOST AMODE ANY
BPXTPOST RMODE ANY
ENTRY BPXTPOST
EDCPRLG USRDSAL=POSTLN
USING POSTDYN,R13
MVC POSTL(POSTLN),POSTS copy POST parmlist to dynamic area
L R2,0(,R1) get addr of ascb addr
L R2,0(,R2) get ascb addr
L R4,4(,R1) get addr of ECB to post
POST (R4),ASCB=(R2),ERRET=POSTERR,ECBKEY=0,LINKAGE=SYSTEM, X
MF=(E,POSTL)
EDCEPIL
POSTS POST 0,ASCB=0,ERRET=0,ECBKEY=YES,MF=L
POSTERR BR R14
POSTDYN EDCDSAD
POSTL POST 0,ASCB=0,ERRET=0,ECBKEY=YES,MF=L
POSTLN EQU *-POSTL
IHAPSA
*