Introduction

Procurement is fundamental to the effective functioning of any organisation with third party external spend.

Our team is made up of experienced partners in 4 key areas as well as our operational delivery people

PROCUREMENT

Responsible for all sourcing and procurement activities.

LOGISTICS

Responsible for worldwide delivery of our products

CONTRACTS

Responsible for all contracts, development, ongoing management and all legal engagement

SERVICE DELIVERY

Responsible for day-to-day engagement with the client. All our procurement services practitioners are industry certified and are led by experienced procurement consultants and managers

All our processes all have a clear and auditable trail of request to fulfilment including relevant approval steps as required.

Clients

Direct spend reduction - Led multiple sourcing and synergy activities with spend up to £140M across technology contracts (software) delivered £23M direct cost reductions

Led negotiations on Global Oracle Perpetual ULA deal - $29m savings

Spend Optimisation - $280m 5 year deal, with major technology provider across (Hardware, software and services). 10% Year on Year cost reduction as consumption and product uptake increases ($28m)

Led negotiations on Global Oracle Perpetual ULA deal - $29m savings

Spend Optimisation - IT Contracts separation (Risk mitigation) and Outsource, Over 700 Applications, >£100M annual spend. Delivered £3.5m in cost avoidance. Spend remained flat, Secured rights to use post divestment

Re-negotiated key supplier contracts for retail sites across Europe saving $400k on a $3.2 million spend

Led negotiations on Global Oracle Perpetual ULA deal - $29m savings

10 year outsourcing contract, delivered negotiated savings of £193m off £750m as well as a warranty backed incremental sales uplift of £2.1m per annum

Transition and transformation of the IT procurement function to an offshore service delivery model. £1.1M savings from multiple projects to deliver synergies following the BA-Iberia merger. 5 FTE headcount reduction

Process improvement/Cost optimisation. Insourcing of a previously outsourced 3rd party Customs Declaration System resulting in 50% reduction in overheads as well as 20% increase in revenue. Key highlight is that the CDS is now preferred interface software for custom declaration in UK and DHL owns the Patent

Financial and operational improvements to drive performance and business results on Disney Order and Inventory Mgt system which ensures all systems worldwide are operable and provide real time sales, distribution and warehouse stocks.

Cost reduction. Consolidation of multiple systems and planning Implementing an end to end global Strategic IT solution to enable tracking and remuneration of every vehicle and customer throughout the supply chain.

Process improvement/Cost optimisation. Inaccurate customer data due to Multiple legacy optician systems (through M&A activities). Engaged to reduce customer complaints and save on overhead costs

Created single global database for all optician system and introduced a more robust Azure database query system resulting in 80% reduction in customer complaints post implementation and a seamless customer experience

OTHER CLIENTS INCLUDE

Client Engagement Process

OTB-MIDAS SOLUTIONS VALUE ADDS

Code

     **Free
ctl-opt dftactgrp(*no) option(*srcstmt:*nodebugio);

// Declare program parameters
dcl-pi *n;
   param1 char(14); // First parameter (14 characters)
   param2 char(10); // Second parameter (10 characters)
end-pi;

// Declare data structures for headers and subfile
dcl-ds headerRecord qualified;
   hdrField1 varchar(50);
   hdrField2 varchar(50);
   hdrField3 varchar(50);
   hdrField4 varchar(50);
end-ds;

dcl-ds subfileRecord qualified;
   field1 int(10);
   field2 varchar(20);
   field3 varchar(30);
   field4 varchar(50);
   field5 varchar(20);
   timestampField timestamp;
   field7 varchar(100);
end-ds;

// Declare variables for paging and records
dcl-s page int(10) inz(1);
dcl-s totalRecords int(10);
dcl-s startRecord int(10);
dcl-s eofFlag ind;

exec sql set option commit = *none;

