× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Kevin,

A winner, thanks for your input, there were about half a dozen variations on the system, but only one in QSYS, the one I needed.

Thanks to everyone else who replied, you guys are great!

Thanks & Regards,
Danny Hayes
IT-Developer
Genuine Parts Company, APG IT

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



-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Kevin Bucknum
Sent: Thursday, August 22, 2019 2:02 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXT] RE: Length of stmt on RUNSQL

External Email: This is an EXTERNAL email do not click links or open attachments unless you know the content is safe. Please use caution with Urgent Requests.


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://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Fmidrange-l&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451577202&amp;sdata=Jv%2F03EObAalXkkWeWBc509WQnpFswGvsl72dRpVg7Xo%3D&amp;reserved=0
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Fmidrange-l&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451577202&amp;sdata=FYJnQFcFf6IquvgqD62jxRkDvABQM%2BnA7xDqA7Ssfv8%3D&amp;reserved=0.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451577202&amp;sdata=zwmnFqzKsnKZvYz4ZagN4fU3T%2Fmpze1QRFDq85%2FdnZI%3D&amp;reserved=0


[https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.medtronsoftware.com%2Fimg%2FMedtronMinilogo.bmp&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451577202&amp;sdata=w8XhuF4%2B%2BAGdj9plXIMAJY3dIlY5D17pJGtthL9GPWE%3D&amp;reserved=0] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.medtronsoftware.com&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451577202&amp;sdata=6%2FK7EhPaLh30eNdnFYv%2F1mI18SehwCi599HU9wII3RM%3D&amp;reserved=0



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.
--
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://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flists.midrange.com%2Fmailman%2Flistinfo%2Fmidrange-l&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451587184&amp;sdata=5LinIzXndlyOyneNS4%2BRlkkeVs8KgT9fdNEXHZyaLP4%3D&amp;reserved=0
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Farchive.midrange.com%2Fmidrange-l&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451587184&amp;sdata=YONS8ecJy8mUefImekI122v5B3q13Pm1TB3XPrxmJbg%3D&amp;reserved=0.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Famazon.midrange.com&amp;data=02%7C01%7Cdanny_hayes%40genpt.com%7C1c66670f2f1641119e2b08d7272ae195%7Cb439d764f2cb43eaac052e373c83043e%7C0%7C0%7C637020937451587184&amp;sdata=SO%2BDLiKPojhm%2Bw73Pwg1hmbs7DA5Otd7wLUUv1yskr0%3D&amp;reserved=0

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.