Re: Updating a program described file

[Booth Martin <booth@xxxxxxxxxxxx>]

In other words, even if it works, it won't be deleting any members that way?



Jeff Young wrote:
> Booth,
> The file is opened to either the first member or via an ovrdbf to the specified member.
> Using the Update op code, the program just updates the record in the file for the menber that was opened.
>  
> Jeff Young 
> Sr. Programmer Analyst
> IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
> IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
> IBM  Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3 
>
>
>   
>  
>
>
>
>
>
> ----- Original Message ----
> From: Booth Martin <booth@xxxxxxxxxxxx>
> To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> Sent: Tuesday, February 26, 2008 3:28:06 PM
> Subject: Re: Updating a program described file
>
> Is there time for a *duh* question from a programmer that will be 
> red-faced in a few minutes?? 
>
> I understood that the update opcode was to update a record, not a 
> member?  I don't understand how this would work, even if were made to work?
>
> Jeff Young wrote:
>   
> > Another solution would be to add a data structure for the source file to the program and use that for his I/O:
> > FQCLSRC    UF  F  92        DISK                                
> > IQCLSRC    AA  01                                                  
> >  *                                                                
> > D SOURCE      E  DS                        EXTNAME(QCLSRC)
> > C    *entry        plist                                          
> >  C                  parm                    filename        24    
> >  *                                                                
> > C                  read      QCLSRC              SOURCE              
> >  *                                                                  
> >  C                  eval      SrcDta = 'delete ' + filename 
> >  C                  update    qclsrc                    SOURCE        
> >  *                                                                  
> >  C                  eval      *inlr = *on                            
> >
> >  
> > Jeff Young 
> > Sr. Programmer Analyst
> > IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
> > IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
> > IBM  Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3 
> >
> >
> >  
> >
> >  
> >     
>
>