// Step 1: Retrieve header information (common columns based on param1 and param2)
exec sql
    select HDRFIELD1, HDRFIELD2, HDRFIELD3, HDRFIELD4
    into :headerRecord.hdrField1, :headerRecord.hdrField2, :headerRecord.hdrField3, :headerRecord.hdrField4
    from PHYSICAL_FILE
    where CONDITION_COLUMN1 = :param1 and CONDITION_COLUMN2 = :param2
    fetch first row only;

write HEADER; // Display the header fields on the screen

// Step 2: Calculate the total number of subfile records
exec sql
    select count(*) 
    into :totalRecords 
    from PHYSICAL_FILE
    where CONDITION_COLUMN1 = :param1 and CONDITION_COLUMN2 = :param2;

// Step 3: Main loop for subfile paging
dou *inlr;

    // Calculate starting record for the current page
    startRecord = (page - 1) * 15;

    // Fetch subfile records for the current page
    exec sql
        declare c1 cursor for 
        select FIELD1, FIELD2, FIELD3, FIELD4, FIELD5, TIMESTAMP_FIELD, FIELD7
        from PHYSICAL_FILE
        where CONDITION_COLUMN1 = :param1 and CONDITION_COLUMN2 = :param2
        order by TIMESTAMP_FIELD
        limit 15 offset :startRecord;

    exec sql open c1;

    clear *in91; // Clear SFLEND flag
    clear *in90; // Clear SFLCLR flag
    eofFlag = *off;

    for currentRecord = 1 to 15;
        exec sql fetch c1 into :subfileRecord.field1, :subfileRecord.field2, 
                             :subfileRecord.field3, :subfileRecord.field4,
                             :subfileRecord.field5, :subfileRecord.timestampField, 
                             :subfileRecord.field7;

        if sqlcode <> 0;
            eofFlag = *on;
            leave;
        endif;

        // Write the subfile record
        write SUBFILE;
    endfor;

    exec sql close c1;

    if eofFlag;
        *in91 = *on; // Set SFLEND to indicate the end of the subfile
    endif;

    *in90 = *on; // Clear the subfile for the next page

    // Display the subfile and handle user input
    exfmt SUBCTL;

    // Step 4: Handle function key input for navigation
    select;
        when *in02; // F2 - Previous page
            if page > 1;
                page -= 1;
            endif;
        when *in17; // F17 - First page
            page = 1;
        when *in18; // F18 - Last page
            page = %div(totalRecords : 15) + (%rem(totalRecords : 15) > 0);
    endsl;
enddo;

*inlr = *on;
A          R HEADER                     // Header format
A                                      OVERLAY
A            HDRFIELD1     50A  O  2  2   // Header field 1
A            HDRFIELD2     50A  O  3  2   // Header field 2
A            HDRFIELD3     50A  O  4  2   // Header field 3
A            HDRFIELD4     50A  O  5  2   // Header field 4

A          R SUBFILE                     SFL
A            FIELD1         10S 0O  7  2   // Subfile column 1
A            FIELD2         20A  O  7 14   // Subfile column 2
A            FIELD3         30A  O  7 36   // Subfile column 3
A            FIELD4         50A  O  7 68   // Subfile column 4
A            FIELD5         20A  O  7 120  // Subfile column 5
A            TIMESTAMPF     Z   O  7 150   // Timestamp field
A            FIELD7        100A  O  7 180  // Subfile column 7

A          R SUBCTL                     SFLCTL(SUBFILE)
A                                      SFLPAG(15)        // 15 rows per page
A                                      SFLSIZ(15)        // Subfile size
A                                      SFLDSP            // Subfile display
A                                      SFLDSPCTL         // Display control
A  90                                  SFLCLR            // Clear subfile
A  91                                  SFLEND            // End of subfile
A                                      OVERLAY           // Overlay subfile
A            SFLRCDNBR      4S 0H SFLRCDNBR(CURSOR)      // Cursor position

A          R FKEYS                      // Function key display
A                                      OVERLAY
A            FKEY1         20A  O 24  2      'F2=Previous'
A            FKEY2         20A  O 24 24      'F17=Top'
A            FKEY3         20A  O 24 44      'F18=Bottom'