DATABASE rayovac
GLOBALS 
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 irtb00002
ORDER BY 1,2,3,4
START REPORT saca TO "reporte"

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

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

REPORT saca(x,z)
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 IRTB00002 Y NO ESTAN EN INTB0001"
print column 1, today
print column 1, time
skip 1 line
print column 1, "ARTICULOS..."

SKIP 1 LINE
ON EVERY ROW
PRINT COLUMN 1, x.cod_n using "&","-",x.cod_grupo using "&","-",
 x.cod_tipo using "&&","-",x.cod_sec using "&&&"," ",z.descrip_esp
END REPORT