Highlighted
Absent Member.
Absent Member.
1433 views

CALLRB error 12336

Jump to solution

   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.

0 Likes
1 Solution

Accepted Solutions
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: CALLRB error 12336

Jump to solution

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...)

View solution in original post

0 Likes
2 Replies
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: CALLRB error 12336

Jump to solution

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...)

View solution in original post

0 Likes
Highlighted
Absent Member.
Absent Member.

RE: CALLRB error 12336

Jump to solution

thanks, man

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.