@ tefigel

|--
|   Generate different statements (according to MODE) for the
|   update methods of different classes.
|--
interface(MODE)

case MODE

   when=sql_set

      new_list(PROP_LIST)

      for JPROP=~list_contents(JAVA_PROPERTIES)
         set JPID=~java/property_id(JPROP)
         if JPID#JAVA_PKEY_ID
            add_item(PROP_LIST,JPID)
         endif
      endfor

      escape \
      set P_LIST=~list_contents(PROP_LIST,,=?,,\, )
      escape

      delete_list(PROP_LIST)
      retvalue=P_LIST

   when=java_set

      set PCOUNT=0

      for JPROP=~list_contents(JAVA_PROPERTIES)
         set JPID=~java/property_id(JPROP)
         if JPID#JAVA_PKEY_ID
            add PCOUNT 1
            echo          pstmt.set~java/property_type(JPROP,AbcDef)(PCOUNT, JPID);
         endif
      endfor

      for JPROP=~list_contents(JAVA_PKEYS)
         add PCOUNT 1
         echo          pstmt.set~java/property_type(JPROP,AbcDef)(PCOUNT, ~java/property_id(JPROP));
      endfor

   when=pojo_set

      for JPROP=~list_contents(JAVA_PROPERTIES)
         set JPID=~java/property_id(JPROP)
         if JPID#JAVA_PKEY_ID
            echo       JAVA_OBJ_INSTANCE.set~java/property_id(JPROP,AbcDef)(JPID);
         endif
      endfor

   when=action_detail

      for JPROP=~list_contents(JAVA_PROPERTIES)
         set  JPID=~java/property_id(JPROP)
         if JPID#JAVA_PKEY_ID
            set JPUID=~java/property_id(JPROP,AbcDef)
            echo       df.set&JPUID(JAVA_OBJ_INSTANCE.get&JPUID());
         endif
      endfor

endcase