Addenda Record ACH CTX

[Former Member]

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

[Former Member]

Any Suggestions