|
midrange.com
This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
As the other person said - you need a prototype in this program also. I
assume that the source shown is the callee program and not the caller
program.
It is recommended that you do one of two things. Either
1) Put your prototypes in a /copy or /include member
2) Leave your prototypes in your callee program and use conditional
compilation to just pull in the prototypes into your caller programs.
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
JMBauman@wardtrucking.com
Sent by: rpg400-l-admin@midrange.com
04/04/2002 01:19 PM
Please respond to rpg400-l
To: rpg400-l@midrange.com
cc:
Fax to:
Subject: Calling Program with a Procedure Interface
>How are you defining the Procedure ?
Here is my source. (It will not compile)
hoption(*srcstmt)
fqprint o f 132 printer
Dnextelreceive pi
D ptype 8
D pdot 3
D pdpro 8
D pdpo 20
D pdconsignee 30
D pdconaddress1 30
D pdconaddress2 30
D pdcity 20
D pdstate 2
D pdzipcode 6
D pdhu 5
D pdpieces 5
D pdweight 7
D pdstatus 10
D pdreceivedby 30
D ppconfirmation 10
D ppshipper 30
D ppshipaddress1 30
D ppshipaddress2 30
D ppshipcity 30
D ppshipstate 2
D ppshipzipcode 6
D ppweight 7
D pppieces 5
D ppkgcode 2
D ppdestcity 30
D ppdeststate 2
D ppdestzipcode 6
D pppronumber 11
dwkpro ds
d #ot 1 3 0
d #pro 4 11 0
ddelvline s 132
ddelvline1 s 132
c select
c when ptype = 'Delivery'
c exsr procesdelivery
c when ptype = 'Pickup'
c exsr procespickup
c endsl
c eval *inlr = *on
c return
c**********************************************************************
c* Process Delivery Detail sent back from Nextel Phones.
c**********************************************************************
c procesdeliverybegsr
c clear delvline
c eval delvline = 'Type: Delivery' + ' ' +
c 'Pro Number: ' + ' ' +
c %trim(pdot) +
c ' ' +
c %trim(pdpro) +
c ' ' +
c 'Consignee: ' + ' ' +
c (pdconsignee) +
c ' ' +
c 'Address: ' + ' ' +
c (pdconaddress1) +
c ' ' +
c 'Address: ' + ' ' +
c (pdconaddress2)
c eval delvline1 =
c 'City: ' + ' ' +
c (pdcity) +
c ' ' +
c 'State: ' + ' ' +
c %trim(pdstate) +
c ' ' +
c 'Zip: ' + ' ' +
c %trim(pdzipcode) +
c ' ' +
c 'HU: ' + ' ' +
c %trim(pdhu) +
c ' ' +
c 'Pieces: ' + ' ' +
c %trim(pdpieces) +
c ' ' +
c 'Weight: ' + ' ' +
c %trim(pdweight) +
c ' ' +
c 'Status: ' + %trim(pdstatus) +
c ' ' +
c 'Received by: ' + ' ' +
c %trim(pdreceivedby)
c except dline
c except dline1
c endsr
c**********************************************************************
c* Process pickup Detail sent back from Nextel Phones.
c******************************************************************
c procespickup begsr
c clear delvline
c eval delvline = 'Type: Delivery' + ' ' +
c 'Pro Number: ' + ' ' +
c ' ' +
c %trim(pdpro) +
c ' ' +
c 'Consignee: ' + ' ' +
c (pdconsignee) +
c ' ' +
c 'Address: ' + ' ' +
c (pdconaddress1) +
c ' ' +
c 'Address: ' + ' ' +
c (pdconaddress2)
c eval delvline1 =
c 'City: ' + ' ' +
c (pdcity) +
c ' ' +
c 'State: ' + ' ' +
c %trim(pdstate) +
c ' ' +
c 'Zip: ' + ' ' +
c %trim(pdzipcode) +
c ' ' +
c 'HU: ' + ' ' +
c %trim(pdhu) +
c ' ' +
c 'Pieces: ' + ' ' +
c %trim(pdpieces) +
c ' ' +
c ' ' +
c 'Weight: ' + ' ' +
c %trim(pdweight) +
c ' ' +
c 'Status: ' + %trim(pdstatus) +
c ' ' +
c 'Received by: ' + ' ' +
c %trim(pdreceivedby)
c endsr
oqprint E dline
o delvline 132
oqprint E dline1
o delvline1 132
****************** End of data ****************************************
_______________________________________________
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
