DATABASE rayovac
GLOBALS 
| 
|      Database not found or no system permission.
| See error number -329.
| 
|      The database "rayovac" cannot be found or opened.  If the database 
| exists, check the database permissions on the database.  In 
| addition, check the system permissions on the database directory 
| and its ascendant directories.
| See error number -4305.
DEFINE codigos RECORD LIKE irtb00002.*
DEFINE codigos1 RECORD LIKE intb00001.*
END GLOBALS
MAIN
CALL busca()
END MAIN

FUNCTION busca()

DECLARE busca_ir CURSOR FOR
SELECT *FROM intb00001
WHERE cod_n = 5

ORDER BY 1,2,3,4
START REPORT saca TO "reporte1"

FOREACH busca_ir INTO codigos1.*
SELECT * INTO codigos.* FROM irtb00002
WHERE @cod_n = codigos1.cod_n and
      @cod_grupo = codigos1.cod_grupo and
      @cod_tipo = codigos1.cod_tipo and
      @cod_sec = codigos1.cod_sec

IF status = notfound THEN
SELECT * INTO codigos.* FROM irtb00001
WHERE @cod_n = codigos1.cod_n and
      @cod_grupo = codigos1.cod_grupo and
      @cod_tipo = codigos1.cod_tipo and
      @cod_sec = codigos1.cod_sec

IF status = notfound THEN
   OUTPUT TO REPORT saca(codigos1.*,codigos.*)
END IF
END IF
END FOREACH
FINISH REPORT saca
END FUNCTION

REPORT saca(z,x)
DEFINE x record like irtb00002.*
DEFINE z RECORD LIKE intb00001.*
DEFINE descripcion CHAR(30)

format
page header
print column 1,
"REPORTE DE CODIGOS QUE ESTAN EN INTB00001 Y NO ESTAN EN IRTB0002"
print column 1, today
print column 1, time
skip 1 line
print column 1, "ARTICULOS..."

SKIP 1 LINE
ON EVERY ROW
PRINT COLUMN 1, z.cod_n using "&","-",z.cod_grupo using "&","-",
 z.cod_tipo using "&&","-",z.cod_sec using "&&&"," ",z.descrip_esp
ON LAST ROW
PRINT "TOTAL REGISTROS: ",count(*) using "&&&&"
END REPORT