Re: starting out with sub-procedures

A first step maybe...this copy 
 * 
 * Set up Prototype for QCMDEXC 
D Qcmdexc         pr                  Extpgm('QCMDEXC') 
D  Cmd                                Like(Qcmd) Options(*Varsize) Const 
D  Len                          15p 5 Const 
D  Opt                           3    Options(*NoPass) Const 
 * 
D Qcmd            s           1024 

 
In code

D/COPY QCPYLESRC,QCMDEXC

 
 * 
 * CLRPFM SomeFile 
C                   Eval      Qcmd  = 'CLRPFM FILE('SomeFile') 
 * 
C                   CallP(E)  Qcmdexc(Qcmd:%Len(%Trim(Qcmd))) 
 * 
C                   If        %Error
C                   Endif

Hey now that I think about it how does it simpler, clearer, more efficient, and 
all of the other good stuff people 
talk about.

Bill Hopkins

 




"Booth Martin" <Booth@xxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/23/2003 01:57 PM
Please respond to Midrange Systems Technical Discussion

 
        To:     "midrange-l@xxxxxxxxxxxx" <midrange-l@xxxxxxxxxxxx>
        cc: 
        Subject:        starting out with sub-procedures


 
starting out with sub-procedures: 
 
OK, Buck, good suggestion. Its not that I haven't started down this path a
dozen times already, but what the hey, one of these times the light bulb 
may
light up.
 
Here's a simple piece of code I use a lot. How would one make it a simple
procedure that will be simpler, clearer, more efficient, and all of the
other good stuff people talk about.

D Tmpxx                       1024 
D parm15                        15  5 
....
C If Not %error 
C Eval Tmpxx= 'CLRPFM SOMEFILE' 
C Call (E) 'QCMDEXC' 
C Parm Tmpxx
C Parm 1024 parm15
C endif 
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.