INWARD MT103 WITH OWN BANK IN FIELD 57A

FIELD.TAG    FIELD.NAME........    INWARD.ROUTINE    OUTWARD.ROUTINE    CONVERSION..............
59A          BEN ACCOUNT           NO                Y                  ACC
                                                                        @SUPPRESS.TAG59A
             BEN CUSTOMER          NO                Y                  CUS
                                                                        @SUPPRESS.TAG59A
59X          BEN ACCOUNT           NO                NO                 ACC
             BEN CUSTOMER          NO                NO                 CUS

    SUBROUTINE SUPPRESS.TAG59A(FORMAT.SWIFT.REC, MESSAGE.REC, PASS.VALUE, SWIFT.FIELD.VALUE, ERR.MSG)
*-----------------------------------------------------------------------------
* Description:
* Routine attached to DE.FORMAT.SWIFT -> 103.1.1 to suppress one TAG59 in outgoing msg.
*
* Parameters:
* FORMAT.SWIFT.REC - DE.FORMAT.SWIFT record
* MESSAGE.REC - De message record
* PASS.VALUE - Tag value
* SWIFT.FIELD.VALUE - All Tags and its values formed from DE.FORMAT.SWIFT
* PASS.VALUE and SWIFT.FIELD.VALUE can be edited and passed back to the delivery process
*-----------------------------------------------------------------------------
    $INSERT I_COMMON
    $INSERT I_EQUATE
*-----------------------------------------------------------------------------

    PASS.VALUE = ''

    EQU CR TO CHARX(013)
    EQU LF TO CHARX(010)
    CRLF = CR:LF

    TAG59 = CRLF:':59:'

    FINDSTR TAG59 IN SWIFT.FIELD.VALUE SETTING POS1 THEN
        DATA.WITHOUT.TAG59 = FIELD(SWIFT.FIELD.VALUE,TAG59,1)
        SWIFT.FIELD.VALUE = DATA.WITHOUT.TAG59
    END
*// Remove Empty CR:LF
    CRLF.CNT = DCOUNT(SWIFT.FIELD.VALUE,CRLF)
    LAST.VAL = FIELD(SWIFT.FIELD.VALUE,CRLF,CRLF.CNT)

    PREV.CNT = CRLF.CNT-1
    IF LAST.VAL EQ "" THEN
        SWIFT.FIELD.VALUE = FIELD(SWIFT.FIELD.VALUE,CRLF,1,PREV.CNT)
    END

    RETURN
*-----------------------------------------------------------------------------
END