[progress Communities] [progress Openedge Abl] Forum Post: Re: Managed To Crash Appserver,...

[OctavioOlguin]

This is full program.... (changed the object oriented to procedural code, thinking the object was the culprit..) //USING dw.dwpromodesempeno FROM PROPATH. DEFINE INPUT PARAMETER TABLE FOR ttPoolAS. DEFINE VARIABLE lRetOK AS LOGICAL NO-UNDO. //DEFINE VARIABLE cDesempeno AS CLASS DW.dwPromoDesempeno NO-UNDO. /* *************************** Main Block *************************** */ FIND FIRST ttPoolas. MESSAGE STRING(ttpoolas.json1). lRetOK = DATASET dsdwPromoDesempeno:READ-JSON("LONGCHAR", ttPoolAS.JSON1 , "EMPTY"). FIND dwPromoDesempeno NO-LOCK WHERE dwPromoDesempeno.Fecha = ttdwPromoDesempeno.Fecha AND dwPromoDesempeno.Nomina = ttdwPromoDesempeno.Nomina AND dwPromoDesempeno.Articulo = ttdwPromoDesempeno.Articulo no-error. //IF AVAILABLE(dwPromoDesempeno) THEN // cDesempeno:UpdatedwPromoDesempeno(INPUT-OUTPUT DATASET dsdwPromoDesempeno). //ELSE // cDesempeno:createdwPromoDesempeno(INPUT-OUTPUT DATASET dsdwPromoDesempeno). last code was ported to procedural syntax, to no avail, as the error is fired from the lRetOK = DATASET... . line and this is the output from the MESSAGE STRING(ttPoolAS.JSON1). line: [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) {"dsdwPromoDesempeno": { [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) "ttdwPromoDesempeno": [ [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) { [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) "Sucursal": 42, [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) "Nomina": 1, [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) "Fecha": "2016-09-02", [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) "Articulo": "ADOBADO", [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) "Kilos": 1.0, [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) "Tickets": 1 [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) } [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) ] [16/09/02@21:13:08.627-0500] P-012872 T-015016 1 AS -- (Procedure: 'procs\ventas\pPromo.p' Line:128) }} TIA

Continue reading...