Rocket® COBOL

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