900-FIND-BEGRNG-CMT

The 900-FIND-BEFRNG-CMT-<FileName> routine finds the first comment for a record.

The order of the comments (by name, date, or time) is specified by the value of CMT<Prefix>-CMT-ORDER .

The name stored with the comment is that of the user who created the comment.

Programming Example

The example shown here finds the comment and appends whatever is in the variable CMT<Prefix>-EXT-TEXT .

        PERFORM 900-FIND-BEGRNG-CMT-COMPANY.
        PERFORM 900-APPEND-CMT-COMPANY.