RE: Update a file using O spec.

["Mike Haston ** Data" <MHaston@xxxxxxx>]

Mark -

Is myField += 1; new to V5R2?  Very handy.  Hope we get there soon.


-----Original Message-----
From: MWalter@xxxxxxxxxxxxxxx [mailto:MWalter@xxxxxxxxxxxxxxx]
Sent: Tuesday, June 10, 2003 9:54 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Update a file using O spec.



 FMyfile    UP   E           k Disk
  /free
    myField += 1;
    except update;
  /end-free
 OmyRec     e            update
 O                       myField

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                                
                                                                     
                    "Paramasivam                                                
                                                                     
                    Murugesan , Gurgaon"        To:     rpg400-l@xxxxxxxxxxxx   
                                                                     
                    <ParamasivamM@xxxxxx        cc:                             
                                                                     
                    ltech.com>                  Subject:     Update a file 
using O spec.                                                             
                    Sent by:                                                    
                                                                     
                    rpg400-l-bounces@xxx                                        
                                                                     
                    range.com                                                   
                                                                     
                                                                                
                                                                     
                                                                                
                                                                     
                    06/10/2003 09:35 AM                                         
                                                                     
                    Please respond to                                           
                                                                     
                    RPG programming on                                          
                                                                     
                    the AS400 / iSeries                                         
                                                                     
                                                                                
                                                                     
                                                                                
                                                                     




Hi all,
How to update a file with 'O' Spec.?  I want to update only 2 fields of a
file which has 40 fields.
If possible, please provide the code sample.

Any suggestions would be highly appreciated.

Thanks in advance,
Murugesan.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.