Rocket® COBOL

Problem: Where is the Application Server installation software? Resolution: Release: 3.1   On installation cd-rom in the Application Server subdirectory Attachments: (20080606_1532)END.pcf Old KB# 6781

Problem: Where are the COBOL source lacations? Resolution: Cobol programs can be found through the COBDIR environment variable directory entries at runtime and copybooks found through the COBCPY environment variable directory entries at compile time Old KB# 6778

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: 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: 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: EXE doesn't appear to run and doesn't produce any output or errors Resolution: Make sure if the character based application that is linked has the interface type set to character. Attachments: ComparisionProblem.zip Old KB# 6790

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   You can use the call by number library routine X"91" function 69 to find out the attribute byte for a file. Resolution: Use the Find One File action code and specify your filename. Set the attribute byte to 01 so that it includes read-only files in the search. Upon return from this call check the attribute byte for the file.     If bit 0 is set to 1 then the file is marked as read-only.     If bit 0 is set to 0 then it is not marked as read-only. Look in the Net Express Help/Find under Library/Alphabetical list of Library functions. Old KB# 6775

Problem: How to deactivate the browser's history? Resolution: Release: 3.1   This cannot be done with Net Express. The users may have to refer to a third-party active-x or javascript. Old KB# 6783

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   How to transfer Micro Focus ANSI Sequential file to mainframe using FTP? Resolution: 1. From a command prompt, change the directory to the directory containing the file is to be uploaded to. 2. Next you will require FTP rights to the mainframe and security for creating a mainframe dataset of the name you provide. 3. Sign on to the mainframe FTP using your FTP signon and provide your password when prompted. 4. Quote site recfm=fb lrecl=100 blksize=7200 wrap    <--- the WRAP causes the FTP load the record by the LRECL 5.  Put yourPC.file.dat 'main.frame.DSN.name' Old KB# 6776

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: Converting from OS/2 to Net Express Windows & X"91" function not found Resolution: Release: 3.1   He was linking statically using cbllink -b. This does not work when using the X"91" call in your program. When he changed it to cbllink -rs it worked fine. Attachments: Screen shot and Activity Log entry.doc Old KB# 6793

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: 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