free format sql

[rob@xxxxxxxxx]

Another reason that free format sql is required:

So that you can use long, qualified variable names in sql.


  /free 
   if (focDesc='INSERT' or focDesc='UPDATE'); 
    // Validate fields. 
    // Make sure that get's and put's aren't allowed to the same directory 

    Select; 
    When new.ftpoper=6; // Send files 
  /end-free 
 C*EXEC SQL 
 C* Select login into :DummyFld 
 C* From GDWEB/FTPUSEROP 
 C* Where login=:new.login and 
 C*       ftpoper=7 and 
 C*       upper(ftpparm)=upper(:new.ftpparm) 
 C*END-EXEC 
 C                   EVAL      SQL_00005  = LOGIN 
 C                   EVAL      SQL_00006  = FTPPARM 

Notice the precompiler generated code had dropped the qualification on the 
variable names?

I wonder how they'll support
     D MyLovelyDS      ds
     D  fld1                         10a
     D  SubDataStrA                        likeDS(youbetcha)
     D YouBetcha       ds 
     D  LongFldNameA                  1a
     D  LongFldNameB
      * A valid field name is MyLovelyDS.SubDataStrA.LongFldNameA
      * And, to be really fun we could have DIMmed MyLovelyDs and 
SubDataStrA

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin