Re: Overriding Database files

[David_Lunzman@xxxxxxxxxxxxxxx]

Ed,

This works for me.


     C     OvrMenufl     BEGSR

     C                   Eval      QCMDDDM_Parm1 = 'OVRDBF FILE(MENUFL)' +
     C
' TOFILE(SYSLIBT/MENUFL)' +
     C
' MBR(' + MemberName + ')' +
     C
' OVRSCOPE(*JOB)' +
     C
' OPNSCOPE(*JOB)'
     C                   Exsr      CallExecDDM

     C                   ENDSR


     C     CallExecDDM   BEGSR

     C                   EVAL      QCMDDDM_Parm2 =  %LEN(QCMDDDM_Parm1)
     C                   Call          QCMDDDM
     C                   Parm                    QCMDDDM_Parm1
     C                   Parm                    QCMDDDM_Parm2

     C                   ENDSR


David Lunzman
Business Programmer Analyst


101 O'Neil Rd
Sidney, NY 13838-1055
Phone:(607) 563-9411 x2764
Fax: (607) 563-8811
david_lunzman@at-a-galance.com





                                                                                
            
                    "Buckingham, Ed"                                            
            
                    <Buckingham@AE.com        To:     "'CODE400'" 
<CODE400-L@midrange.com>  
                    >                         cc:                               
            
                    Sent by:                  Subject:     Overriding Database 
files        
                    owner-code400-l@mi                                          
            
                    drange.com                                                  
            
                                                                                
            
                                                                                
            
                    05/17/00 10:43 AM                                           
            
                    Please respond to                                           
            
                    CODE400-L                                                   
            
                                                                                
            
                                                                                
            




I have a simple question for anyone using Visual RPG.  I am trying to do
any
override to an AS/400 database file over a specific member.  I am trying to
use the QCMDDDM command to do it, but I keep getting decimal data errors on
it.  Does anyone have an example for this.  The on-line documentation seems
to be lacking this example.  Thanks in advance!

Ed Buckingham

+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@paque.net
+---



+---
| This is the CODE/400 Mailing List!
| To submit a new message, send your mail to CODE400-L@midrange.com.
| To subscribe to this list send email to CODE400-L-SUB@midrange.com.
| To unsubscribe from this list send email to CODE400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: larry@paque.net
+---