|
midrange.com
Hi
Since oy are creating a program rather than a procedure, simply change
the
line
Dnextelreceive pi
To
Dnextelreceive pr
and you have a 'prototyped program', which is what I think you want...
If not, you will have to add a procedure begin and end statement as
well as
a prototype to create a precedure.
Regards
Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc, Inc.
Rick@daaokc.com <mailto:Rick@daaokc.com>
(405) 947-2886
> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of JMBauman@wardtrucking.com
> Sent: Thursday, April 04, 2002 12:20 PM
> To: rpg400-l@midrange.com
> 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.
