Programming Example

The following example checks the CXPTMPITEM table with a CTI prefix for all types of comments using the DCTI@C@FOUND variable. After checking for comments, the procedure calls CCPYRNG.

      EVAL      DCTI@C@TYPE    = *BLANKS
      CALLP     U@@ATTACHIO('CFNDBEG': DCTI@@HANDLE:
                %ADDR(DCTI@C@@PATH): %ADDR(DCTI@RECORD):  
                %ADDR(DCTI@C@))                           
      IF        DCTI@C@FOUND = 0                          
      CALLP     U@@ATTACHIO('CCPYRNG': DCTI@@HANDLE:      
                %ADDR(DCTI@C@@PATH): %ADDR(DCTI@RECORD):  
                %ADDR(DCTI@C@))                           
      ENDIF