Programming Example

The following example checks the CXPTMPITEM table with a CTI prefix for all types of comments using the CMTCTI-FOUND variable. After checking for comments, the procedure calls 900-COPY-RNG-CMT-CXPTMPITEM .

          MOVE SPACES                TO CTI@c1-TYPE
          PERFORM 900-FIND-BEGRNG-CMT-CXPTMPITEM
          IF (CTI@c1-FOUND)
               PERFORM 900-COPY-RNG-CMT-CXPTMPITEM
          END-IF