RE: SQL in Free Format

["Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx>]

Robin,

I kind of like that idea.  Wish I had thought of it.

I think I'll have to update how I write my embedded SQL programs.

Rick

-----Original Message-----
From: Robin Coles [mailto:robin@xxxxxxxxxxxx]
Sent: Wednesday, March 19, 2003 8:03 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: SQL in Free Format

I didn't like the look of it either, so I put the SQL into subroutines:
    Except Header;                            
    ErrorFlag = System('CLRPFM FIXONINW');    
                                              
    Open FixOnInW;                            
                                              
    ExSr Fetch;                               
    DoW SqlCod = 0;                           
                                              
      // Make sure header exists              
                                              
      Ok = *On;                               
      If OlOrNo <> SvOrNo;                    

It's purely cosmetic though.

Cheers
Robin

_______________________________________________
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.