• Search Forums
    Advanced Search Topics Posts
Prev
Next
Forums Integration / Customization S3 Customization/Development

JUSTIFIED RIGHT

 2 Replies
 1 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
klkemp100
Basic Member Send Private Message
Posts: 14
Basic Member
1/15/2025 7:41 PM

Is there a way in Lawson COBOL to make a character field right-justified?

In the past, other COBOL's, i've been able to define something like...

WS-CHARACTER-FIELD     PIC X(15) JUSTFIED RIGHT.

and the data would then be "           12345" etc.

Tried this in Lawson and it barfs when compiled.

Thoughts, ideas?

Thanks!

Ragu Raghavan
Veteran Member Send Private Message
Posts: 477
Veteran Member
1/15/2025 9:02 PM

Ap90 uses code below to Right Justify a 14 character field -
IF (AP90F4-API-PO-NUMBER NOT = SPACES)
    MOVE AP90F4-API-PO-NUMBER TO JSTWS-STR
    MOVE 14 TO JSTWS-STR-LEN
    SET JSTWS-RIGHT TO TRUE
    SET JSTWS-NO-REMOVE-0 TO TRUE
    PERFORM 2000-JUSTIFY-OBJECT
    MOVE JSTWS-STR-OUT TO AP90F4-API-PO-NUMBER
                                                   DB-PO-NUMBER
ELSE
    INITIALIZE DB-PO-NUMBER.

klkemp100
Basic Member Send Private Message
Posts: 14
Basic Member
1/15/2025 9:06 PM

Thanks!