Rocket® COBOL

Problem: Release: 3.0   The .RSP files are no longer used. These were the link response files used in an earlier release of this project.  The .DLLs are now compiled and linked by simply rebuilding the project. Resolution: The call-conventions depend on the way a program is linked.  dynamicWINAPI is used to call functions in a .DLL that are dynamically loaded at run-time i.e. no import library is used during the link.  staticWINAPI is used to call functions in a .DLL that are referenced in an import library at link time. If the .LIB is not linked in then you will get a link error for unresolved external.   dynamicPascal is from an earlier release.  It tells the compiler and run-time system the order in which the parameters are passed. Any can be used as long as they match up between the calling and called programs. COBOL can only call a VB program if it is linked as a .DLL.  It can th

Problem: Would like to use the PRINTER_REDIRECTION=TRUE routine Resolution: Release: 3.1   In order to see the print dialog box, you need to call the PC_PRINTER_OPEN routine - this will then allow you to Open a printer channel, giving it a document title, and optionally displaying printer control, font, and progress indicator dialog boxes Full details of how to implement this are in the Net Express help, under PC_PRINTER_OPEN. Attachments: 2857 EFX99.eds.zip Old KB# 6786

Problem: Release: 3.1    The following is a correct example of calling the "GlobalAlloc" function. Resolution: The following code is a sample that works correctly using .int code. id division. program-id.  testalloc. environment division. special-names.    call-convention 74 is winapi. data division. working-storage section. 78  GMEM-FIXED                                   value h"0000". 78  GMEM-MOVEABLE                         value h"0002". 78  GMEM-SHARE                &nbsp

Problem: Copy file with dds extension , brings up as text file. Resolution: Release: 3.1   Options->edit-> copybook extensions add the .dds extension. Old KB# 6795

Problem: Release: 3.1    The tables below show the section that indexed names should be declared in under different circumstances. Resolution: OCCURS ... INDEXED BY index-name allocation For non-recursive programs (ie. no local storage section): index-name allocated index-name defined in: |  noreentrant | reentrant(1) | reentrant(2) working-storage           |  w-s              |  w-s             |  t-l ----------------------------------- -------------------- ------------------- ------------------ thread-local                  |  t-l            &nbsp

Problem: Release: 3.1   To get the fixpacks you need to start Net Express on a workstation which is connected to the Internet. Resolution: Open up the Net Express Help menu > Support > Product updates This will automatically take your browser to the download site. When it asks you for a support ID you will have to create one if you have not been on our web site before.  You can enter any userid and password that you like but you must enter your valid serial number from the CD-ROM. When this id has been created you can start Websync again and logon using the userid and password. Download all the fixpack files to your local drive. To install them, you simply need to execute each fixpack's self-extracting .EXE file on each system where Net Express is installed and the fixes will be applied automatically. Some of them will not be required because you may not have the relevant component installed. A message will be di

Problem: Release: 3.1    Resolution: When performing WRITE or REWRITE operations on line sequential or line advancing files, the INSERTNULL parameter determines whether to insert NULL (x"00") characters before non-printable characters. The parameter also determines whether to strip out those NULL characters during READ operations. INSERTNULL= {ON|OFF} Default: ON Note: INSERTNULL takes precedence over the N run-time switch. If you don't set INSERTNULL, the setting of the N run-time switch determines whether or not NULL characters are inserted before non-printable characters. This switch has two settings: OFF Do not insert NULL characters before non-printable characters. Do not strip out NULL characters during READ operations. ON Insert NULL characters before non-printable characters. Strip out NULL characters during READ operations. ***this file handler option should be set from the file handler configuration fi

Problem: Static Build getting fatal error lnk 1181 cannot open input file "winspool.lib". Resolution: Release: 3.0   Need to install the MSSDK from CD 2 from the Net Express 3.0  issue 1 CD case; two CD set.  If you have received an upgrade to Net Express 3.0 that is a single CD and you still need to use the frist one you received to install the MSSDK Attachments: WPP1102.JCL Old KB# 6780

