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