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