RE: Error due to return opcode in subprocedures

A procedure that returns a value must have a data type on the line with
the name in both the prototype (pr) and the procedure interface (pi).  A
procedure can't return a value unless you specify its data type.  In the
example you gave the data type would be 3s 0.  You could code the return
statement as "return var1 + var2" without using the result variable.

An excellent document is the RPGIV redbook, available on the IBM web
site.  It's clearly written and packed with useful information. It's
designed to teach RPGIV.  It's not a reference manual. You can download
it or read it on line.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
ganeshkumar.murugesan@xxxxxxxxx
Sent: Thursday, February 03, 2005 11:07 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Error due to return opcode in subprocedures


Hi,

When I compile the below subprocedure code, I get an error "An operand
must not be specified for a procedure that does not return a value."

Can anyone tell me how to rectify this error. Do I have to mention the
return variable in the Subprocedure Prototype section too.?

Also can someone send me some good document for learning subprocedures
and modules.?

-----------------------------------------------------
hnomain                                                     
                                                            
dmod1_getresult   pr                                        
d var1                           2s 0                       
d var2                           2s 0                       
            
                                                          
pmod1_getresult   b                   export                
dmod1_getresult   pi                                        
d var1                           2s 0                       
d var2                           2s 0                       
d result          s              3s 0                       
                                                            
c                   eval      result = var1 + var2          
c                   return    result                        
p                 e                                         
                                                   
-------------------------------------------------------


Thanks,
Ganesh.       


Confidentiality Notice

The information contained in this electronic message and any attachments
to this message are intended for the exclusive use of the addressee(s)
and may contain confidential or privileged information. If you are not
the intended recipient, please notify the sender at Wipro or
Mailadmin@xxxxxxxxx immediately and destroy all copies of this message
and any attachments.

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


*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise 
recorded by
The Sharper Image corporate e-mail system and is subject to archival, 
monitoring,
and review by and/or disclosure to Sharper Image security and other management.
This message is intended only for the use of the addressee and may contain 
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the views 
of The Sharper Image.
If you are not the intended recipient, dissemination of this communication is 
prohibited.
*****************************