*
      * même principe que ARTIMG_GIF, mais ici les images sont lues dans la
      *  base et crées dans IFS.
      *
 
 
     d Image           s                   SQLTYPE(BLOB_FILE)
     d articles      e ds
     C/exec sql
     C+ DECLARE C1 CURSOR FOR SELECT noart FROM webdb/articles
     C/end-exec
     C/exec sql
     C+         open c1
     C/end-exec
     c                   dou       sqlcod <> 0
     C/exec sql
     C+         fetch c1 into :noart
     C/end-exec
     c                   if        sqlcod <> 0
     c                   leave
     c                   endif
     c                   eval      image_fo = SQFCRT
     c                   eval      image_name = '/tmp/' +
     c                              %trimr(noart) + '.jpg'
     c                   eval      image_nl = %len(%trim(image_name))
     C/exec sql
     C+         select image into :image from articles
     C+          where noart = :noart
     C/end-exec
     c                   enddo
 
     C/exec sql
     C+         close c1
     C/end-exec
     C/exec sql
     C+         commit
     C/end-exec
     c                   eval      *inlr = *on