*DECK RVRSCTX 
      PRGM RVRSCTX; 
      CONTROL STEXT;
# *CALL CDGDFDCLS # 
*CALL CDGDFDCLS 
# *CALL CUGDFDCLS # 
*CALL CUGDFDCLS 
# *CALL RVRSCOMMN # 
*CALL RVRSCOMMN 
      TERM
