*DECK CGDNATS 
USETEXT CCTTEXT 
USETEXT DNTEXT
          PROC  CGDNATS;
          XDEF PROC CGPDNAT;
*CALL M$
*CALL FIXED 
*CALL FIXCOM
*CALL TABLETYP
          XREF
              BEGIN 
              PROC  CGABORT;
              FUNC   VIRTUAL; 
              END 
          ITEM  VI; 
          CONTROL EJECT;
          PROC  CGPDNAT;     #ADD PERMANENT DNAT ENTRY# 
          BEGIN 
          CCTDNATLEN = CCTDNATLEN + 1;
          FIXEDCELL[FIXED"T1"] = CCTDNATLEN;
          RETURN; 
          END 
          BEGIN 
          END 
          TERM
