|
midrange.com
1) Line reading : Dnextelreceive pi
Should be: Dnextelreceive pr
2) How is 'nextelreceive' bound to the program.
3) I don't see anywhere that you are using it, so do you need to specify
it?
David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513
JMBauman@wardtruc
king.com To: rpg400-l@midrange.com
Sent by: cc:
rpg400-l-admin@mi Subject: Calling Program with
a Procedure Interface
drange.com
04/04/02 01:19 PM
Please respond to
rpg400-l
>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-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.
