516 lines
15 KiB
SQL
516 lines
15 KiB
SQL
SET PATH *LIBL ;
|
|
|
|
CREATE OR REPLACE FUNCTION RESTAPI.SFP_GET_HOURLY_PRODUCTION (
|
|
IN_PARM CLOB(2147483647) )
|
|
RETURNS CLOB(2147483647)
|
|
LANGUAGE SQL
|
|
SPECIFIC RESTAPI.SFP_GET_HOURLY_PRODUCTION
|
|
NOT DETERMINISTIC
|
|
MODIFIES SQL DATA
|
|
CALLED ON NULL INPUT
|
|
SET OPTION ALWBLK = *ALLREAD ,
|
|
ALWCPYDTA = *OPTIMIZE ,
|
|
COMMIT = *NONE ,
|
|
DECRESULT = (31, 31, 00) ,
|
|
DLYPRP = *NO ,
|
|
DYNDFTCOL = *NO ,
|
|
DYNUSRPRF = *USER ,
|
|
SRTSEQ = *HEX
|
|
BEGIN
|
|
DECLARE ENV VARCHAR ( 20 ) DEFAULT '' ;
|
|
DECLARE V_DATE DATE ;
|
|
DECLARE V_DATE_STR VARCHAR ( 10 ) DEFAULT '' ;
|
|
DECLARE V_WC VARCHAR ( 5 ) DEFAULT '' ;
|
|
DECLARE V_SITE VARCHAR ( 3 ) DEFAULT '' ;
|
|
DECLARE V_DATE_CY DECIMAL ( 7 , 0 ) DEFAULT 0 ;
|
|
DECLARE V_DATE_PRIOR_CY DECIMAL ( 7 , 0 ) DEFAULT 0 ;
|
|
DECLARE LL VARCHAR ( 1024 ) DEFAULT '' ;
|
|
DECLARE V_IN_PARM CLOB ( 2 G ) DEFAULT '' ;
|
|
-- Error handling variables
|
|
DECLARE V_SQLSTATE CHAR ( 5 ) DEFAULT '00000' ;
|
|
DECLARE V_SQLCODE INTEGER DEFAULT 0 ;
|
|
DECLARE V_ERRMSG VARCHAR ( 500 ) DEFAULT '' ;
|
|
DECLARE V_HTTP_STATUS INTEGER DEFAULT 200 ;
|
|
DECLARE V_HAS_ERROR INTEGER DEFAULT 0 ;
|
|
-- Continue handlers for error capture
|
|
DECLARE CONTINUE HANDLER FOR SQLSTATE '22007' -- Invalid datetime
|
|
BEGIN
|
|
SET V_SQLSTATE = '22007' ;
|
|
GET DIAGNOSTICS CONDITION 1 V_ERRMSG = MESSAGE_TEXT ;
|
|
SET V_HTTP_STATUS = 400 ;
|
|
SET V_HAS_ERROR = 1 ;
|
|
END ;
|
|
DECLARE CONTINUE HANDLER FOR SQLSTATE '22003' -- Numeric out of range
|
|
BEGIN
|
|
SET V_SQLSTATE = '22003' ;
|
|
GET DIAGNOSTICS CONDITION 1 V_ERRMSG = MESSAGE_TEXT ;
|
|
SET V_HTTP_STATUS = 400 ;
|
|
SET V_HAS_ERROR = 1 ;
|
|
END ;
|
|
DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' -- No data found
|
|
BEGIN
|
|
SET V_SQLSTATE = '02000' ;
|
|
SET V_ERRMSG = 'No data found for the specified criteria' ;
|
|
SET V_HTTP_STATUS = 404 ;
|
|
SET V_HAS_ERROR = 1 ;
|
|
END ;
|
|
DECLARE CONTINUE HANDLER FOR SQLSTATE '42501' -- Not authorized
|
|
BEGIN
|
|
SET V_SQLSTATE = '42501' ;
|
|
GET DIAGNOSTICS CONDITION 1 V_ERRMSG = MESSAGE_TEXT ;
|
|
SET V_HTTP_STATUS = 403 ;
|
|
SET V_HAS_ERROR = 1 ;
|
|
END ;
|
|
DECLARE CONTINUE HANDLER FOR SQLSTATE '42704' -- Object not found
|
|
BEGIN
|
|
SET V_SQLSTATE = '42704' ;
|
|
GET DIAGNOSTICS CONDITION 1 V_ERRMSG = MESSAGE_TEXT ;
|
|
SET V_HTTP_STATUS = 404 ;
|
|
SET V_HAS_ERROR = 1 ;
|
|
END ;
|
|
DECLARE CONTINUE HANDLER FOR SQLEXCEPTION
|
|
BEGIN
|
|
GET DIAGNOSTICS CONDITION 1
|
|
V_SQLSTATE = RETURNED_SQLSTATE ,
|
|
V_SQLCODE = DB2_RETURNED_SQLCODE , V_ERRMSG = MESSAGE_TEXT ;
|
|
SET V_HTTP_STATUS = 500 ;
|
|
SET V_HAS_ERROR = 1 ;
|
|
END ;
|
|
-- Parse input parameters first (before env extraction modifies In_Parm)
|
|
SET V_DATE_STR = COALESCE ( JSON_VALUE ( IN_PARM , '$.date' ) , '' ) ;
|
|
SET V_WC = COALESCE ( JSON_VALUE ( IN_PARM , '$.workcenter' ) , '' ) ;
|
|
SET V_SITE = COALESCE ( JSON_VALUE ( IN_PARM , '$.site' ) , '' ) ;
|
|
-- Parse date - set to Current_Date if not provided
|
|
IF V_DATE_STR <> '' THEN
|
|
SET V_DATE = DATE ( V_DATE_STR ) ;
|
|
ELSE
|
|
SET V_DATE = CURRENT_DATE ;
|
|
END IF ;
|
|
-- Extract env handling all input formats (object, array, string)
|
|
SET V_IN_PARM = IN_PARM ;
|
|
WHILE CISTOOLS . JSON_TYPE ( V_IN_PARM ) IN ( 'object' , 'array' , 'string' )
|
|
DO
|
|
SET V_IN_PARM =
|
|
CASE CISTOOLS . JSON_TYPE ( V_IN_PARM )
|
|
WHEN 'object' THEN JSON_VALUE ( V_IN_PARM , '$.env' )
|
|
WHEN 'array' THEN JSON_VALUE ( V_IN_PARM , '$[0]' )
|
|
WHEN 'string' THEN REPLACE ( V_IN_PARM , '"' , '' )
|
|
ELSE TRIM ( V_IN_PARM )
|
|
END ;
|
|
END WHILE ;
|
|
SET ENV = V_IN_PARM ;
|
|
SET LL = CISTOOLS . SET_LIBRARY_LIST ( ENV ) ;
|
|
-- Validate environment was set
|
|
IF ENV = ''
|
|
OR ENV IS NULL THEN
|
|
RETURN
|
|
JSON_OBJECT (
|
|
'error' : JSON_OBJECT (
|
|
'http_status' : 400 , 'sqlstate' : '22001' ,
|
|
'message' : 'Environment parameter is required'
|
|
)
|
|
) ;
|
|
END IF ;
|
|
-- Check for errors from library list setup
|
|
IF V_HAS_ERROR = 1 THEN
|
|
RETURN
|
|
JSON_OBJECT (
|
|
'error' : JSON_OBJECT (
|
|
'http_status' : V_HTTP_STATUS , 'sqlstate' : V_SQLSTATE ,
|
|
'message' : V_ERRMSG
|
|
)
|
|
) ;
|
|
END IF ;
|
|
-- Calculate CYYMMDD dates
|
|
SET V_DATE_CY = ZONED ( V_DATE ) - 19000000 ;
|
|
SET V_DATE_PRIOR_CY = ZONED ( V_DATE - 1 DAY ) - 19000000 ;
|
|
RETURN
|
|
WITH
|
|
-- Get ON transactions (job starts)
|
|
ON_TRANSACTIONS AS (
|
|
SELECT T . ORDNO , T . CLDT , T . OPSEQ , T . EMPNO , T . BADGE , T . WKCTR ,
|
|
T . TDATE AS ON_DATE , T . TTIME AS ON_TIME , T . RUNCD ,
|
|
T . ITNBR , COALESCE ( T . EMPNO , T . BADGE ) AS EMP_KEY ,
|
|
M . STID ,
|
|
TO_DATE (
|
|
ZONED ( CISTOOLS . CYMD2DATE ( T . TDATE ) ) ||
|
|
LPAD ( T . TTIME , 6 , '0' ) , 'YYYYMMDDHH24MISS' )
|
|
AS ON_TS ,
|
|
ROW_NUMBER ( ) OVER (
|
|
PARTITION BY T . ORDNO , T . OPSEQ , COALESCE (
|
|
T . EMPNO , T . BADGE ) , T . RUNCD
|
|
ORDER BY T . TDATE , T . TTIME
|
|
) AS SEQ
|
|
FROM MOTRAN T
|
|
JOIN MOMAST M
|
|
ON T . ORDNO = M . ORDNO
|
|
WHERE T . TCODE = 'ON'
|
|
AND T . WKCTR = COALESCE ( NULLIF ( V_WC , '' ) , T . WKCTR )
|
|
AND M . STID = COALESCE ( NULLIF ( V_SITE , '' ) , M . STID )
|
|
AND T . ACREC = 'A'
|
|
AND T . TDATE BETWEEN V_DATE_PRIOR_CY AND V_DATE_CY
|
|
) ,
|
|
-- Get OFF transactions (job ends with quantities)
|
|
OFF_TRANSACTIONS AS (
|
|
SELECT T . ORDNO , T . CLDT , T . OPSEQ , T . EMPNO , T . BADGE ,
|
|
T . TDATE AS OFF_DATE , T . TTIME AS OFF_TIME , T . QTCOM ,
|
|
T . QTSCP , T . RUNCD , T . WKCTR ,
|
|
COALESCE ( T . EMPNO , T . BADGE ) AS EMP_KEY , M . STID ,
|
|
TO_DATE (
|
|
ZONED ( CISTOOLS . CYMD2DATE ( T . TDATE ) ) ||
|
|
LPAD ( T . TTIME , 6 , '0' ) , 'YYYYMMDDHH24MISS' )
|
|
AS OFF_TS ,
|
|
ROW_NUMBER ( ) OVER (
|
|
PARTITION BY T . ORDNO , T . OPSEQ , COALESCE (
|
|
T . EMPNO , T . BADGE ) , T . RUNCD
|
|
ORDER BY T . TDATE , T . TTIME
|
|
) AS SEQ
|
|
FROM MOTRAN T
|
|
JOIN MOMAST M
|
|
ON T . ORDNO = M . ORDNO
|
|
WHERE T . TCODE = 'OF'
|
|
AND T . WKCTR = COALESCE ( NULLIF ( V_WC , '' ) , T . WKCTR )
|
|
AND M . STID = COALESCE ( NULLIF ( V_SITE , '' ) , M . STID )
|
|
AND T . ACREC = 'A'
|
|
AND T . TDATE = V_DATE_CY
|
|
) ,
|
|
-- Current time as default end time
|
|
CURRENT_END AS (
|
|
SELECT
|
|
CASE
|
|
WHEN V_DATE = CURRENT_DATE THEN CURRENT_TIMESTAMP
|
|
ELSE
|
|
TO_DATE (
|
|
ZONED ( V_DATE ) || '235959' , 'YYYYMMDDHH24MISS' )
|
|
END AS DEFAULT_END_TS
|
|
FROM SYSIBM . SYSDUMMY1
|
|
) ,
|
|
-- Match ON with OF by order/operation/employee/runcode
|
|
MATCHED_TRANS AS (
|
|
SELECT ON_T . ORDNO , ON_T . ITNBR , ON_T . RUNCD , ON_T . ON_DATE ,
|
|
ON_T . ON_TIME , ON_T . ON_TS AS START_TS , ON_T . WKCTR ,
|
|
ON_T . STID ,
|
|
COALESCE ( OFF_T . OFF_TS , CE . DEFAULT_END_TS ) AS END_TS ,
|
|
COALESCE ( OFF_T . OFF_DATE , V_DATE_CY ) AS OFF_DATE ,
|
|
COALESCE (
|
|
OFF_T . OFF_TIME ,
|
|
CASE
|
|
WHEN
|
|
V_DATE = CURRENT_DATE
|
|
THEN ZONED ( CURRENT_TIME )
|
|
ELSE 235959
|
|
END ) AS OFF_TIME ,
|
|
COALESCE ( OFF_T . QTCOM , 0 ) AS QTY_COMPLETE ,
|
|
COALESCE ( OFF_T . QTSCP , 0 ) AS QTY_SCRAP ,
|
|
COALESCE ( R . SRLHU , 0 ) AS STD_RUN_HRS ,
|
|
COALESCE ( R . TBCDE , ' ' ) AS TIME_BASIS
|
|
FROM ON_TRANSACTIONS ON_T
|
|
CROSS JOIN CURRENT_END CE
|
|
LEFT JOIN OFF_TRANSACTIONS OFF_T
|
|
ON ON_T . ORDNO = OFF_T . ORDNO
|
|
AND ON_T . OPSEQ = OFF_T . OPSEQ
|
|
AND ON_T . EMP_KEY = OFF_T . EMP_KEY
|
|
AND ON_T . RUNCD = OFF_T . RUNCD
|
|
AND ON_T . SEQ = OFF_T . SEQ
|
|
AND ON_T . WKCTR = OFF_T . WKCTR
|
|
AND ON_T . STID = OFF_T . STID
|
|
LEFT JOIN MOROUT R
|
|
ON ON_T . ORDNO = R . ORDNO
|
|
AND ON_T . OPSEQ = R . OPSEQ
|
|
WHERE ON_T . RUNCD = 'R' -- Run transactions only
|
|
) ,
|
|
-- Calculate pieces per minute
|
|
TRANS_WITH_RATE AS (
|
|
SELECT M . * ,
|
|
DEC (
|
|
CASE
|
|
TIME_BASIS
|
|
WHEN
|
|
' '
|
|
THEN
|
|
CASE
|
|
WHEN
|
|
STD_RUN_HRS > 0
|
|
THEN 1.0 / STD_RUN_HRS / 60
|
|
ELSE 0
|
|
END
|
|
WHEN 'P' THEN STD_RUN_HRS / 60
|
|
WHEN
|
|
'M'
|
|
THEN
|
|
CASE
|
|
WHEN
|
|
STD_RUN_HRS > 0
|
|
THEN 1.0 / STD_RUN_HRS
|
|
ELSE 0
|
|
END
|
|
WHEN
|
|
'1'
|
|
THEN
|
|
CASE
|
|
WHEN
|
|
STD_RUN_HRS > 0
|
|
THEN 10.0 / STD_RUN_HRS / 60
|
|
ELSE 0
|
|
END
|
|
WHEN
|
|
'2'
|
|
THEN
|
|
CASE
|
|
WHEN
|
|
STD_RUN_HRS > 0
|
|
THEN 100.0 / STD_RUN_HRS / 60
|
|
ELSE 0
|
|
END
|
|
WHEN
|
|
'3'
|
|
THEN
|
|
CASE
|
|
WHEN
|
|
STD_RUN_HRS > 0
|
|
THEN 1000.0 / STD_RUN_HRS / 60
|
|
ELSE 0
|
|
END
|
|
ELSE 0
|
|
END , 15 , 8 ) AS PCS_PER_MIN
|
|
FROM MATCHED_TRANS M
|
|
) ,
|
|
-- Get distinct workcenter/site combinations
|
|
WC_SITE_LIST AS (
|
|
SELECT DISTINCT WKCTR , STID
|
|
FROM TRANS_WITH_RATE
|
|
) ,
|
|
-- Generate hours for the date (0-23) with proper timestamps
|
|
ALL_HOURS AS (
|
|
SELECT HR AS HOUR_NUM ,
|
|
TO_DATE (
|
|
ZONED ( V_DATE ) || LPAD ( HR * 10000 , 6 , '0' ) ,
|
|
'YYYYMMDDHH24MISS' ) AS HR_START_TS ,
|
|
CASE
|
|
WHEN
|
|
HR = 23
|
|
THEN
|
|
TO_DATE (
|
|
ZONED ( V_DATE + 1 DAY ) || '000000' ,
|
|
'YYYYMMDDHH24MISS' )
|
|
ELSE
|
|
TO_DATE (
|
|
ZONED ( V_DATE ) ||
|
|
LPAD ( ( HR + 1 ) * 10000 , 6 , '0' ) ,
|
|
'YYYYMMDDHH24MISS' )
|
|
END AS HR_END_TS
|
|
FROM (
|
|
VALUES ( 0 ) , ( 1 ) , ( 2 ) , ( 3 ) , ( 4 ) , ( 5 ) , ( 6 ) , ( 7 ) , ( 8 ) ,( 9 ) , ( 10 ) , ( 11 ) , ( 12 ) , ( 13 ) , ( 14 ) , ( 15 ) ,
|
|
( 16 ) , ( 17 ) , ( 18 ) , ( 19 ) , ( 20 ) , ( 21 ) , ( 22 ) ,
|
|
( 23 )
|
|
) T ( HR )
|
|
) ,
|
|
-- Calculate time per hour for each transaction
|
|
HOURLY_BREAKDOWN AS (
|
|
SELECT T . ORDNO , T . ITNBR , T . QTY_COMPLETE , T . QTY_SCRAP ,
|
|
T . PCS_PER_MIN , T . START_TS , T . END_TS , T . OFF_DATE ,
|
|
T . OFF_TIME , T . WKCTR , T . STID , H . HOUR_NUM ,
|
|
GREATEST (
|
|
0 , TIMESTAMPDIFF (
|
|
2 , CHAR (
|
|
LEAST ( T . END_TS , H . HR_END_TS ) -
|
|
GREATEST ( T . START_TS , H . HR_START_TS ) ) ) )
|
|
AS SECONDS_IN_HR
|
|
FROM TRANS_WITH_RATE T , ALL_HOURS H
|
|
WHERE T . START_TS < H . HR_END_TS
|
|
AND T . END_TS > H . HR_START_TS
|
|
) ,
|
|
-- Aggregate by hour, workcenter, site
|
|
HOURLY_AGG AS (
|
|
SELECT HOUR_NUM , WKCTR , STID ,
|
|
SUM ( SECONDS_IN_HR ) AS TOTAL_SECONDS ,
|
|
DEC (
|
|
SUM ( DEC ( SECONDS_IN_HR , 15 , 4 ) * PCS_PER_MIN / 60 ) ,
|
|
15 , 4 ) AS EXPECTED_QTY ,
|
|
SUM (
|
|
CASE
|
|
WHEN
|
|
HOUR (
|
|
TO_DATE (
|
|
ZONED ( CISTOOLS . CYMD2DATE ( OFF_DATE ) ) ||
|
|
LPAD ( OFF_TIME , 6 , '0' ) ,
|
|
'YYYYMMDDHH24MISS' ) ) = HOUR_NUM
|
|
AND CISTOOLS . CYMD2DATE ( OFF_DATE ) = V_DATE
|
|
THEN QTY_COMPLETE
|
|
ELSE 0
|
|
END ) AS ACTUAL_QTY ,
|
|
SUM (
|
|
CASE
|
|
WHEN
|
|
HOUR (
|
|
TO_DATE (
|
|
ZONED ( CISTOOLS . CYMD2DATE ( OFF_DATE ) ) ||
|
|
LPAD ( OFF_TIME , 6 , '0' ) ,
|
|
'YYYYMMDDHH24MISS' ) ) = HOUR_NUM
|
|
AND CISTOOLS . CYMD2DATE ( OFF_DATE ) = V_DATE
|
|
THEN QTY_SCRAP
|
|
ELSE 0
|
|
END ) AS SCRAP_QTY ,
|
|
COUNT ( DISTINCT ORDNO ) AS ORDER_COUNT
|
|
FROM HOURLY_BREAKDOWN
|
|
WHERE SECONDS_IN_HR > 0
|
|
GROUP BY HOUR_NUM , WKCTR , STID
|
|
) ,
|
|
-- Get distinct order/item per hour/wkctr/stid
|
|
HOURLY_ITEMS AS (
|
|
SELECT DISTINCT HOUR_NUM , WKCTR , STID , ORDNO , ITNBR
|
|
FROM HOURLY_BREAKDOWN
|
|
WHERE SECONDS_IN_HR > 0
|
|
) ,
|
|
-- Aggregate items into JSON array
|
|
HOURLY_ITEMS_AGG AS (
|
|
SELECT HOUR_NUM , WKCTR , STID ,
|
|
JSON_ARRAYAGG (
|
|
JSON_OBJECT (
|
|
'orderNumber' : CAST (
|
|
CAST ( TRIM ( ORDNO ) AS VARCHAR ( 15 ) CCSID 37 ) AS
|
|
VARCHAR ( 15 ) CCSID 1208 ) , 'itemNumber' : CAST (
|
|
CAST ( TRIM ( ITNBR ) AS VARCHAR ( 15 ) CCSID 37 ) AS
|
|
VARCHAR ( 15 ) CCSID 1208 )
|
|
) FORMAT JSON
|
|
) AS ITEMS
|
|
FROM HOURLY_ITEMS
|
|
GROUP BY HOUR_NUM , WKCTR , STID
|
|
) ,
|
|
-- Cross join hours with workcenter/site list, then left join aggregated data
|
|
HOURLY_FULL AS (
|
|
SELECT A . HOUR_NUM , W . WKCTR , W . STID ,
|
|
COALESCE ( H . TOTAL_SECONDS , 0 ) AS TOTAL_SECONDS ,
|
|
COALESCE ( H . EXPECTED_QTY , DEC ( 0 , 15 , 4 ) )
|
|
AS EXPECTED_QTY ,
|
|
COALESCE ( H . ACTUAL_QTY , DEC ( 0 , 15 , 4 ) ) AS ACTUAL_QTY ,
|
|
COALESCE ( H . SCRAP_QTY , DEC ( 0 , 15 , 4 ) ) AS SCRAP_QTY ,
|
|
COALESCE ( H . ORDER_COUNT , 0 ) AS ORDER_COUNT ,
|
|
I . ITEMS AS ITEMS ,
|
|
SUM ( COALESCE ( H . EXPECTED_QTY , DEC ( 0 , 15 , 4 ) ) ) OVER (
|
|
PARTITION BY W . WKCTR , W . STID
|
|
ORDER BY A . HOUR_NUM ROWS UNBOUNDED PRECEDING
|
|
) AS CUM_EXPECTED ,
|
|
SUM ( COALESCE ( H . ACTUAL_QTY , DEC ( 0 , 15 , 4 ) ) ) OVER (
|
|
PARTITION BY W . WKCTR , W . STID
|
|
ORDER BY A . HOUR_NUM ROWS UNBOUNDED PRECEDING
|
|
) AS CUM_ACTUAL ,
|
|
SUM ( COALESCE ( H . SCRAP_QTY , DEC ( 0 , 15 , 4 ) ) ) OVER (
|
|
PARTITION BY W . WKCTR , W . STID
|
|
ORDER BY A . HOUR_NUM ROWS UNBOUNDED PRECEDING
|
|
) AS CUM_SCRAP
|
|
FROM ALL_HOURS A
|
|
CROSS JOIN WC_SITE_LIST W
|
|
LEFT JOIN HOURLY_AGG H
|
|
ON A . HOUR_NUM = H . HOUR_NUM
|
|
AND W . WKCTR = H . WKCTR
|
|
AND W . STID = H . STID
|
|
LEFT JOIN HOURLY_ITEMS_AGG I
|
|
ON A . HOUR_NUM = I . HOUR_NUM
|
|
AND W . WKCTR = I . WKCTR
|
|
AND W . STID = I . STID
|
|
) ,
|
|
-- Build hour JSON objects
|
|
JSON_HOURS AS (
|
|
SELECT WKCTR , STID ,
|
|
JSON_OBJECT (
|
|
'hour' : HOUR_NUM , 'hourLabel' :
|
|
CASE
|
|
WHEN HOUR_NUM = 0 THEN '12AM'
|
|
WHEN
|
|
HOUR_NUM < 12 THEN VARCHAR ( HOUR_NUM ) || 'AM'
|
|
WHEN HOUR_NUM = 12 THEN '12PM'
|
|
ELSE VARCHAR ( HOUR_NUM - 12 ) || 'PM'
|
|
END , 'runMinutes' : INT ( TOTAL_SECONDS / 60 ) ,
|
|
'items' : COALESCE ( ITEMS , JSON_ARRAY ( ) ) FORMAT JSON ,
|
|
'orderCount' : ORDER_COUNT , 'expectedQty' : DEC (
|
|
EXPECTED_QTY , 10 , 2 ) , 'actualQty' : DEC (
|
|
ACTUAL_QTY , 10 , 2 ) , 'scrapQty' : DEC (
|
|
SCRAP_QTY , 10 , 2 ) , 'cumulativeExpected' : DEC (
|
|
CUM_EXPECTED , 10 , 2 ) , 'cumulativeActual' : DEC (
|
|
CUM_ACTUAL , 10 , 2 ) , 'cumulativeScrap' : DEC (
|
|
CUM_SCRAP , 10 , 2 ) , 'variance' : DEC (
|
|
CUM_ACTUAL - CUM_EXPECTED , 10 , 2 ) ,
|
|
'performancePercentage' :
|
|
CASE
|
|
WHEN
|
|
CUM_EXPECTED > 0
|
|
THEN
|
|
INT (
|
|
( CUM_ACTUAL / CUM_EXPECTED * 100 ) +
|
|
0.5 )
|
|
ELSE 0
|
|
END
|
|
) AS HOUR_OBJ , HOUR_NUM
|
|
FROM HOURLY_FULL
|
|
) ,
|
|
-- Calculate totals per workcenter/site
|
|
WC_TOTALS AS (
|
|
SELECT WKCTR , STID , MAX ( CUM_ACTUAL ) AS TOTAL_ACTUAL ,
|
|
MAX ( CUM_EXPECTED ) AS TOTAL_EXPECTED ,
|
|
MAX ( CUM_SCRAP ) AS TOTAL_SCRAP
|
|
FROM HOURLY_FULL
|
|
GROUP BY WKCTR , STID
|
|
) ,
|
|
-- Build workcenter JSON objects with nested hours array
|
|
JSON_WORKCENTERS AS (
|
|
SELECT
|
|
JSON_OBJECT (
|
|
'workcenter' : CAST (
|
|
CAST ( T . WKCTR AS VARCHAR ( 5 ) CCSID 37 ) AS VARCHAR (
|
|
5 ) CCSID 1208 ) , 'site' : CAST (
|
|
CAST ( T . STID AS VARCHAR ( 3 ) CCSID 37 ) AS VARCHAR ( 3 )
|
|
CCSID 1208 ) , 'hours' : ( SELECT JSON_ARRAYAGG (
|
|
H . HOUR_OBJ FORMAT JSON
|
|
ORDER BY H . HOUR_NUM
|
|
)
|
|
FROM JSON_HOURS H
|
|
WHERE H . WKCTR = T . WKCTR
|
|
AND H . STID = T . STID ) FORMAT JSON ,
|
|
'totals' : JSON_OBJECT (
|
|
'actualQty' : DEC (
|
|
COALESCE ( T . TOTAL_ACTUAL , DEC ( 0 , 15 , 4 ) ) , 10 ,
|
|
2 ) , 'expectedQty' : DEC (
|
|
COALESCE ( T . TOTAL_EXPECTED , DEC ( 0 , 15 , 4 ) ) , 10 ,
|
|
2 ) ,
|
|
'scrapQty' : DEC (
|
|
COALESCE ( T . TOTAL_SCRAP , DEC ( 0 , 15 , 4 ) ) , 10 , 2
|
|
) , 'variance' : DEC (
|
|
COALESCE (
|
|
T . TOTAL_ACTUAL - T . TOTAL_EXPECTED , DEC (
|
|
0 , 15 , 4 ) ) , 10 , 2 ) ,
|
|
'performancePercentage' :
|
|
CASE
|
|
WHEN
|
|
T . TOTAL_EXPECTED > 0
|
|
THEN
|
|
INT (
|
|
( T . TOTAL_ACTUAL / T . TOTAL_EXPECTED *
|
|
100 ) + 0.5 )
|
|
ELSE 0
|
|
END
|
|
)
|
|
) AS WC_OBJ
|
|
FROM WC_TOTALS T
|
|
ORDER BY T . WKCTR , T . STID ) SELECT JSON_ARRAY (
|
|
JSON_OBJECT (
|
|
'date' : TO_CHAR ( V_DATE , 'YYYY-MM-DD' ) , 'workcenters' : (
|
|
SELECT JSON_ARRAYAGG (
|
|
WC_OBJ FORMAT JSON
|
|
)
|
|
FROM JSON_WORKCENTERS ) FORMAT JSON ,
|
|
'dataSource' : 'MOTRAN (Live)' , 'generatedAt' : TO_CHAR (
|
|
CURRENT_TIMESTAMP , 'YYYY-MM-DD HH24:MI:SS' )
|
|
) )
|
|
FROM SYSIBM . SYSDUMMY1 ;
|
|
END ;
|
|
|
|
GRANT ALTER , EXECUTE
|
|
ON SPECIFIC FUNCTION RESTAPI.SFP_GET_HOURLY_PRODUCTION
|
|
TO AMAPICS WITH GRANT OPTION ;
|
|
|
|
GRANT EXECUTE
|
|
ON SPECIFIC FUNCTION RESTAPI.SFP_GET_HOURLY_PRODUCTION
|
|
TO PUBLIC ;
|
|
|