Skip to main content

   Good morning.

I'm working with microsoft visual studio 2010 version 10.0.40219 .

I am trying to call the function " CALLRB " but it does the following error " 12336 " .

syntax follows :

class-id rebuild.Form1 is partial
inherits type System.Windows.Forms.Form.

$set idxformat"8"

working-storage section.
01 parameters pic x(600).
01 Wstatus pic xx comp-x.

01 wdata.
03 ano pic 9(02).
03 mes pic 9(02).
03 dia pic 9(02).

01 whorario.
03 hh pic 9(02).
03 mm pic 9(02).
03 ss pic 9(02).


method-id NEW.
procedure division.
invoke self::InitializeComponent
goback.
end method.


method-id pbprocessar_Click final private.
procedure division using by value sender as object e as type System.EventArgs.


* faz rebuild do arquivo idx
move "C:\\temp\\teste.dat,C:\\temp\\teste2.dat" to parameters
call "CALLRB" using parameters , Wstatus end-call


if Wstatus = zeros then
* mensagem para usuario
invoke type MessageBox::Show("Rebuild realizado com sucesso!" "Atenção")
end-if

end method.

end class.

   Good morning.

I'm working with microsoft visual studio 2010 version 10.0.40219 .

I am trying to call the function " CALLRB " but it does the following error " 12336 " .

syntax follows :

class-id rebuild.Form1 is partial
inherits type System.Windows.Forms.Form.

$set idxformat"8"

working-storage section.
01 parameters pic x(600).
01 Wstatus pic xx comp-x.

01 wdata.
03 ano pic 9(02).
03 mes pic 9(02).
03 dia pic 9(02).

01 whorario.
03 hh pic 9(02).
03 mm pic 9(02).
03 ss pic 9(02).


method-id NEW.
procedure division.
invoke self::InitializeComponent
goback.
end method.


method-id pbprocessar_Click final private.
procedure division using by value sender as object e as type System.EventArgs.


* faz rebuild do arquivo idx
move "C:\\temp\\teste.dat,C:\\temp\\teste2.dat" to parameters
call "CALLRB" using parameters , Wstatus end-call


if Wstatus = zeros then
* mensagem para usuario
invoke type MessageBox::Show("Rebuild realizado com sucesso!" "Atenção")
end-if

end method.

end class.

12336 is actually 0x3030, i.e. two ASCII zero characters.  It looks to me as though CALLRB is actually returning a 'good' status value, but it needs to be interpreted differently.  Maybe something like:

if Wstatus = h"3030"

...

(But I haven't consulted the documentation on this...)

   Good morning.

I'm working with microsoft visual studio 2010 version 10.0.40219 .

I am trying to call the function " CALLRB " but it does the following error " 12336 " .

syntax follows :

class-id rebuild.Form1 is partial
inherits type System.Windows.Forms.Form.

$set idxformat"8"

working-storage section.
01 parameters pic x(600).
01 Wstatus pic xx comp-x.

01 wdata.
03 ano pic 9(02).
03 mes pic 9(02).
03 dia pic 9(02).

01 whorario.
03 hh pic 9(02).
03 mm pic 9(02).
03 ss pic 9(02).


method-id NEW.
procedure division.
invoke self::InitializeComponent
goback.
end method.


method-id pbprocessar_Click final private.
procedure division using by value sender as object e as type System.EventArgs.


* faz rebuild do arquivo idx
move "C:\\temp\\teste.dat,C:\\temp\\teste2.dat" to parameters
call "CALLRB" using parameters , Wstatus end-call


if Wstatus = zeros then
* mensagem para usuario
invoke type MessageBox::Show("Rebuild realizado com sucesso!" "Atenção")
end-if

end method.

end class.

thanks, man

   Good morning.

I'm working with microsoft visual studio 2010 version 10.0.40219 .

I am trying to call the function " CALLRB " but it does the following error " 12336 " .

syntax follows :

class-id rebuild.Form1 is partial
inherits type System.Windows.Forms.Form.

$set idxformat"8"

working-storage section.
01 parameters pic x(600).
01 Wstatus pic xx comp-x.

01 wdata.
03 ano pic 9(02).
03 mes pic 9(02).
03 dia pic 9(02).

01 whorario.
03 hh pic 9(02).
03 mm pic 9(02).
03 ss pic 9(02).


method-id NEW.
procedure division.
invoke self::InitializeComponent
goback.
end method.


method-id pbprocessar_Click final private.
procedure division using by value sender as object e as type System.EventArgs.


* faz rebuild do arquivo idx
move "C:\\temp\\teste.dat,C:\\temp\\teste2.dat" to parameters
call "CALLRB" using parameters , Wstatus end-call


if Wstatus = zeros then
* mensagem para usuario
invoke type MessageBox::Show("Rebuild realizado com sucesso!" "Atenção")
end-if

end method.

end class.

thanks, man

Terms & ConditionsAccessibility statement