Problem: Release: 3.1   When you invoke the putElement method on the SafeArray object you pass it an array which contains the same number of elements as there dimensions in the SafeArray. So when you have a 2 dimensional SafeArray like the example in the book you need to pass it an array containing the position for the first dimension of the table and the second dimension of the table. Resolution: The iIndex array that you are passing will contain the following each time putElement is called: iIndex (1) = 0 iIndex (2) = 0 iIndex (1) = 0 iIndex (2) = 1 iIndex (1) = 0 iIndex (2) = 2 iIndex (1) = 1 iIndex (2) = 0 iIndex (1) = 1 iIndex (2) = 1 iIndex (1) = 1 iIndex (2) = 2 iIndex (1) = 2 iIndex (2) = 0 etc. The iIndex(1) is passed to the method because the address of the first element is actually the same as a pointer to the table itself.  It would be the same as if you specified: 01  Th

Problem: Using DB2 CURRENT DATE/TIME Special Register with OpenESQL Resolution: You can use the DB2 CURRENT DATE/TIME special register with OpenESQL, but the only acceptable way to use CURRENT DATE/TIME is embedded in a SELECT, UPDATE or INSERT statement.  OpenESQL does not recognize EXEC SQL VALUE (CURRENT DATE) INTO :HOSTVAR END-EXEC The attached program shows different forms of the CURRENT DATE/TIME. $set sql(dbman=odbc) working-storage section. EXEC SQL INCLUDE SQLCA END-EXEC 01 db-timestamp pic x(26) Value Spaces. 01 db-date pic x(10) Value Spaces. 01 db-date1 pic x(10) Value Spaces. 01 db-time pic x(8) Value Spaces. 01 db-time1 pic x(8) Value Spaces. Procedure Division. EXEC SQL CONNECT TO 'udbsample' USER 'userid.password' END-EXEC EXEC SQL SELECT (current timestamp) INTO :db-timestamp FROM employee where empno='000340' END-EXEC EXEC SQL UPDATE employee SET HIREDATE = (current date) WHERE

Problem: Using the WITH HOLD Clause for the Declare Cursor with OpenESQL Resolution: Support has been added to Open ESQL to support the WITH HOLD syntax of the DECLARE CURSOR statement. WITH HOLD maintains resources across transactions or multiple units of work. Cursors defined by WITH HOLD will remain open after a COMMIT. This is of course dependent on whether the ODBC interface supports this function and whether the ODBC data source has been configured to enable this capability. If WITH HOLD is not supported you will receive sqlcode of -19520 Connection does not support HOLD cursors on the OPEN CURSOR statement. For example, WITH HOLD does not work with either the Microsoft ODBC driver or the Net Express Intersolv driver for SQL Server 6.5. However WITH HOLD is enabled using the Microsoft ODBC driver for SQL Server 7. For Oracle 7 and 8, both Oracle and Net Express ODBC drivers support the WITH HOLD capability. For DB2 the data source has to be config

