Re: PDM User Options for CODE

You probably want to have the lock and sequence numbers at the end.
CODEEDIT has the lock options that CODEBRWS does not.  There is a
discussion of this on the CODE thread of midrange.com.  That is probably
more appropriate there anyway.
Here are the comments in my wrapper program:
For EVFCFDBK, there are 4 parms.  The first 3 parms are required.
Parm 4 (CODEPARM) values:
Browse source = 'CODEBRWS "<>&L/&F(&N)" /N'
   Design DDS = 'CODEDSU "<>&L/&F(&N)"'
  Edit source = 'CODEEDIT "<>&L/&F(&N)" /M Y /N'
The empty <> looks for the first server (or enter a server here).
/M Y means to lock the member.
/N indicates to retain sequence numbers.

Your call would be of the form:
                                                                            
 call qcode/evfcfdbk parm('37' 'Y' 'OS400' '<LOCAL> CODEEDIT "<>&L/&F(&N)"  
 /M Y /N')                                                                  
                                                                            
                                                                            


Then just substitute the above options in place of CODEEDIT...
I have written a program that accepts parms to call this EVFCFDBK.  The
main function is to set a current library specified for that user in a file
to ensure everyone runs this with a unique current library.  I did the same
thing wrapping the STRCODE command in a wrapper setting a current library
beforehand.  If you do not have a unique current library set during the
STRCODE, your souce could appear on someone else's workstation.  I have
seen this before.

Craig Strong

** Phil wrote:
                                                                            
 Chris:                                                                     
                                                                            
    Option  . . . . . . . . :   CE                                          
    Command . . . . . . . . :   CALL PGM(Qdevtools/EVFCFDBK) PARM('37' 'Y'  
 'OS400'                                                                    
   '<LOCAL> CODEEDIT "<OS400>&l/&f(&n)"')                                   
                                                                            
 For browse, change CODEEDIT to CODEBRWS.                                   
                                                                            
 Phil