• Search Forums
    Advanced Search Topics Posts
Prev
Next
Forums Financial Management Lawson S3 Financials

adding comment to asset numbers in the report

 5 Replies
 0 Subscribed to this topic
 43 Subscribed to this forum
Sort:
Author
Messages
Vijay S
Veteran Member Send Private Message
Posts: 174
Veteran Member
5/19/2011 12:47 PM
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 Send Private Message
Posts: 477
Veteran Member
5/19/2011 2:21 PM
Are you asking how to use 4GL routines to add comments ?
Vijay S
Veteran Member Send Private Message
Posts: 174
Veteran Member
5/22/2011 10:51 AM
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 Send Private Message
Posts: 477
Veteran Member
5/22/2011 3:05 PM
You need to use getattachrec, I think
Vijay S
Veteran Member Send Private Message
Posts: 174
Veteran Member
5/25/2011 6:23 AM
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 Send Private Message
Posts: 174
Veteran Member
5/27/2011 6:11 AM
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