*DECK JLPCMTX 
      PRGM JLPCMTX; 
      CONTROL STEXT;
# *CALL JLPCMDCL2 # 
*CALL JLPCMDCLS 
      TERM
