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


  1.  Home
  2. RPG400-L
  3. April 2008

RE: Prototyped call question?

Emily,

I just happened to be browsing material at Scott Klement's site this morning, and saw some very nice presentations that might be helpful... Check out the "ILE Concepts" and the "Pattern" presentations. I wish I had some of this when I was starting with ILE.

http://www.scottklement.com/presentations/

hth,
Eric DeLong

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Emily Smith
Sent: Friday, April 25, 2008 12:03 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Prototyped call question?


Thanks for the responses. I'm new at this (ILE not RPG). I think I understand more clearly now. There was a binding directory in the H specs. I looked at it, and within one of the bound modules 'program' was defined as a subprocedure.

Emily Smith
Programmer/Analyst
Bank Data Services
(618)659-4550

<rpg400-l-request@xxxxxxxxxxxx> 4/25/2008 11:47 AM >>>
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."


*** NOTE: When replying to this digest message, PLEASE remove all text unrelated to your reply and change the subject line so it is meaningful.

Today's Topics:

1. Re: Prototyped call question? (Crispin Bates)
2. Re: Prototyped call question? (Adam Glauser)
3. Re: Prototyped call question? (Mark Walter)
4. Re: Microsoft Transaction Server (MTS) as host and iSeries as
client. (Eduard Sluis)
5. RE: Prototyped call question? (Lim Hock-Chai)
6. RE: Replace CHAIN with SQL (Murphy, Mark)
7. Re: Prototyped call question? (Michael_Schutte@xxxxxxxxxxxx)


----------------------------------------------------------------------

message: 1
date: Fri, 25 Apr 2008 12:06:03 -0400
from: "Crispin Bates" <cbates@xxxxxxxxxxx>
subject: Re: Prototyped call question?

what does procedure "program" do? Does it call the program passed as field1?


----- Original Message -----
From: "Emily Smith" <esmith@xxxxxxxxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, April 25, 2008 11:58 AM
Subject: Prototyped call question?


This isn't exactly a problem, as the program is working perfectly fine. I
guess I just don't understand
*how* it's working.

In the program I'm looking at there is a prototype defined as follows:

Dprogram pr n
D 10a
D 2a
D 1a
D

Then later in the program...

c callp program(field1:field2:field3)

I've searched the source and there is no other reference in the source for
'Program'. There are also no copy directives. When the callp is executed,
an external program is called. How is this possible when their is no
extpgm keyword in the prototype? Also, what is the significance of the 'N'
indicator datatype in the prototype definition?



Emily Smith
Programmer/Analyst
Bank Data Services
(618)659-4550


CONFIDENTIALITY NOTICE: This email message is private,
confidential property of the sender, and the materials
may be privileged communications intended solely for
the receipt, use, benefit, and information of the intended
recipient indicated above. If you are not the intended
recipient, you are hereby notified that any review,
disclosure,distribution, copying or taking of any
other action in reference to the contents of this message
is strictly prohibited, and may result in legal liability
on your part. If you have received this message in error,
please notify the sender immediately and delete this
message from your system. We believe that this email
and any attachments are free of any virus or other defect
that might affect any computer system that it is received
and opened in, however, it is the responsibility of the
recipient to ensure that it is virus free and the sender
accepts no responsibility for any loss or damage.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.






------------------------------

message: 2
date: Fri, 25 Apr 2008 12:08:01 -0400
from: Adam Glauser <adamglauser@xxxxxxxxxxxx>
subject: Re: Prototyped call question?

Emily Smith wrote:
In the program I'm looking at there is a prototype defined as follows:

Dprogram pr n
D 10a
D 2a
D 1a
D

Then later in the program...

c callp program(field1:field2:field3)

I've searched the source and there is no other reference in the source for 'Program'. There are also no copy directives. When the callp is executed, an external program is called. How is this possible when their is no extpgm keyword in the prototype?

Is there another module bound in to the program? Perhaps it has a
procedure called "program" that actually does the call?


Also, what is the significance of the 'N' indicator datatype in the
prototype definition?

That means that the program is returning an indicator.


------------------------------

message: 3
date: Fri, 25 Apr 2008 12:10:50 -0400
from: Mark Walter <MWalter@xxxxxxxxxxxxxxx>
subject: Re: Prototyped call question?

Possibly a binding directory either in the H spec, In the H Spec Data
area, or in the CRTBNDRPG command.

Mark Walter
Paragon Consulting Services, Inc.
IBM Certified System i Specialist
717-764-7909 Ext. 26
mwalter@xxxxxxxxxxxxxxx
www.paragon-csi.com



Adam Glauser <adamglauser@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/25/2008 12:08 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Re: Prototyped call question?






Emily Smith wrote:
In the program I'm looking at there is a prototype defined as follows:

Dprogram pr n
D 10a
D 2a
D 1a
D

Then later in the program...

c callp program(field1:field2:field3)

I've searched the source and there is no other reference in the source
for 'Program'. There are also no copy directives. When the callp is
executed, an external program is called. How is this possible when their
is no extpgm keyword in the prototype?

Is there another module bound in to the program? Perhaps it has a
procedure called "program" that actually does the call?


Also, what is the significance of the 'N' indicator datatype in the
prototype definition?

That means that the program is returning an indicator.

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.