Hi,
I installed Micro Focus Net Express recently. And after installing I made sure to set all the paths and environments. Now when I am trying to compile one cobol-db2 program, I am getting a system error "SQL5005C System Error".
* 801-S ( 0)
** External Compiler Module message
** DB0100 SQL5005C System Error.
COBDB0100S SQL5005C System Error.
Rebuild complete with errors
I tried to resolve a lot but unable to resolve the issue. Is there anyone can help me on resolving the issue.
Hi,
please I have this code:
05 w-string1 pic x(500).05 w-x pic s9(04) comp.
...
call "SYSTEM" using w-string1(1:w-x)
where in w-string1 is 'bpsXmlConverter bpsdata\SXJNMP-PK1_2017032715521837.DAT utf-8'
but in bpsXmlConverter program (it's .NET utility), when I check, how I was called it's:
bpsXmlConverter bpsdata\SXJNMP-PK1_2017032715521837.DAT utf-8 270320174
When I debugging, just before CALL "SYSTEM" value in w-string1 is OK. And when I run bpsXmlConverter just alone, it's also OK.
Please can you help me, from where this strange number parameter comes?
I need the Cobol Server 2.3.2 (cs_232.exe) but when I sign in to support for the download, it is no where to be found. What am I missing?
Hi,
please I have this construction:
thanks
Hello,
I have a Windows Server 2008 where are all my VSAM files created with NetExpress 3.11.
Clients access this server through Remote Desktop Connection.
It turns out that I am sporadically losing certain records.
The strange thing is that in the application the record was recorded, the file status returned ok and the record does not appear in the file.
Should I make some configuration in Windows Server 2008 so this does not happen?
Best regards
Rogerio Barbosa
Hi, Has anybody come across running COBOL programs in containers in the DC/OS environment, and if so any problems that were encountered.
Many Thanks.
We are using Server Express 5.1 Wrappack 10 on a Solaris UX box. We have separate locations for the .gnt and .idy files and we have the COBPATH and COBIDY variables set correctly. Animating works for most modules, but a few are reporting errors where the .idy cannot be found. The .gnt and .idy were created at the same time for all modules via a mass compile. The error is indicating that it cannot find the .idy file, but it appears to be searching the COBPATH not the COBIDY path. Any hints?
hi,
I have a program in Server For Cobol 5.1 wrap pack 9 on red hat system
that goes wrong with a division by 0, but it does not return control to the script and I still see in the processes.
I tried both with so that gnt but the process remains hanging after zero division abend.
strace of call seems to be truncated:
open("/opt/microfocus/cobol/lang/en_US.UTF-8/rts.msg", O_RDONLY) = 31
fstat64(31, {st_mode=S_IFREG|0444, st_size=1988, ...}) = 0
mmap2(NULL, 1988, PROT_READ, MAP_PRIVATE, 31, 0) = 0xfffffffff76c6000
close(31) = 0
close(4) = 0
open("/opt/microfocus/cobol/lang/en_US.UTF-8/rts.err", O_RDONLY) = 4
fstat64(4, {st_mode=S_IFREG|0444, st_size=14577, ...}) = 0
mmap2(NULL, 14577, PROT_READ, MAP_PRIVATE, 4, 0) = 0xffffffffea794000
close(4) = 0
write(2, "\nObject Code error : file '/comm"..., 233
Object Code error : file '/common/bacon/sw/prod/libra/lib/cobol/libra/CRGFOR6.gnt'
error code: 48, pc=0, call=1, seg=0
48 Attempt to divide by zero (in /common/bacon/sw/prod/libra/src/cobol/libra/source/CRGFOR6.cbl, line 529)
) = 233
mprotect(0xea799000, 61440, PROT_READ|PROT_WRITE) = 0
munmap(0xea798000, 163840) = 0
mprotect(0x9d96000, 4096, PROT_READ|PROT_WRITE) = 0
mprotect(0x9d78000, 4096, PROT_READ|PROT_WRITE) = 0
mprotect(0x9d66000, 4096, PROT_READ|PROT_WRITE) = 0
mprotect(0x9d4c000, 8192, PROT_READ|PROT_WRITE) = 0
mprotect(0x9d3a000, 4096, PROT_READ|PROT_WRITE) = 0
mprotect(0x9d28000, 4096, PROT_READ|PROT_WRITE) = 0
mprotect(0x9d16000, 4096, PROT_READ|PROT_WRITE) = 0
mprotect(0x9cfc000, 28672, PROT_READ|PROT_WRITE) = 0
mprotect(0x9ce9000, 4096, PROT_READ|PROT_WRITE) = 0
mprotect(0xeb4ce000, 40960, PROT_READ|PROT_WRITE) = 0
munmap(0xeb4cd000, 2035712) = 0
mprotect(0x9c99000, 16384, PROT_READ|PROT_WRITE) = 0
mprotect(0xeb6bf000, 24576, PROT_READ|PROT_WRITE) = 0
munmap(0xeb6be000, 151552) = 0
mprotect(0x9c7d000, 8192, PROT_READ|PROT_WRITE) = 0
mprotect(0x9c6a000, 8192, PROT_READ|PROT_WRITE) = 0
mprotect(0xeb6e4000, 49152, PROT_READ|PROT_WRITE) = 0
munmap(0xeb6e3000, 241664) = 0
fcntl64(16, 0xe /* F_??? */, 0xffdef648) = 0
fcntl64(16, 0xe /* F_??? */, 0xffdef648) = 0
close(16) = 0
_llseek(17, 0, [0], SEEK_SET) = 0
read(17, "\376S\2\2\4\4\3\377\0\1\0\2\0\0d\0\0\0\2\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 241) = 241
fcntl64(17, 0xe /* F_??? */, 0xffdef648) = 0
fcntl64(17, 0xe /* F_??? */, 0xffdef648) = 0
close(17) = 0
mprotect(0x9c4c000, 8192, PROT_READ|PROT_WRITE) = 0
mprotect(0x9c2f000, 8192, PROT_READ|PROT_WRITE) = 0
fcntl64(29, 0xe /* F_??? */, 0xffdef648) = 0
fcntl64(29, 0xe /* F_??? */, 0xffdef648) = 0
close(29) = 0
_llseek(30, 0, [0], SEEK_SET) = 0
read(30, "3\376\0\0\0\0\0\000170414150506141704141505"..., 241) = 241
fcntl64(30, 0xe /* F_??? */, 0xffdef648) = 0
fcntl64(30, 0xe /* F_??? */, 0xffdef648) = 0
close(30) = 0
mprotect(0x9c09000, 8192, PROT_READ|PROT_WRITE) = 0
fcntl64(13, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(13, 0xe /* F_??? */, 0xffdef640) = 0
close(13) = 0
munmap(0xeb71e000, 1052672) = 0
mprotect(0xeb820000, 45056, PROT_READ|PROT_WRITE) = 0
munmap(0xeb81f000, 2760704) = 0
mprotect(0x9bab000, 4096, PROT_READ|PROT_WRITE) = 0
fcntl64(11, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(11, 0xe /* F_??? */, 0xffdef640) = 0
close(11) = 0
munmap(0xebbc2000, 1052672) = 0
mprotect(0x9b5b000, 16384, PROT_READ|PROT_WRITE) = 0
mprotect(0x9b32000, 8192, PROT_READ|PROT_WRITE) = 0
mprotect(0x9b1c000, 12288, PROT_READ|PROT_WRITE) = 0
mprotect(0x9afe000, 4096, PROT_READ|PROT_WRITE) = 0
fcntl64(12, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(12, 0xe /* F_??? */, 0xffdef640) = 0
close(12) = 0
munmap(0xebac1000, 1052672) = 0
_llseek(14, 0, [0], SEEK_SET) = 0
write(14, "0~\0\0\0\0\0\000170414173355591704141733"..., 224) = 224
fcntl64(14, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(14, 0xe /* F_??? */, 0xffdef640) = 0
close(14) = 0
munmap(0xeb3cc000, 1052672) = 0
_llseek(15, 0, [0], SEEK_SET) = 0
write(15, "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 292) = 292
fcntl64(15, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(15, 0xe /* F_??? */, 0xffdef640) = 0
close(15) = 0
munmap(0xeb2cb000, 1052672) = 0
_llseek(18, 0, [0], SEEK_SET) = 0
write(18, "0~\0\0\0\0\0\000170414173355611704141733"..., 176) = 176
fcntl64(18, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(18, 0xe /* F_??? */, 0xffdef640) = 0
close(18) = 0
munmap(0xeb1ca000, 1052672) = 0
_llseek(19, 0, [0], SEEK_SET) = 0
write(19, "0002016093020170414173200000000 "..., 35) = 35
fcntl64(19, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(19, 0xe /* F_??? */, 0xffdef640) = 0
close(19) = 0
munmap(0xeb0c9000, 1052672) = 0
_llseek(20, 0, [0], SEEK_SET) = 0
write(20, "0002016093020170414173200000000", 31) = 31
fcntl64(20, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(20, 0xe /* F_??? */, 0xffdef640) = 0
close(20) = 0
munmap(0xeafc8000, 1052672) = 0
_llseek(21, 0, [0], SEEK_SET) = 0
write(21, "0002016093020170414173200000000 "..., 44) = 44
fcntl64(21, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(21, 0xe /* F_??? */, 0xffdef640) = 0
close(21) = 0
munmap(0xeaec7000, 1052672) = 0
fcntl64(24, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(24, 0xe /* F_??? */, 0xffdef640) = 0
close(24) = 0
munmap(0xeabc4000, 1052672) = 0
fcntl64(22, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(22, 0xe /* F_??? */, 0xffdef640) = 0
close(22) = 0
munmap(0xeadc6000, 1052672) = 0
_llseek(23, 0, [0], SEEK_SET) = 0
write(23, "0~\0\0\0\0\0\000170414173355641704141733"..., 256) = 256
fcntl64(23, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(23, 0xe /* F_??? */, 0xffdef640) = 0
close(23) = 0
munmap(0xeacc5000, 1052672) = 0
fcntl64(25, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(25, 0xe /* F_??? */, 0xffdef640) = 0
close(25) = 0
munmap(0xeaac3000, 1052672) = 0
fcntl64(26, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(26, 0xe /* F_??? */, 0xffdef640) = 0
close(26) = 0
munmap(0xea9c2000, 1052672) = 0
fcntl64(27, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(27, 0xe /* F_??? */, 0xffdef640) = 0
close(27) = 0
munmap(0xea8c1000, 1052672) = 0
fcntl64(28, 0xe /* F_??? */, 0xffdef640) = 0
fcntl64(28, 0xe /* F_??? */, 0xffdef640) = 0
close(28) = 0
munmap(0xea7c0000, 1052672) = 0
mprotect(0xf5430000, 266240, PROT_READ|PROT_WRITE) = 0
munmap(0xf542f000, 34127872) = 0
munmap(0xf76c6000, 1988) = 0
munmap(0xea794000, 14577) = 0
munmap(0xf76d4000, 3891) = 0
--- SIGSEGV (Segmentation fault) @ 0 (0) ---
open("/opt/microfocus/cobol/lang/en_US.UTF-8/rts.msg", O_RDONLY) = 4
fstat64(4, {st_mode=S_IFREG|0444, st_size=1988, ...}) = 0
mmap2(NULL, 1988, PROT_READ, MAP_PRIVATE, 4, 0) = 0xfffffffff76d4000
close(4) = 0
open("/opt/microfocus/cobol/lang/en_US.UTF-8/rts.err", O_RDONLY) = 4
fstat64(4, {st_mode=S_IFREG|0444, st_size=14577, ...}) = 0
mmap2(NULL, 14577, PROT_READ, MAP_PRIVATE, 4, 0) = 0xfffffffff74b7000
close(4) = 0
shmdt(0xf76d3000) = 0
munmap(0xf53d4000, 73440) = 0
write(7, "\0\r\0\0\6\0\0\0\0\0\3\17\300", 13) = 13
read(7, "\0\21\0\0\6\0\0\0\0\0\t\5\0\0\0\275Y", 8208) = 17
futex(0x9a2118c, FUTEX_WAIT_PRIVATE, 1, NULL
What else can I check?
Thanks.
Hello,
I received some files cobol
Without FD / Select
Came only IDX file
Inside the IDX file I think it has data and indices
How to convert this file to TXT with fields
I have in my computer NetExpress 5.1 and Acucobol 8.0
Need to convert to a txt with columns
How to do this?
I am trying to run program thru BAT file it goes to PC driver module and it is not able to call the program. and gives return code zero.
Trying to open a nex module, By just clicking it getting above Error
Hi,
how can I order with mfsort a field so defined
01 WK-IMP PIC +9(16).9(2).
the data on the file is :
+0000000000000001.00
+0000000000000001.01
+0000000000001000.00
+0000000097426141.65
+0000000095834049.25
-0000000000000001.00
+0000000094884438.34
+0000000094824605.26
+0000000094454948.29
-0000000000000001.01
with SORT FIELDS=(67,20,NU,D)
-0000000000000001.01
-0000000000000001.00
+0000000097426141.65
+0000000095834049.25
+0000000094884438.34
+0000000094824605.26
+0000000094454948.29
+0000000000001000.00
+0000000000000001.01
+0000000000000001.00
with SORT FIELDS=(67,20,NU,A)
+0000000000000001.00
+0000000000000001.01
+0000000000001000.00
+0000000094454948.29
+0000000094824605.26
+0000000094884438.34
+0000000095834049.25
+0000000097426141.65
-0000000000000001.00
-0000000000000001.01
In MFSORT manuals in Field Type "You can find other field types defined in the IBM documentation at SORT Control Statement."
and SFF seems to be the right type.
instead mfsort give errors:
Sequence 'SFF' invalid
SORT015U: Command statement error(s) detected
I cannot use SFF ?
thanks
bye
Hi,
We are facing issues while animating the COBOL programs using Net Express. Please see the below details and please refer the attached document for more information.
While executing the jobs in our application using the executable files (.DLL& .EXE etc.), the jobs ran without any errors. During the jobs execution process, we have data base calls where Cobol will fetch the information from data base (SQLSERVER/DB2). There were no issues while fetching the information using exe files.
However when we tried to Debug the Cobol programs by using Micro Focus Net Express Animation process, we found issues while retrieving the data from the data base. There was no data base errors (SQL code is zero after executing the SQL statement) after the data base calls, however the numeric data fields after the data base calls having the illegal data. Please see the below detailed information about the problem.
Detailed information about the issue:
We have an issue with the data retrieval from the data base while animating the Cobol in windows environment using Net Express. Some of the numeric fields having the non-numeric data after the data base call and that’s causing the problem while moving the data base retrieved value to local data variables. We have also verified the data in data base and the data showing correctly with numeric info. This issue is stopping us to proceed further with the animation of Cobol programs in windows environment.
For e.g. while retrieving the data from site parameter table (SITE-PARM) for “DEFAULT FED TAX EXEMPT CT” code, we are getting the illegal data in SITE-PARAMETER-NUM field after the GU – Get Unique record call (as shown below).
However the data base having proper value in this field as shown below. We are not sure why we are getting the non-numeric data after the GU call. Would you please suggest us if you have any idea about this error, that should help us to proceed further. Please let us know if you need more details.
Thanks & Regards,
Gopal
(Please visit the site to view this file)
Hello,
I have a small project in netexpress 5.1 free that will run only 3 months.
I developed an exe project in netexpress and wanted to know which dll I need to put together to run on Windows XP.
Which files tell the client to run without needing NetEpxress.
Hi,
as you can see on attached screen I can't search for program in browser view. Search for variable or section name in specific program is working correctly.
Screen is from Net Express 3.1.11, but I have same problem in Net Express 5.1
Please is there solution how to search for specific program within whole project in this window?
Thanks
Been using IDX4 data configuration in some of my applications BUT apparently it won't go any big compared to IDX8. However I find that IDX8 is much more vulnerable to corruption (well, mostly on desktop/PC power failure interruptions). Is any of you experiencing the same?
Say, I have a copybook 'CPBK' which is placed in MYFOLDER.
CPBK:
03 WA-FIELD1 PIC X.
03 WA-FIELD2 PIC S9(9) BINARY.
03 WA-FIELD3 PIC 9(3).
So when I access copybook in my program I use following statement
in Working Storage Section.
COPY CPBK in MYFOLDER.
Now, I have a table having following fields
TABL :
FIELD_1 CHAR (1),
FIELD_2 NUMBER (9),
FIELD_3 CHAR (3)
I want to perform 'Select * from TABL' and fetch the details in
copybook CPBK
But I get compilation error when trying to declare following:
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 CPBKREC.
COPY CPBK IN MYFOLDER.
EXEC SQL END DECLARE SECTION END-EXEC.
and for fetch - FETCH INTO : CPBKREC
Getting following compilation error-
INTO : CPBKREC
.................................1
PCB-S-00208, Incorrect type for host variable "CPBKREC"
Can anyone please help resolving this.
Using DYNAMIC.CBL from \NETEXPRESS\Examples\Net Express IDE\ODBCESQL as an example, I have written a program to test dynamic SQL against a SQL Server Database. I was wondering if there is a way to declare more than 1 DYNAMIC_SQL cursor?
I first coded and tested retrieving data from 1 table using the following cursor:
EXEC SQL
DECLARE VCURS CURSOR FOR DYNAMIC_SQL
END-EXEC
Then, I added a second cursor to retrieve data from another table in the same database:
EXEC SQL
DECLARE VCURS CURSOR FOR DYNAMIC_SQL
END-EXEC
EXEC SQL
DECLARE cursortest CURSOR FOR DYNAMIC_SQL
END-EXEC
However, it fails compile with the following error: "ES0100 Duplicate cursor name: cursortest"
I am using NetExpress 5.1 version f.110.0022 and SQLServer 2012.
Please, I have problem with inserting PIC N variable into NCHAR column in DB (MSSQL)
I read line from UTF-8 file to PIC N record - here is everything ok, but when I do SQL INSERT from this variable to NCHAR column in DB
exec sql
insert into AAA111 (TEXT)
values(:data1)
end-exec
I got complete rubbish data here. How to do this correctly?
Thanks
We are going to be getting a server with 4TB of memory (yes... 4TB,,, not GB..) This is an HP Superdome We are SEE 6.0SP2. For years we have had in our ENV for Red Hat dynamic_memory_limit=50000000. I am unclear from the documentation how this can be taken advantage of. If I just eliminate it, will the OS and RTS handle this by taking the top off it or restricting it to 0? Looking to really maximize this huge memory allocation.