*DECK OUTPK24 
          IDENT  OUTPK24
 B=OPK24  RPVDEF             DEFINE ROUTINE FWA FOR REPRIEVE UTILITY
*CALL,SSTCALL 
 .TEST    IFEQ   TEST,0 
*CALL OUTPTK
 .TEST    ENDIF 
          END 
