*DECK RELCMTX 
      PRGM RELCMTX; 
      CONTROL STEXT;
# *CALL RELCMDCLS # 
*CALL RELCMDCLS 
      TERM
