*DECK PPSET10 
          PRGM PPSET10; 
          BEGIN 
          XREF
              BEGIN 
              PROC SET10; 
              PROC SETRTN;   #RETURN ADDR FROM SETS#
              END 
          SET10;
          SETRTN; 
          STOP;              #SHOULD NEVER GET EXECUTED#
          END 
          TERM
