DEFINE usuarios,clave VARCHAR(50),
       numeroOrden,codn,i INT 
MAIN

   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   
CONNECT to "smarmotech" USER  usuarios USING clave
CALL busca_ordenes()
END MAIN

FUNCTION busca_ordenes()
   
   DECLARE buscar CURSOR FOR
       SELECT DISTINCT a.num_oc FROM prtb00012 a,prtb00013 b WHERE a.num_oc = b.num_oc AND b.cod_n IN (25,20,12) AND
                                                          a.fecha_oc BETWEEN '01/01/2020' AND '03/30/2020' AND
                                                          a.status_t IS NULL  
       LET i = 0
       DISPLAY "PROCESO INICIADO..."
       FOREACH buscar INTO numeroOrden
          DISPLAY "BUSCANDO ORDEN ",numeroOrden 
          SELECT DISTINCT a.cod_n FROM prtb00013 a WHERE a.num_oc = numeroORden AND a.cod_n =25
          IF STATUS = NOTFOUND THEN
             CONTINUE FOREACH
          END IF
          SELECT DISTINCT a.cod_n FROM prtb00013 a WHERE a.num_oc = numeroORden AND a.cod_n =12
          IF STATUS = NOTFOUND THEN
             CONTINUE FOREACH
          END IF
          SELECT DISTINCT a.cod_n FROM prtb00013 a WHERE a.num_oc = numeroORden AND a.cod_n =20
          IF STATUS = NOTFOUND THEN
             CONTINUE FOREACH
          END IF

          LET i = i + 1
          DISPLAY "CONTE LA ORDEN ",i
       END FOREACH
      DISPLAY "TOTAL ORDENES ",i 
END FUNCTION