*DECK CDCSCTX 
      PRGM CDCSCTX; 
      CONTROL STEXT;
# *CALL CDCSCOMMN # 
*CALL CDCSCOMMN 
      TERM
