On 23 mayo, 09:32, "roger.cama...@gmail.com" <roger.cama...@gmail.com>
wrote:

I did exactly as I said in the previous entry and the same error
message happened when I executed the SP.

Error: The system command cannot be executed or it exited with a non-
zero status. (State:S1000, Native Code: FFFFFD64)

Executing the script directly from command line works as expected.

The sgfreversiones.4gl is like this (maybe there is something wrong
with it):

database tbase
define
    t1 record like adaud.*,
    g_spool char(20),
    l_argu char(60),
    ### DATOS DE LA TABLA ###
    fecha date,
    horatransaccion char(8),
    horaautorizacion char(8),
    horareversion char(8),
    inicusuariorever char(3),
    inicusuarioautor char(3),
    tipotransac char(70),
    monto like adaud.adaudimpo,
    cliente char(50),
    ### DATOS DE LA TABLA ###
    fdia date,
    cfdia char(10),
    fini date,
    cfini char(10),
    x char,
    tipocambio like gbhtc.gbhtctcof,
    tcof like gbpmt.gbpmttcof
main
    let g_spool="sgfreversiones.txt"
    start report sgfreversiones to g_spool
    select gbpmtfdia into fdia from gbpmt
    select gbpmttcof into tcof from gbpmt
    let cfdia=fdia
    let cfdia=cfdia clipped
    let cfini="01/",cfdia[4,10]
    let cfini=cfini clipped
    let fini=cfini
    declare curs cursor for
    select * from adaud
    where adaudfpro between fini and fdia
    foreach curs into
        t1.*
        error "Procesando el numero de autorizacion: ...",t1.adaudnaut
        call nulos()
        select gbhtctcof into tipocambio from gbhtc
        where gbhtcfech=t1.adaudfpro
        if tipocambio is null then
            let tipocambio=0
        end if
        let fecha=t1.adaudfpro
        let horatransaccion=t1.adaudshor
        let horaautorizacion=t1.adaudahor
        let horareversion=null # no puedo relacionar esta hora
        let inicusuariorever=t1.adaudsusr
        let inicusuarioautor=t1.adaudausr
        let tipotransac=t1.adaudglos
        if t1.adaudcmon=1 then
            let monto=t1.adaudimpo/tipocambio
        else
            let monto=t1.adaudimpo
        end if
        select gbagenomb into cliente from gbage
        where gbagecage=t1.adaudcage
        output to report sgfreversiones()
    end foreach
end main
report sgfreversiones()
output
    page length 1
    top margin 0
    bottom margin 0
    left margin 0
    right margin 0
format
on every row
    print
fecha,"|",horatransaccion,"|",horaautorizacion,"|",horareversion,
    "|",inicusuariorever,"|",inicusuarioautor,"|",tipotransac,"|",
    monto,"|",cliente
end report
function nulos()
    let fecha=null
    let horatransaccion=null
    let horaautorizacion=null
    let horareversion=null
    let inicusuariorever=null
    let inicusuarioautor=null
    let tipotransac=null
    let monto=null
    let cliente=null
    let tipocambio=null
end function

Any more hints? Maybe the output of the 4gl program is terminating the
program when running via an SP?