stack multiple INCLUDE's -- RPG400-L

/free and /end-free are no langer needed since... ?And certainly NOT allowed in the midst of sql Statements.I also think breaking down single lines of code into copybooks is more confusing than helpful.Keep your code readable!Von meinem Samsung Galaxy Smartphone gesendet.
------------------------------message: 3date: Fri, 8 May 2020 23:17:26 -0700from: Reeve <rfritchman@xxxxxxxxx>subject: Multiple INCLUDE statements in SQLRPGLEI'm trying to stack multiple INCLUDE's to generate static SQL. The goal isto move common code out of the application source and into copy books forease of development and maintenance. I have a need to include a JOIN insome cases, and while I could simply have two versions of a singleconsolidated copy book (one with the join and one without), that solutiondoesn't appeal to me.This is the first copy book:EXEC SQLSELECT cmcust INTO :cmcust FROM arp001and this is the second:WHERE cmstat = 'A'and this is the third:AND CMCLS = 'R'...and there will be additional selections.Here's what the code might look like: /include qcpysrc,testcopy1JOIN arp002 ON cmcust = nmcust /include qcpysrc,testcopy2 /include qcpysrc,testcopy3 and cmcls = 'R' and nmtype = '2';The source out of the preprocessor includes an /END-FREE and the compilertags the "-" in column 11 as an error even when the source member includesa /FREE in it. The first SQL line isn't terminated so the preprocessor islikely not looking for an /END-FREE.Position 11 Token - was not valid. Valid tokens: FOR USEWhen I've added a /FREE statement to these source members, the error stillappears. I've tried COPY as well; still getting errors in the preprocessoroutput. Using RPGPPOPT(*LVL2) and V7R3M0.I'll be grateful for any ideas!Stay safe and stay healthy.-reeve------------------------------message: 4date: Sat, 9 May 2020 11:52:24 -0500from: Booth Martin <booth@xxxxxxxxxxxx>subject: Re: Hpw would one create additional function keys in the display file.My first thought is that mapping keys might work but gads that'd be injecting a new layer of instructions? forever and seemed useless.Would using RTNCSRLOC(&Record &Field)? be a work-around? I've used a 1-char field with DTVAL("?") DSPATR(PR) And when the cursor is in that field the Enter key causes a related action to occur.An underlying design issue seems more significant though. if the screen needs more than 24 F-keys that is a pretty reliable indicator that way too much is going on that screen; It most likely needs to be broken down into 3 or more screensOn 5/9/2020 5:29 AM, Patrik Schindler wrote:> Hello Darryl,>> Am 08.05.2020 um 22:35 schrieb dfreinkel@xxxxxxxxxxxxxxxxx:>>> When I worked on one of the ERP packages, they used an additional function>> key, I think it was something like Alt F1, Alt F2,.>>>> How does one do this in a DSPF and RPG program?> AFAIK, the 5250 data stream has no concept about Shift and Alt-Modifiers for Function-Keys. What is actually sent is depending on how the client handles combined key strokes.>> :wq! PoC>> PGP-Key: DDD3 4ABF 6413 38DE - https://www.pocnet.net/poc-key.asc>------------------------------message: 5date: Sat, 9 May 2020 16:54:39 +0000from: Scott Mildenberger <smildenberger@xxxxxxxxxxxx>subject: RE: Multiple INCLUDE statements in SQLRPGLETo me this seems like it will end up being a confusing mess. If this is common code I would put into a procedure in a service program and have all the programs use the service program. It seems much cleaner solution and if you ever have to change this common code it is easy to do with a service program without having to recompile every program that uses the /include.Scott Mildenberger | Software Developer | Washington Companies IT Services | 101 International Drive | Missoula, MT | Office: 406-523-1536 | www.washingtoncompanies.com-----Original Message-----From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of ReeveSent: Saturday, May 9, 2020 12:17 AMTo: rpg400-l@lists.midrange.comSubject: Multiple INCLUDE statements in SQLRPGLEI'm trying to stack multiple INCLUDE's to generate static SQL. The goal is to move common code out of the application source and into copy books for ease of development and maintenance. I have a need to include a JOIN in some cases, and while I could simply have two versions of a single consolidated copy book (one with the join and one without), that solution doesn't appeal to me.This is the first copy book:EXEC SQLSELECT cmcust INTO :cmcust FROM arp001and this is the second:WHERE cmstat = 'A'and this is the third:AND CMCLS = 'R'...and there will be additional selections.Here's what the code might look like: /include qcpysrc,testcopy1JOIN arp002 ON cmcust = nmcust /include qcpysrc,testcopy2 /include qcpysrc,testcopy3 and cmcls = 'R' and nmtype = '2';The source out of the preprocessor includes an /END-FREE and the compiler tags the "-" in column 11 as an error even when the source member includes a /FREE in it. The first SQL line isn't terminated so the preprocessor is likely not looking for an /END-FREE.Position 11 Token - was not valid. Valid tokens: FOR USEWhen I've added a /FREE statement to these source members, the error still appears. I've tried COPY as well; still getting errors in the preprocessor output. Using RPGPPOPT(*LVL2) and V7R3M0.I'll be grateful for any ideas!Stay safe and stay healthy.-reeve--This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,visit: https://lists.midrange.com/mailman/listinfo/rpg400-lor email: RPG400-L-request@lists.midrange.comBefore posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.comThis email has been scanned by Washington Corporations using Message Labs Spam Filtering Technology. If this e-mail is SPAM that you no longer want to receive, please refer to the Spam or Junk Email Handling Process (https://washcorp.service-now.com/kb_view.do?sysparm_article=KB0011399). If you are experiencing any other e-mail problems, please call the IT Service Center at 855-WC-IT-NOW or x1212 from any office phone.------------------------------Subject: Digest Footer-- This is the RPG programming on IBM i (RPG400-L) digest listTo post a message email: RPG400-L@lists.midrange.comTo subscribe, unsubscribe, or change list options,visit: https://lists.midrange.com/mailman/listinfo/rpg400-lor email: RPG400-L-request@lists.midrange.comBefore posting, please take a moment to review the archivesat http://archive.midrange.com/rpg400-l.Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.Help support midrange.com by shopping at amazon.com with our affiliatelink: https://amazon.midrange.com------------------------------End of RPG400-L Digest, Vol 19, Issue 332*****************************************