*DECK OUTPK20 
          IDENT  OUTPK20
 B=OPK20  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY
*CALL,SSTCALL 
 .TEST    IFNE   TEST,0 
*CALL OUTPTK
 .TEST    ENDIF 
          END 
