Skip to Content
0
Former Member
May 23, 2014 at 03:17 PM

Addenda Record ACH CTX

105 Views

Hi All,

I have copied the ZFI_PAYMEDIUM_ACH_00,ZFI_PAYMEDIUM_ACH_05,ZFI_PAYMEDIUM_ACH_20,ZFI_PAYMEDIUM_ACH_30 and replaced the standard FM's

My question is regarding Addenda Record Segments

For Ex: GS Segment

FORM CONSTRUCT_ADDN_BEGIN TABLES T_PAYMENT_DETAILS STRUCTURE FPM_PAYD

CHANGING CN_LINE_CNT TYPE N.

CLEAR T_PAYMENT_DETAILS.

T_PAYMENT_DETAILS-LENGTH = 80.

T_PAYMENT_DETAILS-TYPE = '1'.

T_PAYMENT_DETAILS-LINE = CN_LINE_CNT.

WRITE: 'ISA' TO T_PAYMENT_DETAILS-TEXT(3),

'*' TO T_PAYMENT_DETAILS-TEXT+3(1),

'00' TO T_PAYMENT_DETAILS-TEXT+4(2),

'*' TO T_PAYMENT_DETAILS-TEXT+6(1),

'NV' TO T_PAYMENT_DETAILS-TEXT+7(10),

'*' TO T_PAYMENT_DETAILS-TEXT+17(1),

'00' TO T_PAYMENT_DETAILS-TEXT+18(2),

'*' TO T_PAYMENT_DETAILS-TEXT+20(1),

'NV' TO T_PAYMENT_DETAILS-TEXT+21(10),

'*' TO T_PAYMENT_DETAILS-TEXT+31(1),

'ZZ' TO T_PAYMENT_DETAILS-TEXT+32(2),

'*' TO T_PAYMENT_DETAILS-TEXT+34(1),

'NV' TO T_PAYMENT_DETAILS-TEXT+35(15),

'*' TO T_PAYMENT_DETAILS-TEXT+50(1),

'ZZ' TO T_PAYMENT_DETAILS-TEXT+51(2),

'*' TO T_PAYMENT_DETAILS-TEXT+53(1),

'NV' TO T_PAYMENT_DETAILS-TEXT+54(15),

'*' TO T_PAYMENT_DETAILS-TEXT+69(1),

SY-DATLO TO T_PAYMENT_DETAILS-TEXT+70(6) YYMMDD,

'*' TO T_PAYMENT_DETAILS-TEXT+76(1),

SY-TIMLO(3) TO T_PAYMENT_DETAILS-TEXT+77(3).

APPEND T_PAYMENT_DETAILS.

ADD 1 TO CN_LINE_CNT.

* second addenda record

CLEAR T_PAYMENT_DETAILS.

T_PAYMENT_DETAILS-LENGTH = 75.

T_PAYMENT_DETAILS-TYPE = '1'.

T_PAYMENT_DETAILS-LINE = CN_LINE_CNT.

WRITE: SY-TIMLO+3(1) TO T_PAYMENT_DETAILS-TEXT(1),

'*' TO T_PAYMENT_DETAILS-TEXT+1(1),

'&' TO T_PAYMENT_DETAILS-TEXT+2(1), "repetition seperator

'*' TO T_PAYMENT_DETAILS-TEXT+3(1),

'00400' TO T_PAYMENT_DETAILS-TEXT+4(5), "version 004000

'*' TO T_PAYMENT_DETAILS-TEXT+9(1),

'000000000' TO T_PAYMENT_DETAILS-TEXT+10(9),

'*' TO T_PAYMENT_DETAILS-TEXT+19(1),

'0' TO T_PAYMENT_DETAILS-TEXT+20(1),

'*' TO T_PAYMENT_DETAILS-TEXT+21(1),

'P' TO T_PAYMENT_DETAILS-TEXT+22(1),

'*' TO T_PAYMENT_DETAILS-TEXT+23(1),

'?' TO T_PAYMENT_DETAILS-TEXT+24(1),

'\' TO T_PAYMENT_DETAILS-TEXT+25(1),

'GS' TO T_PAYMENT_DETAILS-TEXT+26(2),

'*' TO T_PAYMENT_DETAILS-TEXT+28(1),

'RA' TO T_PAYMENT_DETAILS-TEXT+29(2),

'*' TO T_PAYMENT_DETAILS-TEXT+31(1),

'NV' TO T_PAYMENT_DETAILS-TEXT+32(2), " I want to pass constant like '123456789' here and also at other places

'*' TO T_PAYMENT_DETAILS-TEXT+34(1),

'NV' TO T_PAYMENT_DETAILS-TEXT+35(2),

'*' TO T_PAYMENT_DETAILS-TEXT+37(1).

MOVE SY-DATLO TO T_PAYMENT_DETAILS-TEXT+38(8).

WRITE:

'*' TO T_PAYMENT_DETAILS-TEXT+46(1),

SY-TIMLO(4) TO T_PAYMENT_DETAILS-TEXT+47,

'*' TO T_PAYMENT_DETAILS-TEXT+51(1),

'0' TO T_PAYMENT_DETAILS-TEXT+52(1),

'*' TO T_PAYMENT_DETAILS-TEXT+53(1),

'X' TO T_PAYMENT_DETAILS-TEXT+54(1),

'*' TO T_PAYMENT_DETAILS-TEXT+55(1),

'004020' TO T_PAYMENT_DETAILS-TEXT+56(6),

'\' TO T_PAYMENT_DETAILS-TEXT+62(1),

'ST' TO T_PAYMENT_DETAILS-TEXT+63(2),

'*' TO T_PAYMENT_DETAILS-TEXT+65(1),

'820' TO T_PAYMENT_DETAILS-TEXT+66(3),

'*' TO T_PAYMENT_DETAILS-TEXT+69(1),

'0001' TO T_PAYMENT_DETAILS-TEXT+70(4),

'\' TO T_PAYMENT_DETAILS-TEXT+74(1).

APPEND T_PAYMENT_DETAILS.

ADD 1 TO CN_LINE_CNT.

ENDFORM. " CONSTRUCT_ADDN_BEGIN

Can someone tell me where and how to modify this ?

Thanks