MAIN
  CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014' 
  CALL actualizacion()
END MAIN
FUNCTION actualizacion()
   DEFINE pnumdoc,pcodmov,IDX INT,
          uscrea VARCHAR(50)
   DECLARE buscar CURSOR FOR
      SELECT DISTINCT a.num_doc,a.cod_mov,a.us_crea FROM iptb00006 a WHERE a.fecha <= '09/30/2021' AND
                                                                        a.cod_n = 6
      ORDER BY a.cod_mov,a.num_doc
      
     LET idx = 1
     FOREACH buscar INTO pnumdoc,pcodmov,uscrea
         UPDATE iptb00006 SET bodega = 23,us_mod='JSOTO',fech_mod=getdate()
                                         WHERE num_Doc = pnumdoc AND cod_mov=pcodmov AND
                                                us_crea = uscrea 
         DISPLAY "ACTUALIZANDO ",pnumdoc," cod mov ",pcodmov," usuario ",uscrea," no registro ",idx                                       
         LET idx = idx +1                                       
     END FOREACH 
END FUNCTION