× 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.



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 thread ...


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.