You must have a custom RUNSQL on your box. The OS version doesn't have a STMT parameter. The parm is SQL. What does WRKOBJ OBJ(*ALL/RUNSQL) show?
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Danny Hayes
Sent: Thursday, August 22, 2019 12:50 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Length of stmt on RUNSQL
V7R3:
According to IBM Wiki Run SQL (RUNSQL) - new command
"In other SQL interfaces, an SQL statement is limited to 2MB in length. The limit on this command is 5000 bytes."
I tried to stick a RUNSQL into a CLLE, it is big but nowhere near 5000 bytes.
When I tried to run it I got:
2 > call dehdev/apartwo
6400 - RUNSQL STMT('Create Table qtemp.apar02 AS (select DRDL02 "Network
ID", pran8 "Vendor Number", ABALPH "name", prkcoo "Company Number",
prdoco "PO Number", prdcto "Order Type", prsfxo "Order Suffix", prlnid
"Line Number", prnlin "Nbr of Lines", prrtby "Written by Program",
pritm "Item Number", prlocn "Location", prvrmk "Supplier Remark",
date(digits(decimal(PRtrdj+1900000,7,0))) "Order Date",
date(digits(decimal(prrcdj+1900000,7,0))) "Receipt Date", prvinv
"Invoice Number", prlnty "Line Type",
Value 'Create Tab' for STMT exceeds 1045 characters.
This is the entire 'thing':
VAR(&CLAWZ) VALUE('select DRDL02 "Network +
ID", pran8 "Vendor Number", ABALPH +
"name", prkcoo "Company Number", prdoco +
"PO Number", prdcto "Order Type", prsfxo +
"Order Suffix", prlnid "Line Number", +
prnlin "Nbr of Lines", prrtby "Written +
by Program", pritm "Item Number", prlocn +
"Location", prvrmk "Supplier Remark", +
date(digits(decimal(PRtrdj+1900000,7,0))) +
"Order Date", +
date(digits(decimal(prrcdj+1900000,7,0)))
"Receipt Date", prvinv "Invoice Number", +
prlnty "Line Type", prmcu "Business +
Unit", prco "Company", praid "Account +
ID", prani "Account Number", prsub +
"Subsidiary", prsbl "Subledger", prsblt +
"Subledger Type", prkco "Document +
Company", prdoc "Voucher Number", prdct +
"Document Type", +
date(digits(decimal(PRDGL+1900000,7,0))) +
"G/L Date", prprrc "Unit Cost", praopn +
"Amount Open", prarec "Amount Received", +
praclo "Amount Closed", pravco "Average +
Cost Difference", prvarc "Cost Variance", +
pruser "User ID", prpid "Program ID", +
prjobn "Work Station ID", prterm +
"Terminal ID", +
date(digits(decimal(PRupmj+1900000,7,0))) +
"Date Updated", prtday "Time Updated" +
from f43121 join F0101 on PRAN8 = ABAN8 +
join F0005 on DRSY = ''01'' and DRRT = +
''16'' and DRKY = '' '' || ABAC16 +
where prmatc = ''2'' and prpid = +
''P4314'' and PRDGL between 119210 and +
119210 order by DRDL02, pran8, prkcoo, +
prdoco ')
I cannot determine where I have gone wrong, but I have obviously.
Thanks in advance for any insights.
Thanks & Regards,
Danny Hayes
IT-Developer
Genuine Parts Company, APG IT
[APGIT_EmailHeader]
3100 Windy Hill Road
Atlanta, Georgia 30339
mailto:Danny_Hayes@xxxxxxxxx
(904) 502-2969
"People will forget what you said, people will forget what you did, but people will never forget how you made them feel." - Maya Angelou
"This email and any attachments, contain Genuine Parts Company confidential information that is proprietary, privileged, and protected by applicable laws. If you have received this message in error and are not the intended recipient, you should not retain, distribute, disclose or use any of this information and you should destroy this email, any attachments or copies therein forthwith. Please notify the sender immediately by email if you have received this email in error."
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
