with the call 'PC_PRINTER_DEFAULT_PROPERTIES' it is possible to select quite a lot of properties. Is it also possible to call this Routine after opening the Printer, when we know which Printer he selected??
I see it very usefull to give the Operator the possibility to select p-copies, papersize, p-Duplex, etc. but all depending on the selected Printer.
That means if he selects example plain generic text Printer there is no sense to select Quality, Color, etc.
thanks
Rolf
Hello, I have recently joined and have over seven years experience with Server Express.
The Font-size specified in the CALL PC_PRINTER_SET_FONT determines how many lines can be written on one page.
But I observed, that also the Font-Family determines the vertical advancing. With the same Font-size 12 I can print 59 lines using "MS LineDraw" but 64 lines using "Lucida Console".
Where can I read the real hight of a font or lines per page?
Although both have the same Font-size 12 Lucida only needs 0.4219 mm for each line while LineDraw Needs 0.4508 mm.
Is there a method to know these values for any font, or is it necesary to try it?
thanks for any help.
Rolf
I am evaluating Microfocus Enterprise Developer in part to make a Java 1.8 call to a 64 bit COBOL executable on Unix. When I build for Unix, the output is an obj file. The question is how can we call this in Unix from JAVA. I know on windows i can load a DLL using System.load() in Java - what is the equivalent when calling an obj file on Unix?
Micro Focus is currently looking for a qualified individual to join our North American Customer Care team. Ideal candidates would have 3+ years using the Micro Focus Server Express or Visual COBOL products and strong expertise in Linux and Unix based systems. Posted opportunity is for Senior Product Support Engineer based out of the Troy Michigan offices but qualified remote candidates (within USA or Canada) will also be considered.
Please see other skill requirements and apply on the microfocus.com web site at the following link:
Is there a way in dialog to make a screen object (radial button, check box etc.) appear and disappear, depending on the value of a variable?
Hi,
I am trying to get a C# app to call a Netexpress Cobol DLL. I have changed the dir in the C# to point at where the DLL is, but still when I run the C#, I and get the point that it calls the cobol, I get:
Unable to load DLL 'C:\MPIUADEV\MPIUA\DEV\COBOL\mbaprate.dll': The specified module could not be found. (Exception from HRESULT: 0x8007007E)
which I take to mean that the DLL can't be found. I also added C:\MPIUADEV\MPIUA\DEV\COBOL to the path.
I am wondering if I created the DLL incorrectly.
I am using Server Express 5.1.11 on Red Hat Linux. I have successfully configured and executed COBSQL with Pro*COBOL and the CP preprocessor. All of the copy files within the program are copied to the main program before passing it to Pro*COBOL as expected. However, copy files within the scope of an EXEC SQL - END-EXEC construct seem to be ignored. For example:
EXEC SQL
SELECT
COPY "my_fields".
INTO
COPY "my_host_variables".
FROM MT_TABLE
END-EXEC.
My expectation is that the contents of my_fields and my_host_variables would have been copied into the SQL statement by CP, but this did not happen. Any ideas? Is my expectation incorrect?
My program uses Dialog System to capture the conditions to make an Excel Worksheet. After finishing the first producto in Excel I start the Dialog again to see if the operator want to add other products, using the following COBOL instruction:
MOVE "R-FIN" TO DS-PROCEDURE
PERFORM CALL-DIALOG-SYSTEM.
The R-FIN procedure is defined in the GLOBAL DIALOG as follows:
R-FIN
SHOW-WINDOW DBOX-FIN
REFRESH-OBJECT DBOX-FIN
SET-FOCUS EF-SIGUE
Up to this moment it works perfectly, the Dialog Box “DBOX-FIN” is shown and the Entry Field apparently receives the focus and the content of the master field is displayed.
But the focus is only apparent, because, although the field is highlighted in blue, anything I type does not appear in the field. If I hit the push Button to continue I receive
Exception 65537 not trapped by the class oleexceptionmanager.
Description: "Server defined OLE exception"
(80010001): La llamada fue rechazada por el destinatario.
Hit T to terminate program. Hit any other key to continue.
If I click pervious to typing in the entry field, everything works good.
But if the operator starts immediately typing, the program aborts with the Exception message.
If I select my output to a printer, the same global dialog works perfectly.
Any idea what I must add to the program in order to make it run with Excel?
Is there a way to use the COBOL File Handling routines with filenames that contain spaces?
I want to use CBL_RENAME_FILE to rename a file from say "TEST-FILE.TXT" to "TEST FILE.TXT" i.e. I want the final file name to include a space. Is this possible - with this routine or in any other way?
Many thanks,
I move a text into a MLE field, after refresh the cursor is under the first Character of the MLE field.
Does anyone know how to move the cursor at the end of the text?
I am using Cobol Net Express 5.0 and my question about the list box how to find the item in the list by typing the first character of the item (what I have to do in the dialog of the list box).
We are migrating MF COBOL server express 4.2 on HP-UX to server express 5.1 WP10 on IBM-AIX. how can I use spzero and host-nummove compiler directive together ?
The output from one of my rebuild-jobs is:
ERROR: bad record type at offset : 036BBE9C
Continuing from offset : 036BBAC8
Rebuild successful - records read = 63536
Corrupt areas encountered = 1
Does someone know how to repaire this currupt areas?
I have been running 5.1PE on windows XP since 2009 and now want to switch to Windows 7 for obvious reasons. 5.1 will not install on Windows 7. Is it possible to keep the compiler on the XP machine and run the application on the Windows 7 PC. As there is no license with 5.1 PE, I am not sure whether this will be possible. The other possibility would be to be able to install on Windows 7 and clean up the XP machine. The problem is that it is not possible to upgrade from XP to 7.
I'm using NetExpress 5.0 since... yesterday. I used Netexpress 3.1 many years ago.
I cam compile all my project, after its conversion, but I can't obtain the exe file i DON'T KNOW WHY.
Anybody can help me?
Many thanks.
J. Marques
Any advice what to look for to point my tech guys to the right place - cobol program compiled for animation using CBL_DEBUGBREAK - set compiler to option 2 - animation window pops up - step thru a few lines, no problem - then zoom causes error: Cob version and callstack excerpt below
******
cat $COBDIR/etc/cobver
cobol v5.1.00
PRN=R9CAO/AAJ:9r.B1.51.09
PTI=WrapPack 8
PTI=ES
*****
55949 CALL "CBL_DEBUGBREAK".
55950
55951 IF DW-CALL-STAGE = "11"
lPerform/Call Stack - viewqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk
xProgram Name Section Name x
lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk
x/zkbp/bin/dwisw.gnt Program is not animatable x
x/zkbp/bin/dwen.int 850-CALL-DWISW x
x/zkbp/bin/dwen.int 850-DWXXX-PROCESS x
x/zkbp/bin/dwen.int 003-STAGE-30 x
x/zkbp/bin/tstdwen.gnt Program is not animatable x
x x
lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk
x Z =Zoom ^ v =scroll Q =Quit D =Detach V =View-threads <qj=View Escapex
mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj
55964 GO TO 001-STAGE-17.
55965
55966*- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ZoomqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqLevel=01qSpeed=5qInsqCapsqNumqScroll
Ctrl+C to stop
115 Unexpected signal - (Signal 5)
Hi,
I am trying to compile a program using ORGANIZATION IS XML. I am receiving the following (from the LST) but do not know why. Can anyone help?
* Micro Focus Net Express V5.1 revision 000 11-Dec-15 12:20 Page 1
* EP032CBL.cbl
* Options: NOLIST NOASMLIST OMF(OBJ) GNT(.\) OBJ(.\)
* DIRECTIVES(D:\EPS_SYSTEMS\BASE_RLSE_CSC\wmaNEX\ENV\NETEXP.DIR)
1 $SET P(PREXML) WARN ENDP 1
* Setting: NOACCEPTREFRESH NOADV ALIGN"8" ALPHASTART"1" ALTER NOAMODE ANIM
* NOANIMPREP ANS85 APOST NOAREACHECK ARITHMETIC"MF" ASSIGN"EXTERNAL"
* NOASSIGN-PRINTER NOAUTOLOCK NOBELL NOBOUND NOBRIEF NOBS2000 BWZSTAR
* NOBYTEMODEMOVE CALLFH"EXTFH" NOCALLMCS NOCALLRECOVERY CALLSORT
* "EXTSM" CANCEL CANCELLBR NOCHANGEMESSAGE CHARSET"ASCII" CHECKDIV
* "VSC2" NOCHECKREFMOD NOCICS CICS-CPY NOCICSOPTIMIZE NOCMPR2
* NOCOBFSTATCONV NOCOBIDY COBOL370"2" COBOLDIR NOCOMP COMP-5"2"
* COMP-6"2" NOCOMS85 NOCONFIRM NOCONVERTRET CONVSPACE COPYEXT
* "cbl,CPY," NOCOPYLBR COPYLIST COPYLISTCOMMENT"1" CSI CURRENCY-SIGN
* "36" CURRENT-DATE"MMDDYY" NODATA DATACOMPRESS"0" NODATA-CONTEXT
* DATE DBCHECK DBCS"3" NODBCSSOSI DBSPACE DE-EDIT"2" DEFAULTBYTE"0"
* NODEFAULTCALLS DETECTLOCK NODG DIALECT"MF" DIRECTIVES-IN-COMMENTS
* NODOSVS NODPCINSUBSCRIPT DYNAM NOEARLY-RELEASE ECHO NOECHOALL
* EDITOR"MF2" ENSUITE"0" NOENTCOBOL ERRFORMAT"1" ERRLIST"VERBOSE"
* NOERRQ FASTSORT NOFCD3 NOFCDREG NOFDCLEAR NOFILESHARE FILETYPE"0"
* NOFLAG NOFLAGAS NOFLAGCD NOFLAGEUC NOFLAGMIG NOFLAGQ FLAGSINEDIT
* NOFLAGSTD NOFOLDCALLNAME NOFOLDCOPYNAME FORM"60" NOFP-ROUNDING
* NOHOSTARITHMETIC NOHOSTCONTZERO NOHOST-NUMCOMPARE NOHOST-NUMMOVE
* NOHOSTFD NOHOSTRW IBMCOMP IDXFORMAT"0" NOILGEN IMPLICITSCOPE NOINDD
* INFORETURN"0" NOINITCALL INITPTR INT"EP032CBL.int" INTDATE"ANSI"
* INTLEVEL"2" IOCONV NOISO2002 NOIXNLSKEY NOIXNUMKEY KEEP-INT
* KEYCHECK KEYCOMPRESS"0" NOLIBRARIAN NOLINE-COUNT LIST"EP032CBL.lst"
* LISTPATH"" LISTWIDTH"132" LITVAL-SIZE"4" LOCKTYPE"0" NOMAPNAME
* NOMAXERROR METHODDEFAULT"REFERENCE" MF"15" MFCOMMENT NOMOVELENCHECK
* NOMS NOMVS NATIVE"ASCII" NONATIVEFLOATINGPOINT NONCHAR
* NONEWBASENAME NONLS NSYMBOL"DBCS" NOODOOSVS NOODOSLIDE
* NOOLDBLANKLINE NOOLDCOPY NOOLDINDEX NOOLDNEXTSENTENCE NOOLDREADINTO
* NOOLDSTRMIX OOCTRL"-C-E-G-P+Q+R-S+W" OPTIONAL-FILE NOOS390 OSEXT
* "cbl" NOOSVS OUTDD"SYSOUT 132 L" NOP64 NOPANVALET NOPC1
* PERFORM-TYPE"OSVS" NOPREPLIST PREPROCESS"PREXML" NOPRINT-EXT
* NOPROFILE NOPROGID-COMMENT NOPROGID-INT-NAME NOPROTECT-LINKAGE
* PROTOTYPE"RELAXED" QUAL QUALPROC NOQUERY NOQUOTE NORAWLIST NORDW
* RECMODE"F" NOREENTRANT NOREF NOREFNO REMAINDER"1" REPORT-LINE"256"
* RESEQ NORETRYLOCK REWRITE-LS NORM RTNCODE-SIZE"4" NORWHARDPAGE
* NOSAA SEG NOSEQCHK SEQUENTIAL"RECORD" NOSERIAL SETTING"LINE"
* NOSHAREOUTDD NOSHOW-DIR SIGN"ASCII" NOSIGNDISCARD NOSIGNFIXUP
* SORTTYPE"DFSORT" SOURCEFORMAT"FIXED" SOURCETABSTOP"8" NOSPZERO
* NOSSRANGE NOSTDERR NOSTICKY-LINKAGE NOSTICKY-PERFORM SUPFF
* SWITCHTYPE"1" SYMBSTART"1" SYSPUNCH"132" TERMPAGE TIME NOTRACE
* NOTRUNC NOTRUNCCALLNAME NOTRUNCCOPY TRUNCINC"10" UNICODE"NATIVE"
* VERBOSE NOVSC2 WARNING"1" NOWB NOWB2 NOWB3 WEBSERVER"CGI"
* NOWRITELOCK NOWRITETHRU NOXOPEN NOXREF NOZEROLENGTHFALSE NOZEROSEQ
* NOZWB
2 IDENTIFICATION DIVISION. 2
3 PROGRAM-ID. EP032CBL. 3
4*TITLE. CONFIRMATION LETTERS TO CSF FILE. 4
5 AUTHOR. NAME . 5
6 DATE-WRITTEN. MARCH, 2009. 6
7 DATE-COMPILED. 7
* Micro Focus Net Express V5.1 revision 000 11-Dec-15 12:20 Page 2
* EP032CBL.cbl
35 ENVIRONMENT DIVISION. 35
36 INPUT-OUTPUT SECTION. 36
37 FILE-CONTROL. 37
38 38
39 SELECT EXTRACT-IN8 ASSIGN TO EXTRACT8. 39
40 SELECT EXTRACT-OUT9 ASSIGN TO EXTERNAL EXTRACT9 WSJAN11M 40
41 ORGANIZATION IS XML 41
* 131-S******************************** ( 0)** 42
** Unrecognized phrase in SELECT clause 42
42 DOCUMENT-TYPE IS EXTERNAL EP564CPY.xsd. 42
43 SELECT ERROR-REPORT-OUT ASSIGN TO ERRRPTO. 43
44 44
45 DATA DIVISION. 45
Hi,
using Server Express 5.1 on Red Hat can I write a sequlential file with End of line dos (CR + LF) from cobol program\mfsort ?
thank you
I am trying to connect to a database using net express 5.1 and the error returned is -1390 which means the DB2INSTANCE is not set. However, it is set so not sure why we are getting this error. Anyone face this issue? We are able to connect on other terminal server but this one gives us this error.