%imacro invoke 1.nolist
	extern   %1
	CALL    %1
%endmacro

extern RCH_ADDR

section TRANCODE	; transpace   ends
;---------------

	invoke	output_batch_name		;AN022; set up batch name in bwdbuf
	CALL	far [cs:RCH_ADDR]			; DX has error number

global	output_batch_name			;AN022;