|
This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. -- [ Picked text/plain from multipart/alternative ] Thanks everyone. I did have CA10 difined in my DDS. It works fine now. -----Original Message----- From: rpg400-l-request@midrange.com [mailto:rpg400-l-request@midrange.com] Sent: Friday, April 26, 2002 12:00 PM To: rpg400-l@midrange.com Subject: RPG400-L digest, Vol 1 #688 - 13 msgs Send RPG400-L mailing list submissions to rpg400-l@midrange.com To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@midrange.com You can reach the person managing the list at rpg400-l-admin@midrange.com When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." Today's Topics: 1. RE: FTP from an RPG program (Bartell, Aaron L. (TC)) 2. Re: Request for CL, DDS, SQL RPG enhancements (Jeff Crosby) 3. RE: Request for CL, DDS, SQL RPG enhancements (Dan Bale) 4. help with compiler directives. (Jon Paris) 5. I have a subfile question (Malchow, Grizzly) 6. RE: I have a subfile question (Fisher, Don) 7. RE: I have a subfile question (Dan Bale) 8. Re: RE: FTP from an RPG program (Mike Naughton) 9. RE: I have a subfile question (Rick Williams) 10. Re: I have a subfile question (Richard B Baird) 11. help with compiler directives. (Jon Paris) 12. help with compiler directives. (Jon Paris) 13. Re: MCH3601 (Carel Teijgeler) --__--__-- Message: 1 From: "Bartell, Aaron L. (TC)" <ALBartell@taylorcorp.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: FTP from an RPG program Date: Fri, 26 Apr 2002 08:01:41 -0500 Reply-To: rpg400-l@midrange.com >Er, sure. why don't you just call the CL FTP command from RPG using >one of the command APIs? That is what I am currently doing and it is not working. Aaron Bartell -----Original Message----- From: Jim Langston [mailto:jlangston@celsinc.com] Sent: Thursday, April 25, 2002 6:38 PM To: 'rpg400-l@midrange.com' Subject: RE: FTP from an RPG program Er, sure. why don't you just call the CL FTP command from RPG using one of the command APIs? Basically, just about *any*thing you can do in CL you can do in RPG using QCMD or such. Regards, Jim Langston -----Original Message----- From: Bartell, Aaron L. (TC) [mailto:ALBartell@taylorcorp.com] I know how to dynamically build an FTP script in an RPG program and then execute that script from a CL program with the FTP CL command, but I am wondering if I can do a QCMDEXC from within a RPG program and get the same results? I am basically trying to take all of the FTP processes out of the CL program and put it into the RPG program for reasons I don't wish to take the time to explain. Here is what I am doing, but it doesn't seem to be executing the FTP command. qCmdCmd = 'OVRDBF FILE(INPUT) TOFILE(QTEMP/QFTPSRC) MBR(FTPSCRIPT)'; exsr $qCmdExc; qCmdCmd = 'FTP RMTSYS(172.99.99.99)'; exsr $qCmdExc; . . . C $qCmdExc BEGSR C call 'QCMDEXC' 01 C parm qCmdCmd C parm qCmdLen C ENDSR note: Member FTPSCRIPT does have FTP commands in it to process. Anybody got any suggestions, Aaron Bartell _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. --__--__-- Message: 2 Date: Fri, 26 Apr 2002 08:03:48 -0500 From: Jeff Crosby <jlcrosby@dilgardfoods.com> Organization: Dilgard Frozen Foods To: rpg400-l@midrange.com Subject: Re: Request for CL, DDS, SQL RPG enhancements Reply-To: rpg400-l@midrange.com Simon Coulter wrote: > >If the answer to every CL enhancement request is 'use REXX', why are > >we being asked in the first place? > > I'm simply pointing out that there are alternatives available on your > existing system that satisfy the requirements. We've had Rexx on the > AS/400 for 10 years. In that time CL has had only two programming > enhancements: I understand. And I'm actually looking at REXX a bit. I wasn't trying to start anything, I just wanted to point out that the initial post specifically asked for suggested enhancements, not alternatives, that's all. In CL's case, it's way, way overdue. > >That's like saying "What do you want in future RPG enhancements?" and > >for every suggestion made the response is 'use C'. > > No it's not! For one thing C is a much harder language to learn and > program in than RPG (in fact C is harder than any language except > Assembly). Rexx is no harder than CL and in many ways easier. Well, yes it is in regards to the initial request for enhancements. Whether C is harder/easier than RPG and whether REXX is harder/easier than CL is immaterial to the reason for my post. The fact that there is another way to do a particular thing is fine and I don't _really_ have a burr up my you-know-where regarding you stating that. <g> Again, all I was pointing out is the initial post was a request for enhancements, that's all. -- Jeff Crosby Dilgard Frozen Foods, Inc. P.O. Box 13369 Ft. Wayne, IN 46868-3369 260-422-7531 The opinions expressed are my own and not necessarily the opinion of my company. Unless I say so. --__--__-- Message: 3 From: "Dan Bale" <dbale@samsa.com> To: <rpg400-l@midrange.com> Subject: RE: Request for CL, DDS, SQL RPG enhancements Date: Fri, 26 Apr 2002 09:41:23 -0400 Reply-To: rpg400-l@midrange.com Simon, I *always* look forward to reading your posts with attitude! <g> I usually don't verbalize like that until I've quaffed a few drafts to loosen up the joints. Funny isn't it, after all these years, there are still some people who refuse to touch RPG-IV? It's no longer NEW, folks! - Dan Bale (I am *NOT* "Dale" http://archive.midrange.com/midrange-l/200105/msg00281.html ) SAMSA, Inc. 989-790-0507 DBale@SAMSA.com <mailto:DBale@SAMSA.com> Quiquid latine dictum sit altum viditur. (Whatever is said in Latin seems profound.) -----Original Message----- From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On Behalf Of Simon Coulter Sent: Thursday, April 25, 2002 8:09 PM To: rpg400-l@midrange.com Subject: Re: Request for CL, DDS, SQL RPG enhancements Hello Rick, You wrote (cluttered in HTML crap): >Simon: I concur with Jeff. We were asked to submit suggestions to >improve the existing software and from I have been reading, I would >find many of them quite useful. I agree that some enhancements to CL are long overdue but my point is that there is an existing, free alternative you've had available for over 10 years. You should consider using it in place of CL -- not everything but use it where appropriate. > To suggest using REXX at my shop would meet with opposition. While a >few developers would probably like to learn REXX, sadly many would not. >Support of REXX applications would become an issue. Well my answer to that is: F*** them! It is not their job to say what tools will and won't be used. Rexx is not difficult to learn and even easier to modify. This argument smacks of the same recalcitrance that surrounds the move to RPG IV. Any existing RPG III (/400) programmer who cannot see the benefits of RPG IV (and ILE) and doesn't want to start using it immediately is an idiot not worth the salary they are collecting. I'm not interested in arguments from people who say they'd like to use it but couldn't because their manager wouldn't let them, or they have a package written in RPG III and so can't move. That is a different argument and not entirely valid in my view. Even shops with packaged sofware write in-house programs and they don't have to be restricted to the package requirements. Managers who fail to grasp the benefits should be lobbied until they do (or until the programmer finds a more enlightened shop). Opposition to new things is common. Very few of us can truly see something new as it is. Some new things are beneficial and some are not. Discerning the difference is a talent. However, the IT industry is a hotbed of change (not all of it good) where IT practitioners are expected to learn new things as part of their job. So if you have programmers who don't want to learn, who continue to use ancient techniques where better alternatives exist, and who refuse to advance themselves, then f** 'em! Sack them and get new people who are better. Regards, Simon Coulter. --__--__-- Message: 4 From: "Jon Paris" <Jon.Paris@Partner400.com> To: <rpg400-l@midrange.com> Subject: help with compiler directives. Date: Fri, 26 Apr 2002 11:12:36 -0400 Reply-To: rpg400-l@midrange.com >> Its appearing that I am going to need to start using /Define in my prototypes, but I can't get them to work correctly. Why are you bothering? Prototypes don't define any storage, so having more defined in your code than you need doesn't cause any problems. The only time I use them is when I want to embed the protos within the subprocedure source so that I don't have to maintain an additional source member. As to the message you're getting are you sure it is not simply because the LIKE(QAHSTDS) definition can't find the definition for QAHSTDS ? Jon Paris Partner400 --__--__-- Message: 5 From: "Malchow, Grizzly" <GMalchow@automaticproducts.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: I have a subfile question Date: Fri, 26 Apr 2002 10:17:54 -0500 Reply-To: rpg400-l@midrange.com This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. -- [ Picked text/plain from multipart/alternative ] It's been a while since I have written a sub file program, so I imagine there is a simple solution to this problem that I don't know about or I have forgotten. I have a subfile that allows the user to change a quantity. Once the quantity is changed the user can either press Enter to update the order, or F10 to complete the order, which basically doesn't allow the user to make any further changes to the current order. My question is why are the changes made in the subfile only seen when I press enter? If I change a quantity and press enter I can see the values for the quantities I changed. When I change a quantity and press F10 I can only see the values for the quantities that were written to the subfile when I loaded it. I am not seeing the changes I make when I press F10. I have tried both chaining to the subfile and using the ReadC op code, but I get the same results. Could I be missing a Keyword in my DDS? Does the operation system iterate the enter key differently than a function key? Any ideas would be greatly appreciated. Thanks Griz --__--__-- Message: 6 From: "Fisher, Don" <Dfisher@roomstoreeast.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: I have a subfile question Date: Fri, 26 Apr 2002 11:11:10 -0400 Reply-To: rpg400-l@midrange.com Is F10 defined in the DDS as CA10 by any chance? If so, change it to CF10 and that should fix the problem. Donald R. Fisher, III Project Manager The Roomstore Furniture Company (804) 784-7600 extension 2124 DFisher@roomstoreeast.com <clip> My question is why are the changes made in the subfile only seen when I press enter? If I change a quantity and press enter I can see the values for the quantities I changed. When I change a quantity and press F10 I can only see the values for the quantities that were written to the subfile when I loaded it. <clip> --__--__-- Message: 7 From: "Dan Bale" <dbale@samsa.com> To: <rpg400-l@midrange.com> Subject: RE: I have a subfile question Date: Fri, 26 Apr 2002 11:27:47 -0400 Reply-To: rpg400-l@midrange.com Hah! An easy one! Your F10 is probably coded as CA10 in your display file DDS. Change it to CF10 and your problem should be solved. CAnn does not return any data to the program (useful for F3=Exit immediately type stuff, especially if you validate field values in your display file DDS). CFnn does return data. - Dan Bale (I am *NOT* "Dale" http://archive.midrange.com/midrange-l/200105/msg00281.html ) SAMSA, Inc. 989-790-0507 DBale@SAMSA.com <mailto:DBale@SAMSA.com> Quiquid latine dictum sit altum viditur. (Whatever is said in Latin seems profound.) -----Original Message----- From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On Behalf Of Malchow, Grizzly Sent: Friday, April 26, 2002 11:18 AM To: 'rpg400-l@midrange.com' Subject: I have a subfile question This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. -- [ Picked text/plain from multipart/alternative ] It's been a while since I have written a sub file program, so I imagine there is a simple solution to this problem that I don't know about or I have forgotten. I have a subfile that allows the user to change a quantity. Once the quantity is changed the user can either press Enter to update the order, or F10 to complete the order, which basically doesn't allow the user to make any further changes to the current order. My question is why are the changes made in the subfile only seen when I press enter? If I change a quantity and press enter I can see the values for the quantities I changed. When I change a quantity and press F10 I can only see the values for the quantities that were written to the subfile when I loaded it. I am not seeing the changes I make when I press F10. I have tried both chaining to the subfile and using the ReadC op code, but I get the same results. Could I be missing a Keyword in my DDS? Does the operation system iterate the enter key differently than a function key? Any ideas would be greatly appreciated. Thanks Griz _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. --__--__-- Message: 8 Date: Fri, 26 Apr 2002 11:33:47 -0400 Subject: Re: RE: FTP from an RPG program To: rpg400-l@midrange.com From: "Mike Naughton" <mnaughton@juddwire.com> Reply-To: rpg400-l@midrange.com How about OVRSCOPE(*CALLLVL) ? rpg400-l@midrange.com writes: >In fact, you'd probably have to change the OVRDBF to do a >OVRSCOPE(*JOB). Mike Naughton Senior Programmer/Analyst Judd Wire, Inc. 124 Turnpike Road Turners Falls, MA 01376 413-863-4357 x444 mnaughton@juddwire.com --__--__-- Message: 9 From: Rick Williams <rickw@aspersoft.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: I have a subfile question Date: Fri, 26 Apr 2002 11:33:52 -0400 Reply-To: rpg400-l@midrange.com Check your DDS and be sure you are using CF10 and not CA10 for your F10 function. CA10 will NOT return data from the screen; CF10 will return data. Rick Williams -----Original Message----- From: Malchow, Grizzly Sent: Friday, April 26, 2002 11:18 AM To: 'rpg400-l@midrange.com' Subject: I have a subfile question This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. -- [ Picked text/plain from multipart/alternative ] It's been a while since I have written a sub file program, so I imagine there is a simple solution to this problem that I don't know about or I have forgotten. I have a subfile that allows the user to change a quantity. Once the quantity is changed the user can either press Enter to update the order, or F10 to complete the order, which basically doesn't allow the user to make any further changes to the current order. My question is why are the changes made in the subfile only seen when I press enter? If I change a quantity and press enter I can see the values for the quantities I changed. When I change a quantity and press F10 I can only see the values for the quantities that were written to the subfile when I loaded it. I am not seeing the changes I make when I press F10. I have tried both chaining to the subfile and using the ReadC op code, but I get the same results. Could I be missing a Keyword in my DDS? Does the operation system iterate the enter key differently than a function key? Any ideas would be greatly appreciated. Thanks Griz _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. --__--__-- Message: 10 To: rpg400-l@midrange.com From: "Richard B Baird" <rbaird@esourceconsulting.com> Subject: Re: I have a subfile question Date: Fri, 26 Apr 2002 10:42:47 -0500 Reply-To: rpg400-l@midrange.com Griz It's probably not a subfile problem, but a command key thing. is F10 described with a CA10 or CF10? If CA10, change it to CF. If not, ignore the man behind the curtain Rick ---original message--- It's been a while since I have written a sub file program, so I imagine there is a simple solution to this problem that I don't know about or I have forgotten. I have a subfile that allows the user to change a quantity. Once the quantity is changed the user can either press Enter to update the order, or F10 to complete the order, which basically doesn't allow the user to make any further changes to the current order. My question is why are the changes made in the subfile only seen when I press enter? If I change a quantity and press enter I can see the values for the quantities I changed. When I change a quantity and press F10 I can only see the values for the quantities that were written to the subfile when I loaded it. I am not seeing the changes I make when I press F10. I have tried both chaining to the subfile and using the ReadC op code, but I get the same results. Could I be missing a Keyword in my DDS? Does the operation system iterate the enter key differently than a function key? Any ideas would be greatly appreciated. Thanks Griz --__--__-- Message: 11 From: "Jon Paris" <Jon.Paris@Partner400.com> To: <rpg400-l@midrange.com> Subject: help with compiler directives. Date: Fri, 26 Apr 2002 12:24:05 -0400 Reply-To: rpg400-l@midrange.com Mike, if you don't understand subprocedures I would suggest that rather than just "jump in" you start by reading the intro that you will find in the RPG Redbook "Who Knew You ....." at www.redbooks.ibm.com. There are many things you can learn to do simply by trying it, but I'm not convinced that subprocedures are on the list unless you have a background in (say) C or Pascal. One of the things you need to study is the difference between local and global variables. If QAHSTDS is defined within a subprocedure, then it cannot be referenced _in_any_way_ from outside that procedure. Since prototypes are at the global level - the compiler cannot "see" the definition of QAHSTDS - hence the error. All variables defined in subprocs are local to the subproc. Jon Paris Partner400 --__--__-- Message: 12 From: "Jon Paris" <Jon.Paris@Partner400.com> To: <rpg400-l@midrange.com> Subject: help with compiler directives. Date: Fri, 26 Apr 2002 12:24:07 -0400 Reply-To: rpg400-l@midrange.com It's not often I disagree with you Gary but ... >> While unused prototypes don't occupy program object space, they do >> occupy space. Huh? Can you say that again in English please <grin> - the only "space" I can see being occupied is on the compiler listing (and hence in the program object if you choose *LIST debug view. Also, I would never have 1,000 protos in one source anyway. 50 maybe, but a 1,000? Jon Paris Partner400 --__--__-- Message: 13 Date: Fri, 26 Apr 2002 18:46:17 +0200 To: rpg400-l@midrange.com From: Carel Teijgeler <COTeijgeler@chello.nl> Subject: Re: MCH3601 Reply-To: rpg400-l@midrange.com -- Mark, Not many responses yet. The code look fine to me. Now something "tricky": I have not used this technique. Have you considered to return a pointer, on which the arrays (the global one and the local in the procedure) are based? Just a thought. Regards, Carel Teijgeler >I am having fits with a routine that is getting a 'pointer not >referenced' error when trying to return an array. Both are RPGIV. The >call is prototyped. If I look at the procedure in debug, it works fine >until the return statement then it fails. Here is the siginficant code: -- --__--__-- _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) digest list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. End of RPG400-L Digest
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
