CFNDBEG

The CFNDBEG routine finds the first comment for a record.

The order of the comments (by name, date, or time) is specified by the value of D<Prefix>@C@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 D<Prefix>@C@EXTX.

      CALLP     U@@ATTACHIO('CFNDBEG': DCOM@@HANDLE: 
                %ADDR(DCOM@C@@PATH): %ADDR(DCOM@RECORD):  
                %ADDR(DCOM@C@))                           
      IF        DCOM@C@FOUND = 0                          
      CALLP     U@@ATTACHIO('CAPPEND': DCOM@@HANDLE:      
                %ADDR(DCOM@C@@PATH): %ADDR(DCOM@RECORD):  
                %ADDR(DCOM@C@))