midrange.com code scratchpad
Name:
Craig Richards
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
03/12/2019 08:47:41 am
IP:
Logged
Description:
SQL Internal Error Example
Code:
  1.       Exec Sql
  2.          Insert into GLOUTQ00 ( RqsText, CrtTime, CrtPgm, TPID )
  3.          With r as (
  4.             Select
  5.                t1.OhOrdr,
  6.                :KeyData.NumLines as NumLines,
  7.                t3.OaLine,  t3.OaProd,  t3.OaPnam,  t3.OaCnam,  t3.OaType,  t3.OaPric,  t3.OaFrgh,
  8.                t4.ImId# as ItemID,
  9.                char( date( timestamp_format( char( t3.oaprmd ), 'YYYYMMDD' ) ), ISO ) as DateReq,
  10.                'A' as DateReqType,
  11.                Case When t3.OaType = '8' then Dec( t3.OaAloc/100, 9, 2)
  12.                     when t3.OaType = '9' then Dec( t8.P2Sqmb, 9, 2)
  13.                     else Dec( (t3.OaAloc * t3.OaWide )/10000, 9, 2)
  14.                     end as SQM,
  15.                t9.PdFnwt as finWeight,
  16.                Dec( ( t3.OaAloc/100 ), 5, 2 ) as Length,
  17.                case when ( t3.OaType = '8' or t3.OaType = '9') then 0
  18.                        else Dec( ( t3.OaWide / 100 ), 5, 2 ) end as Width,
  19.                t1.OhPo# as CustRef,
  20.                t4.Imid# as StockCutID
  21.             From OrdrHdr t1
  22.             Join GlEvLine00 t2 on t2.eventID = :EventID
  23.             Join OrdrAllo t3 on t3.OaOrdr = t1.OhOrdr
  24.                             and t3.OaLine = t2.EventLine
  25.             Join InvMast t4 on t4.ImProd = t3.OaProd
  26.                            and t4.ImRoll = t3.OaRoll
  27.                            and t4.ImFcut = t3.OaFcut
  28.                            and t4.ImGcut = t3.OaGcut
  29.             Left Join MdSvch00 t7 on t7.ShOrdr = t1.OhOrdr
  30.             Join IvProd00 t8 on t8.P2Prod = t3.OaProd
  31.             Join PsProd00 t9 on t9.PdProd = t3.OaProd
  32.             Where t1.OhOrdr = :OrderID
  33.          )
  34.          Select JSON_Object(
  35.                'msgType' value :MsgType,
  36.                'orderNumber' value Strip(r.OhOrdr, T),
  37.                'numLines' value r.NumLines,
  38.                'lines' value
  39.                JSON_ArrayAgg(
  40.                   JSON_Object(
  41.                      'lineNumber' value r.OaLine,             'productCode' value Strip(r.OaProd, T),
  42.                      'productName' value Strip(r.OaPnam, T),  'colourName' value Strip(r.OaCnam, T),
  43.                      'itemID' value Strip(r.ItemID, T),       'dateRequired' value r.DateReq,
  44.                      'dateRequiredType' value r.DateReqType,  'weight' value Dec( r.SQM * r.FinWeight, 6, 2),
  45.                      'length' value r.Length,                 'width' value r.Width,
  46.                      'customerRef' value Strip(r.CustRef, T),
  47.                      'salesValue' value Dec( (r.SQM * r.OaPric) + r.OaFrgh, 9, 2 ),
  48.                      'productType' value r.OaType,            'stockCutID' value Strip(r.StockCutID, T)
  49.                      absent on null
  50.                   )
  51.                )
  52.             absent on null
  53.             ), Current_Timestamp, :PgmSts.Program, :ThirdPartyID
  54.          From r
  55.          Group by
  56.             r.OhOrdr,  r.NumLines
  57.          With NC;
© 2004-2019 by midrange.com generated in 0.002s valid xhtml & css