900-CREATE-CMT

900-CREATE-CMT-<FileName>creates a comment record for the file record currently being accessed by the program. Before creating the comment, move the user-defined comment type to the variable CMT<Prefix>-TYPE .

To store the comment in the database, use 900-STORE-CMT.

Programming Example

This example sets the comment type, creates the comment, and stores the comment in the database.

Note: The variable names in this example include the three-character database file prefix (<Prefix>). For example, if the program is using the file COMPANY, then the variable CMT<Prefix>-TYPE would be CMTCOM-TYPE . 

        MOVE COM-COMMENTTYPE     TO CMTCOM-TYPE.
        PERFORM 900-CREATE-CMT-COMPANY.
        PERFORM 900-STORE-CMT-COMPANY.