CAPPEND

CAPPEND routine appends the text in the variable to the comment attachment for the current record.

Using the API in a Program

To preserve spacing within the comment, you can set the D<Prefix>@C@EXTXSZ variable to the size of the text being appended to the comment.

A value of zero in the D<Prefix>@C@EXTXSZ variable tells the API to trim trailing spaces. Lawson recommends using a value of zero for this variable when the end of the comment is being appended.

Programming Example

This example appends data in DCOM@C@EXTX to a comment attached to a record in the COMPANY file.

      EVAL      RG6@DTLCMM = DCOM@C@EXTX  
      CALLP     U@@ATTACHIO('CAPPEND': DCOM@@HANDLE:      
                %ADDR(DCOM@C@@PATH): %ADDR(DCOM@RECORD):  
                %ADDR(DCOM@C@))