*DECK COB200
USETEXT DBTEXT
          PRGM COB200;
# * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*         PRGM - COB200 - DUMMY TO DEFINE HASHTAB AND GLOBVAR 
* 
*                USED TO CARRY HASHTAB AND GLOBVAR TO DBTRANS FOR CDCS
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * # 
  
          BEGIN 
CONTROL IFNQ CB5$CDCS,"NO"; 
CONTROL FI; 
*CALL HASHTAB 
          END 
          TERM; 
