Please have a look at the listing file to see if CHECKNUM or NOCHECKNUM is listed.
↧
RE: Illegal character in numeric field
↧
RE: Illegal character in numeric field
i attach the list file
thanks...
↧
↧
RE: Illegal character in numeric field
A PIC +9(3) IS AN EDITED (Alphabetical) FIELD the value 0f 3 would be "+003"
B PIC 9(5) is a simple numeric field
you should use for A a PIC S9(3) in that case you could move A to B or B to A
"+" sign indicates that a positive sign will be used in the output to represent positive values and that a negative sign will represent negative values.
↧
RE: Illegal character in numeric field
I cannot change it.... there is a different behavior between NetExpress and Server Express
Server Express i have this abend:
Object Code error : file '/common/lib/cobol/pgm0c7.gnt'
error code: 163, pc=0, call=1, seg=0
163 Illegal character in numeric field (in /common/source/pgm0c7.cbl, line 26)
thank!
bye
↧
RE: Illegal character in numeric field
I have run some tests with my colleague, and we cannot get your program to fail on either Net Express and Server Express. In addition, we tried with the default directives or with the ones that you mentioned in your initial post.
Here's the result with Net Express:
S:\285\Community\IllegalChar>run PGM0C7.gnt
Micro Focus Net Express V5.112.0022
RUN TIME ENVIRONMENT Copyright (C) Micro Focus IP Development Limited 1984-2015
URN AXCGG/AA0/00000
ESEGUIAMO 0C7 O NO ?!??!
WK-A: +003
WK-B1: 00003
WK-B2: 00003+
WK-B3: 0000000003
WK-B4: 00003
WK-B5: 0000000003
WK-B6: 00003
Here's the result with Server Express:
/home/support/blairm/fano > cob -ug PGM0C7.cbl
/home/support/blairm/fano > cobrun PGM0C7
ESEGUIAMO 0C7 O NO ?!??!
WK-A: +003
WK-B1: 00003
WK-B2: 00003+
WK-B3: 0000000003
WK-B4: 00003
WK-B5: 0000000003
WK-B6: 00003
↧
↧
RE: Illegal character in numeric field
hi,
it also works to me on Server Express (I can not prove directly),
actually the case is in a production schedule , and I tried to replicate the problem in net express manually, trusting the received data.
Now I replicated exactly the case (with same data and program) and now I have the same abend also on Net Express.
(I have attached the modified program to recreate the case of RTS 163 both in the Net Express that on Server Express.)
Thank for your support!
bye
↧
Illegal character in numeric field
Hi,
I have cobol program that run two time one with NetExpress and with server Express
the compiler directive are the same:
& compilazione ambiente sviluppo
copyext",cbl,cpy,cbl,cpy"
osext"cbl"
assign"external"
ans85
noosvs
recmode"osvs"
sign-fixup
vsc2"2"
list()
setting
ibmcomp
& flag"vsc2"
omf"gnt"
comp
notrunc
checkdiv"os390"
anim
bound
ssrange
nocmpr2
hostnummove
hostnumcompare
hostarithmetic
nosignfixup
checknum
the var:
01 a pic +9(3).
01 b pic 9(5).
server express:
move a to b
give "Illegal character in numeric field "
on net Express it work
Which directive should I use in Nets compiler for get same error of server express?
thank
↧
RE: Illegal character in numeric field
Hi mf_galberico,
Your revised program fails with the 163 error in Server Express for me also. This is caused by the fact that you are doing a group move, and overlaying the first position of the numeric edited field F30TIT0-100-COD-BANCA field:
27 03 F30TIT0-100-COD-BANCA PIC +9(3).
with the value "6000". I believe you will get the "163 - Illegal character in numeric field " error anytime you try to use this field in a numeric move, and that first byte does not contain a "+" or "-" .
As Fano mentioned, you can suppress this checking for numeric values at runtime by using COBSW=-F. If you are building to .gnt files, you can also suppress this check with the directive NOCHECKNUM.
↧
RE: AIX Cobol Migration
It's not possible to completely reconstruct the source code from compiler output. Compilation is an information-discarding process. You can never recover things like comments, for example.
Decompilation is often described as trying to turn hamburger back into cow, but in fact it's worse than that. While there's extensive academic research and some commercial effort into heuristic decompilation, trying to produce plausible sources from object code, it's impossible to guarantee the results would achieve what would have been created from the original sources. For example, it's quite possible that the original sources would have produced different object code on the new target platform. Object code does not embody all the semantic guarantees of the source language.
In the best case, when you have INT-code binaries and their accompanying IDY (debugging information) files, it's theoretically possible to reconstruct source files that resemble the input in various particulars. The INT format is relatively close to the structure of the procedural code in the source, and the IDY data contains information like data-item names and compilation options. (Some compilation settings can be recovered from the INT files themselves.) However, significant information is still lost, and we don't provide tools to do this.
If the programs are GNT or native binaries, and/or debugging information is not available, then recovering something resembling the source is even less plausible.
I hope the client now realizes that source code is a corporate asset, and failing to protect it has serious consequences. Not that that helps in this situation, of course.
Someone else may have some useful advice, but frankly I don't see a viable option here aside from analyzing the existing sources to determine a plausible source set, building a robust set of regression tests, and reconstructing the application under the old system before trying to move it to the new one.
↧
↧
AIX Cobol Migration
Hello,
A client of mine has to migrate Cobol from AIX 5.2 to AIX 6.1 but the sources are not well versioned. Is there any possibility to decompile the executable in order to compile them again in the new platform? Is there any other way to migrate the executables to AIX 6.1 without the source code?
Thanks in advance.
↧
cbl_mbcs_char_len
HI,
I have this error on Net Express 5.1 running run.exe\mfsort.exe :
"The procedure entry point CBL_MBCS_CHAR_LEN could not be located in the dynamic link library ...."
what is it?
bye
↧
RE: cbl_mbcs_char_len
Hello,
Does the error refer to CBLRTSS.DLL? If that's the case, then these EXEs must have picked up an older version of CBLRTSS.DLL in the current folder or in any other folder that comes before the Net Express folder from the PATH.
Regards,
↧
RE: Validating Email Domains from COBOL
Hi Don,
You mentioned that you've tried to call the SYSTEM routine. Calling this routine in Server Express requires that you pass a null terminated string (a string where the command is followed by a low-values or X'00' character.)
You may want to take a look at the following Micro Focus Knowledge Base article, which demonstrates one technique for setting up the null terminated string, and shows retrieving a return code:
If you are using Micro Focus COBOL syntax, another option for creating a null terminated string is to use a Z before your literal, for example:
MOVE Z"ls -l" to ws-command
↧
↧
Validating Email Domains from COBOL
I am looking for a way to validate email domains from COBOL in a interactive data entry environment. In my application users will enter email addresses provided by our customers. The domain of the email address provided is not always valid. I am running Server Express on top of HPUX 11.32. I am familiar with the nslookup command and have written a test program to execute this command calling the SYSTEM subroutine. I can't seem to get the command to pass back to COBOL a return code and anything for that matter to designate whether the command was successful or not. Anyone have any ideas how to validate email domain names from COBOL? Thanks in advance.
↧
RE: Validating Email Domains from COBOL
Don, when you CALL SYSTEM() or system() the only thing returned is the status for the CALL, no data if any kind is returned. If you want the output of the the command you can define a File as an input pipe from the command When you open the file the command runs when you read from the file the STDOUT Of the command is returned in the record If you define the file as line sequential then one line of output is returned for each READ.
↧
RE: INVOKE OUTLOOK ERROR
Please see the Net Express documentation here which provides an example of COM exception handling.
You might be able to get additional information by using the following call after the exception occurs:
invoke OLEsup "getLastSCode" returning lsErrorCode
where:
| lsErrorCode | PIC X(4) COMP-5 |
↧
NetExpress 5.1 on Windows 10
We're running some legacy executables developed on NetExpress 5.1. They run under Windows 7. We are in the process of converting to another platform but need to keep these running until...
I'm testing on a Windows 10 machine and am getting a Load error from cblvios.dll that says
error code: 174, pc=0, call=1, ser=0
174 Imported file not found(N:cblvios.dll)
Does anyone know what it's looking for? Any suggestions appreciated.
↧
↧
RE: Net Express 5/1 WP8 Installation error 1406.
Additional info: There is no Anti-Virus software installed and the Firewall has been disabled.
↧
RE: NetExpress 5.1 on Windows 10
Hello,
Net Express 5.1 is not certified on Windows 10 and Windows Server 2012. You might want to consider upgrading to Visual COBOL, which is fully certified on those more recent versions of Windows.
Regards,
↧
RE: Net Express 5/1 WP8 Installation error 1406.
Can you install other wrappacks besides WP8, such as WP 12 which is the latest or do you get the same error with all wrappacks?
↧