adding comment to asset numbers in the report

Sort:
You are not authorized to post a reply.
Author
Messages
Vijay S
Veteran Member
Posts: 174
Veteran Member
    I need to add comments on Asset numbers in the report via using Lawson API for comments. I just figured out that the table used for comments for Asset is L_HAST and L_DAST. Has anyone done it before ? I am bit confused as notb sure from where to start it. Could anyone suggest.
    Ragu Raghavan
    Veteran Member
    Posts: 468
    Veteran Member
      Are you asking how to use 4GL routines to add comments ?
      Vijay S
      Veteran Member
      Posts: 174
      Veteran Member
        Can i use normal Lawson API's to pull data from these tables and write to report or there is another workaround i need to do ?
        Ragu Raghavan
        Veteran Member
        Posts: 468
        Veteran Member
          You need to use getattachrec, I think
          Vijay S
          Veteran Member
          Posts: 174
          Veteran Member
            Thanks Raghu.... I need to add it via Cobol Code. I got hola hold of some API's Related to comment processing.......
            Vijay S
            Veteran Member
            Posts: 174
            Veteran Member
              This is the piece of code that actually worked and ultimately i was able to print the comments just below asset numbers.

              Call this code just after printing assets numbers. In the report for AM260 you will find all the comments printed via AM20.2

              023220****************************************************************
              4000-PRINT-COMMENTS SECTION 50.
              ****************************************************************
              4000-START.

              INITIALIZE G5-COMMENTS.
              MOVE SF-ASB-ASSET TO DB-ASSET.
              PERFORM 840-FIND-ASTSET1.
              IF (AMASSET-NOTFOUND)
              GO TO 4000-END.

              DISPLAY "ASSET " AST-ASSET.
              INITIALIZE WS-CMTAST.
              MOVE SPACES TO CMTAST-TYPE.
              SET CMTAST-SOFT-RTN TO TRUE.
              SET CMTAST-FIND TO TRUE.
              PERFORM 900-FIND-BEGRNG-CMT-AMASSET.
              PERFORM
              UNTIL (CMTAST-NOTFOUND)
              * IF (CMTAST-TYPE NOT = "N")

              MOVE WS-CMT-EXT-TEXT-SZ TO CMTAST-EXT-TEXT-SZ
              PERFORM 900-GET-TEXT-CMT-AMASSET
              PERFORM
              UNTIL (CMTAST-EOT)
              INSPECT CMTAST-EXT-TEXT REPLACING ALL
              WS-HEX-A
              BY SPACES
              DISPLAY "COMMENTS CMTAST-EXT-TEXT " CMTAST-EXT-TEXT
              MOVE CMTAST-EXT-TEXT TO G5-COMMENTS
              MOVE GN5-COMMENTS TO RPT-GROUP-REQUEST
              PERFORM 700-PRINT-RPT-GRP
              PERFORM 900-GET-TEXT-CMT-AMASSET
              END-PERFORM

              * END-IF

              MOVE SPACES TO CMTAST-TYPE
              PERFORM 900-FIND-NXTRNG-CMT-AMASSET
              END-PERFORM.
              4000-END.

              Thanks - Vijay
              You are not authorized to post a reply.