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