xquery

    for $it in $input
    return
    <Logic>
        {
            for $x in $it/Shipment
            return
                <Shipment>
                        <ShipmentHeader>
                        {
                            let $head := $x/ShipmentHeader
                            return data($head)
                        }
                        </ShipmentHeader>
                        <Data>
                        {
                            let $date := $x/Date
                            let $day := substring(data($date),1,2)
                            let $month := substring(data($date),4,2)
                            let $year := substring(data($date),7,4)

                            let $subString := concat($year, $month, $day)
                            return $subString
                        }
                        </Data>
                        <ShipmentNumber>
                        {
                            let $num := $x/ShipmentNumber
                            return data($num)
                        }
                        </ShipmentNumber>
                </Shipment>

        }
        <Shipper>
        {
            for $x in $it/Shipper
            return $x
        }
        </Shipper>
    </Logic>