Starting out with sub-procedures

-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: Thursday, October 23, 2003 1:33:48 PM
To: Midrange Systems Technical Discussion
Subject: 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
---------------------------------------------------------