RE: SQL in Free Format

["Robin Coles" <robin@xxxxxxxxxxxx>]

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