CREATE PROCEDURE MMNALIB.AUTOPICK_AVAILABLECOILS (
    MHBRAN          DECIMAL( 2 , 0 ),   -- branch
    MHCUST          DECIMAL( 5 , 0 ),   -- cust#
    MHCNFM          DECIMAL( 7 , 0 ),   -- order#
    MHPART          CHARACTER( 20 )   -- part id
)
    DYNAMIC RESULT SETS  1 
P1: BEGIN


DECLARE curAvailableCoils CURSOR WITH RETURN
FOR
SELECT RPTAGN, RPWEIG
FROM MMNALIB.RP091 AS RP091
WHERE RPSTAT = 'A'  -- only reserved coil are available
AND NOT EXISTS (
	SELECT *
	FROM MMNALIB.WIMSMRD AS WIMSMRD
	WHERE WIMSMRD.MDTAGN = RP091.RPTAGN
	AND WIMSMRD.MDCUST = RP091.RPCUST
	AND WIMSMRD.MDBRAN = RP091.RPBRAN
	AND WIMSMRD.MDPART = RP091.RPPART
)
ORDER BY RPRDTE, RPRTIM; -- sort by recieve date/time

OPEN curAvailableCoils;

END P1 

    CALL MMNALIB.AUTOPICK_AVAILABLECOILS (
        MHBRAN,--          DECIMAL(2,0),   -- branch
        MHCUST,--          DECIMAL(5,0),   -- cust#
        MHCNFM,--          DECIMAL(7,0),   -- order#
        MHPART --          CHARACTER(20)   -- part id
    ); -- запустили процедуру, которая вернула курсор для результатов

    -- ассоциируем его с резалтсет-локатором 
    ASSOCIATE RESULT SET LOCATOR(resultsetCoils)
    WITH PROCEDURE MMNALIB.AUTOPICK_AVAILABLECOILS;


    CALL MMNALIB.AUTOPICK_WEEKDAY (
        MOND, MHBRAN, MHCUST, MHCNFM, MHPART, 
        resultsetCoils, -- передаем resultsetCoils как параметр
        D1, ORDERED1, ACTUAL1
    );

    CALL MMNALIB.AUTOPICK_WEEKDAY (
        MOND, MHBRAN, MHCUST, MHCNFM, MHPART, 
        resultsetCoils, -- та же фигня
        D2, ORDERED2, ACTUAL2
    );

    CALL MMNALIB.AUTOPICK_WEEKDAY (
        MOND, MHBRAN, MHCUST, MHCNFM, MHPART, 
        resultsetCoils,  -- не может бить?! :)
        D3, ORDERED3, ACTUAL3
    );