Problem: Looking for white papers or details on COM objects Resolution: Release: 3.1   Consult the bookshelf at the "Part 3: The Object COBOL Model" page located in Start > Programs > Net Express 3.1 > Bookshelf > Distributed Computing (under Programmer's Guides). Old KB# 6782

Problem: Example of doing backup thru embedded sql. Resolution: The key to doing backup is you need to be in autocommit mode           exec sql                SET AUTOCOMMIT ON            end-exec            exec sql                BACKUP DATABASE MICROFOCUSDB TO MICROFOCUS            end-exec Attachments: ExportUnderscore.zip Old KB# 6796

Problem: When you are running an INT within the Net Express IDE, you will get a separate window for the result of the ATTRIB command. This is normal since the INT is always running in a window mode or environment in the Net Express IDE, which forces the operating system to open another window for the "DOS" ATTRIB command. On the other hand, running the EXE from the Net Express IDE will not be in window mode since your application is linked as a character interface application. Therefore, this will run as a "DOS" application, i.e. not in window mode. For that reason, you get to see two different results from running the INT and EXE within the Net Express IDE. Resolution: If you run the INT from the Net Express command prompt with the command RUN.EXE, you will get the same result as running the EXE within the Net Express IDE. The key here is that you have to run your application in window mode. That is, you have to link your EXE as a graphical int

Problem: I-O Error file 9/018 during sort Resolution: Release: 3.1   The sort failed with 9/018 when it is used for a large file (eg. 8GB). The cause of the problem is that no FixPacks have been applied against the Net Express v3.1 copy. The problem should be resolved after you apply the latest FixPacks for the runtime system (rts), compiler (cmp), IDE, and file handler (xfh). Old KB# 6794#AcuCobol#COBOL#ServerExpress#netexpress#RMCOBOL

Problem: How to print to the Windows printer with a COBOL program that prints to LPT1? Resolution: You can always redirect your output to a file and use the call to PC_PRINT_FILE routine to print the file using the Windows printer. This routine prints the contents of the specified file, optionally displaying printer control, font, and progress indicator dialog boxes, before commencing the print. If however you wish to control each line sent to the printer with different font name, style and size, you will have to change your WRITE statement to a call-by-name routine PC_PRINTER_WRITE. To know more about the printer routines, you can find more details about them from the Net Express online help. Old KB# 6799

Problem: Cannot access the Alternate Index of a host VSAM file. Resolution:    In order to access a host VSAM Alternate Index, one has to do some setup work on the host and on the PC. On the host:    - by default the MFA install should have created a PDS with a name      ending in VCTL  (something like VAN.BMW.MFA.VCTL)    - create a member in this PDS with a name starting with a '$'       (anyname, for example, $VSAMALT)    - in the PDS member enter something like this:         VSAM=USRGP1.TEST55.SPDPART         AIX1=USRGRP1.TEST55.PATHNAME      you can have up to 8 of these (AIX1 -> AIX8), but they must name      the VSAM pathname, not the actual dataset and the order must &nb

Problem: Is there a way of increasing the 64K dialog table limit. Resolution: The 64K limit for a dialog table is still present and there are no plans to increase/remove it.  If you have exceeded 64K then you will have to find a way of pruning the code. Old KB# 6575

Problem: use Class library reference's methods, as in the code pasted below. ( Methods: Border, SizeBorder, DoubleBorder                to set     a Border ) ( Methods: NoBorder, NoSizeBorder, NoDoubleBorder  to unset a Border ) In the code pasted below, the Entry field's handle is set in the data EFhandle of the data-block through the use of the Dialog system function MOVE-OBJECT-HANDLE ( The MOVE-OBJECT-HANDLE function lets you save the handle of an object in a numeric data item in the Data Block. This ensures the same objects are being referenced by both the Panels V2 and the Dialog System parts of your application. As an example: MOVE-OBJECT-HANDLE RENAME-PB PB-HAND MOVE-OBJECT-HANDLE RENAME-WIN WIND-HAND ) Resolution:         class-control.   

Problem: Net Express COBOL How to do a printscreen on a window using Dialog System. Resolution: One possible answer is to use third party software.  For instance, Androsoft's Superclip. <A HREF="http://www.androsoft-usa.com">http://www.androsoft-usa.com Old KB# 6574

Problem: Is it possible to populate pull-down menus dynamically by retrieving the values from a table database or pulling them off the host screen? Resolution: EnterpriseLink supports using a dynamic table to save values from a database table or host screens. Pull-down menus themselves are static. If an application requires a true pull-down menu, SmartTran needs to pre-allocate the largest table to accommodate different sizes of data objects. Old KB# 6583#EnterpriseLink#Rumba

Problem: Does SP5 for EnterpriseLink 5.0 support both of the Turbolinux Enterprise Server 8 Advanced/Basic powered by United Linux? The reason of this question is that we hear there is no difference between the distributions as long as that is powered by United Linux. Resolution: We have not tested EnterpriseLink 5.0 on United Linux.  We are relying upon the same statements from both companies that say that what is compatible on one is compatible on the other. Old KB# 6593#EnterpriseLink#Rumba

Problem: Is the SLES8 powered by United Linux 1.0? Resolution: Yes, according to the www.unitedlinux.com web site, UL 1.0 is compatible with SuSE 2.4.  And, according to the www.suse.com/us/business/products/server/standard/index.html  web site the SuSE Standard Server 8 is "Integrated UnitedLinux 1.0 technology."  Since Enterprise Server is an upgrade of Standard Server, both must be UnitedLinux 1.0 compatible. Old KB# 6594#EnterpriseLink#Rumba

Problem: elcs31sp3cnt.exe has a new feature that outputs some messages about Dr.Watson errors in the Server.log file. The current logging level for Cluster.log at run time is '1'. Is this setting enough for you to investigate a server crash? Resolution: Level 1 will only contain the minimum information, e.g. warnings and errors, so I would suggest running your test at level 3 or above to ensure you capture the trace information as well. This will ensure that development have all necessary debug information to hand to assist them in finding possible reasons for the fatal errors. Old KB# 6591#EnterpriseLink#Rumba

Problem: What is the maximum number of images per project? Resolution: There is no maximum. Old KB# 6585#EnterpriseLink#Rumba