Comment Attachment Processing compile error

 2 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
John Desmarais
Basic Member Send Private Message
Posts: 20
Basic Member

I'm trying to do something that should be very simple - determine the existence of Comments on Invoice Messages, just like MA66 does when it needs to determine what text to put in the Message Button on the screen.  Simple, no?

I looked through the API manual to see if there was any voodoo involved - looked pretty easy. copied the code right out of MA66PD and dropped it into my program.

             INITIALIZE                 WS-CMTMAG.
             MOVE SPACES             TO CMTMAG-TYPE.
             SET CMTMAG-KFIND        TO TRUE.
             PERFORM 900-FIND-BEGRNG-CMT-MAINVMSG.
             IF (CMTMAG-KFOUND)
                 MOVE 908                TO CRT-MSG-NBR
             END-IF.

Failures all over the place:

 43198     INITIALIZE                 WS-CMTMAG.
*  12-S****************************************                              **
**    Operand WS-CMTMAG is not declared
 43199     MOVE SPACES             TO CMTMAG-TYPE.
*  12-S******************************************                            **
**    Operand CMTMAG-TYPE is not declared
 43200     SET CMTMAG-KFIND        TO TRUE.
*  12-S********************                                                  **
**    Operand CMTMAG-KFIND is not declared
 43202     IF (CMTMAG-KFOUND)
*  12-S*********************                                                 **
**    Operand CMTMAG-KFOUND is not declared

On the surface, it looks like the library that contains these members is not getting linked in, but that should happen automatically based on the existence of PERFORM 900-FIND-BEGRNG-CMT-MAINVMSG in my PD - or have I completely misunderstood how this should work? (Or, is there something else that my program needs to contain to cause the library to be automatically linked?)

John Henley
Send Private Message
Posts: 3351
Make sure you have a reference to MAINVMSG in order to pull in that DB table's API.

MOVE ZEROES TO DB-COMPANY.
MOVE SPACES TO DB-VENDOR.
MOVE SPACES TO DB-INVOICE.
MOVE SPACES TO DB-INVOICE.
MOVE ZEROES TO DB-SUFFIX.
MOVE ZEROES TO DB-CANCEL-SEQ.
MOVE ZEROES TO DB-MAD-SEQ-NBR.
MOVE ZEROES TO DB-SEQ-NBR.
PERFORM 840-FIND-MAGSET1.
Thanks for using the LawsonGuru.com forums!
John
John Desmarais
Basic Member Send Private Message
Posts: 20
Basic Member

Doh!

 

 

 

Yep.  That fixed it.