UPXMT 
.PROC,UPXMT*I,
LFN     ' FILE NAME TO ADD TO XMTFILE          '=(*F),
PROC    ' PROCEDURE TO CALL                    '=(*F),
PARAM   ' PARAMETERS TO PASS TO PROC           '=(*A,), 
*CALL COMPROC 
. 
  
REWIND(LFN) 
COPYBF(LFN,XMTFILE) 
EDIT(XMTPROC,I=ZZZZZIN,L=L) 
  
RETURN(ZZZZZIN) 
  
REVERT. UPXMT 
EXIT. UPXMT 
REVERT(ABORT) UPXMT 
.DATA,ZZZZZIN 
F:/REVERT./    $ FIND END OF MAIN BODY OF PROC
S;-1           $ BACK UP TO LINE BEFORE REVERT
A              $ INSERT DIRECTIVE PASSED INTO PROC
/BEGIN(_PROC,INSTALL_PARAM)/
END            $ DONE 
*WEOR 
