900-GET-TEXT-CMT

Using the API in a Program

The size of the segment retrieved can be determined by the value of the CMT<Prefix>-EXT-TEXT-SZ variable. You can specify segments up to 127 bytes long. To preserve spacing within a comment, you can set this variable to the size of the text being appended to the comment. A value of zero in this variable tells the API to trim trailing spaces.

You can control word wrap and hard return placement at the end of each text line retrieved using the following variables:

• CMT<Prefix>-OPT-HARD-RTN

• CMT<Prefix>-OPT-SOFT-RTN

• CMT<Prefix>-NO-HARD-RTN

• CMT<Prefix>-NO-SOFT-RTN

To check whether you have reached the end of text stored in the comment, check the value of the variable CMT<Prefix>-NOT-EOT or CMT<Prefix>-EOT .

     MOVE 50                     TO CMTCOM-EXT-TEXT-SZ.
     SET CMTCOM-HARD-RTN         TO TRUE.
     SET CMTCOM-SOFT-RTN         TO TRUE.
     MOVE ZEROES                 TO CMTCOM-NBR-TEXT-LINES.
     SET CMTCOM-FIRST-CMT-LINE   TO TRUE.
     PERFORM 900-GET-TEXT-CMT-COMPANY.