We are moving from Lawson S3 to Infor CloudSuite. Is there a way to create the addendum records in the format like AP160 in S3?
L11721 05 WS-CS-ADDENDA.
L11721 10 WS-CS-REC-TYPE PIC 9(01) VALUE 7.
L11721 10 WS-CS-ADDENDA-TYPE PIC X(02) VALUE "05".
L11721 10 WS-CS-SEG-ID PIC X(03) VALUE "DED".
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-APP-ID PIC X(02) VALUE "CS".
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-CASE-ID PIC X(20) VALUE SPACES.
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-PAY-DATE PIC 9(06) VALUE ZEROS.
L11721 10 FILLER PIC X(01) VALUE "*".
L11121 10 WS-CS-AMOUNT PIC 9(08)V99 VALUE ZEROS.
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-SSN PIC X(09) VALUE SPACES.
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-MEDICAL-ID PIC X(01) VALUE SPACES.
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-NON-CUS-NAME PIC X(10) VALUE SPACES.
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-FIPS-CODE PIC X(07) VALUE SPACES.
L11721 10 FILLER PIC X(01) VALUE "*".
L11721 10 WS-CS-EMP-TERM PIC X(01) VALUE SPACES.
L11721 10 FILLER PIC X(01) VALUE "".
165487* 10 FILLER PIC X(16) VALUE SPACES.
165487 10 FILLER PIC X(01) VALUE SPACES.
165487 10 WS-CS-ADSEQ-NBR PIC 9(04) VALUE 1.
165487 10 WS-CS-DTLSEQ-NBR PIC 9(07) VALUE ZEROES.
165487 10 FILLER PIC X(04) VALUE SPACES.