UPPROD
.PROC,UPPROD*I
. 
  
.IF, (R1G .EQ. 0) ,UPPROD1. 
  COPYBF(IAESMD,TPROD)
  BKSP(TPROD) 
.ELSE(UPPROD1)
  SKIPF(IAESMD)  SKIP OVER BINARIES. ONLY ADD ULIB-S TO TPROD 
.ENDIF(UPPROD1) 
  
REVERT. UPPROD
EXIT. UPPROD
REVERT(ABORT) UPPROD
*WEOR 
