Rocket® COBOL

Problem: How do you create a hyperlink from server-side text? Resolution: Release: 3.1   You have to first select all of the text (not in the treeview, but in the forms designer edit window) and then click the "edit hyperlink" button to add the url. Old KB# 6801

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: Unrecognized verb on intrinsic function UPPER-CASE Resolution: The syntax for the intrinsic UPPER-CASE function works as follows:          MOVE FUNCTION UPPER-CASE (SourceField) TO TargetField          MOVE FUNCTION UPPER-CASE (SourceField(1:4) TO TargetField Old KB# 6800

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: 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: 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: 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: Dialog System error 17 (color problem). Resolution: Release: 3.1   This is normally caused by one of two things: 1) A bad parameter on the SET-COLOR function. 2) Corrupted screenset. Attachments: image001.jpg Old KB# 6787

Problem: How to get prompted mode in dialog Resolution: Release: 3.1   Right click the mouse on object and click on dialog, next. click options  -prompted mode. Old KB# 6788

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: When starting Net Express they get a 114 Error Resolution: Release: 3.1   This was a known issue after applying the DATA File tool fixpack #4. To get around the problem, you need to run the command regsvr32 hex5.ocx from command prompt. Attachments: Index-List.txt Old KB# 6791

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: 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: 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: Display statement output going nowhere Resolution: In Build Settings reset the Interface type to Character. Attachments: 00131 CSC Maintenance Renewal 2008.xls Old KB# 6798

Problem: Needs a sample program that sends e-mails Resolution: Release: 3.1   There is an example of this called NetxMapi.zip in the Net Express Examples & Utilities Self-Service menu item on the Micro Focus SupportLine web page at http://www.supportline.microfocus.com. Attachments: AMod_License_Request_Form.xls Old KB# 6785

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: 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: 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: 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: 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: What is the maximum number of images per project? Resolution: There is no maximum. Old KB# 6585#EnterpriseLink#Rumba

Problem: Can EnterpriseLink interact with object request brokers? Resolution: Today the EnterpriseLink authoring environment allows a developer to access other data sources, applications, or objects through ActiveX controls or embedded Java applets in a EnterpriseLink application. In the future, EnterpriseLink will incorporate even more support for objects. The Loader will be able to capture the properties of objects made available through an  Object Request Broker (ORB), by reading the  Interface Definition Language (IDL) file associated with an object (In the case of Microsoft, the equivalent is the type library file.) EnterpriseLink will use the same paradigm of taking mainframe screen objects and working with them in the builder workspace. Similarly, once objects available via an ORB are captured by the Loader, they will be available for presentation to the user as mainframe screens are presented today. The Builder will provide the w