Rocket® COBOL

Problem: Customer upgraded to the V8 C compiler in Net Express and now gets the error R6034 an application has made an attempt to load the C runtime library incorrectly. Resolution: When using Micro Focus NET EXPRESS with  .NET  products with Microsoft Visual Studio products: NET EXPRESS 4.0 with .NET is ONLY supported with VISUAL STUDIO 2003 and VISUAL STUDIO 2005 is NOT supported with NET EXPRESS 4.0 with .NET NET EXPRESS 5.0 with .NET is ONLY supported with VISUAL STUDIO 2005 and VISUAL STUDIO 2005 is NOT supported with NET EXPRESS 4.0 with .NET Old KB# 1454

Problem: The following example is taken from the Net Express help and shows how to use user defined functions in COBOL.  This syntax is part of the ISO2002 standard but what additional compiler directives do I need to compile and run the program? FUNCTION-ID. factorial.                            DATA DIVISION.                                     LINKAGE SECTION.                                   01  parm1 BINARY-LONG.         

Problem: When modifying a Cobol program in the IDE and adding a copyfile statement (when there was no CPY file linked to the program before) - this will compile cleanly. Now when you do a publish to unix --> it will fail because the newly inserted copy will not be published to unix, hence the compilation fails. Publish and/or Publish All does not work. Resolution: Reason is you always need to do an update dependencies when publishing to UNIX. Overview - Updating Dependencies Dependencies exist when one file uses another file as part of its logic flow - one file is said to be dependent on the other. For example, a COBOL source file that contains a COPY statement is dependent on the copyfile specified in the COPY statement. That is, if the copyfile changes, the COBOL source file that uses it needs to be recompiled. Net Express manages most dependencies automatically; that is, files are rebuilt automatically if their dependent files chan

Problem: You may want to do the following Visual Basic function in COBOL: ReDim Preserve FileArray(1 To ArraySize) It basically allows you to increase the size of your array as you need it at runtime. Resolution: You could move the large array to linkage then allocate memory for it at runtime when you know how many elements are needed and fix its address using "set address of lnk-array to the-pointer". It won't allow for a redim but gives some flexibility on the array size. Here is a technique that is used by some of our developers when they want to increase the array! They allocate a new block of memory with the new size, copy the contents across, and then free the old memory. There is a whole selection of CBL_ routines for allocating memory dynamically. Old KB# 1447

Problem: Is it possible to use .Net Classes without using the Repository Section ? Resolution: This is possible using the "type" keyword to specify a class on an object declaration. For example you can declare a variable as follows:-        01 wsToday type "System.DateTime". In addition to this you can specify namespaces via the "ilusing" directive so that you can drop the use of a namespace to further simplify the declatation. For example:-       $set ilusing(System) .....        01 wsTomorrow     type "DateTime". Attached to this article is a working example showing how the syntax can be used. Attachments: NoRepository.zip Old KB# 1431

Problem: How can VB or any other language read a Micro Focus flat file (line or record sequential) that has signed numeric fields with or without decimal positions? Resolution: Data is stored in numeric fields in a line or record sequential file as shown below: Value PIC In file 9 999 009 9 s999 009 -9 s999 00y 9 999v99 00900 9.9 999v99 00990 9 s999v99 00900 9.9 s999v99 00990 -9 s999v99 0090p As shown above, there is no way to tell or determine the decimal position in file. If it is known, then the value can be converted easily. For example, the number in file can be devided to 100 to obtain the actual value if the PIC comes with V99. As shown above, all negative figures end with a letter in file. See the list below to convert the letter to a number: p -> 0 q -> 1 r -> 2 s -> 3 t -> 4 u -> 5 v -> 6 w -> 7 x -> 8 y -> 9 If the last character is a letter (between &#

Problem: Compiling PROGRAM1.CBL with PROGRAM1.CPY as a copybook fails with "COBCH0056S COPY is recursive" [PROGRAM1.CBL] ...         COPY PROGRAM1. ... Resolution: COPYEXT(CBL,CPY) is a default compiler directive that causes the compiler to pick up a copybook with CBL extension first. In a case where the copybook has the same name as the program, the compiler will pick up the program itself. To avoid this, here are two options: 1. set COPYEXT(CPY) to pick up copybooks with CPY extension first, or 2. rename the copybooks that have the same names as programs Old KB# 1405

Problem: Compiling a DB2 application with Net Express WrapPack 4 returns an RTS173 error against "hcgetenv". Compiling a DB2 application with Net Express WrapPack 4 returns errors regarding missing entry points in DB2AGAPI.DLL If working with DB2 UDB Version 8, you may encounter issues compiling applications with the DB2 compiler directive. This issue does not occur when using DB2 UDB Version 8 FixPak 15, nor with DB2 v9 or later. Resolution: Due to changes implemented to the DB2 support within Net Express WrapPack 4, you may find that compiling applications using DB2 UDB Version 8 will fail. To resolve this, you will need to upgrade your DB2 installation to the latest IBM FixPak. You can access downloads from the IBM website (currently at http://www-1.ibm.com/support/docview.wss?rs=71&uid=swg21256059 ). Having applied this FixPak, compilation and execution will then work as expected. Old KB# 1512

Problem: Release 5.0.NET: Visual Studio 2005 There is an error message trying to open a Visual Studio project in regard with cblproj project type: >Make sure the application for the project type (.cblproj) is installed< What to do to prevent this? Resolution: Probably, there are some steps to ensure that COBOL cblproj types can be used again: (1) Open a Net Express 5.0 command prompt and point to: ..\\Net Express 5.0\\PACKAGES >regsvr32 cblprj.dll to re-register cblprj.dll  (s. also KB article 23027) (2) If this is not helpful: he Visual Studio 2005 environment should be repaired, therefore point to Microsoft's common area to pick up devenv.exe: ..\\Microsoft Visual Studio 8\\Common7\\IDE >devenv /ResetSkipPkgs and after finishing try to open this project again. (3) Lastly, for the Visual Studio 2005 environment as of b) >devenv /setup Old KB# 1455

Problem: Receiving an SQLCODE of -1131 (Process terminated abnomally) after recompiling DB2 Stored Procedures using Net Express 5.0 with WS03 applied. The same Stored Procedures ran correctly when compiled under Net Express 4.0. Moving the Stored Procedure .DLLs to a server machine to run after compiling them. Resolution: This problem can occur when the product release levels differ between the development and deployment systems. Ensure that both systems are at the same product and WrapPack level. Old KB# 1413

Problem: Is there a way to place TYPEDEFs  where they would be useable for any of these sections FILE SECTION FDs, WORKING-STORAGE, or LINKAGE SECTION , Resolution: Typedefs can be defined in an external program (or program prototype) which is placed before the main program and is therefore available to all sections. See example below. program-id. mytypedefs is prototype. working-storage 01  STD-KEY             PIC X(46) IS TYPEDEF. end-program program-id. myprogram. file section. FD ....       ...  USAGE STD-KEY. WORKING-STORAGE. .... Old KB# 1420

Problem: Is there a way in which data can be returned containing NULL values without specifying NULL indicators? The application returns a SQLCODE of -1405 on the fetch. Resolution: Use the Oracle precompiler directive unsafe_null=yes . Refer to the Oracle Pro*COBOL documentation for further details. Old KB# 1462

Problem: How can you dynamically change the alignment of Text in a cell of a DataGridView in .Net ? Resolution: There is an enumeration "DataGridViewContentAlignment" that allows you to set the alignment in a cell. You can use this using code such as:-            set DataGridView1::"Columns"::"Item"(0)::"DefaultCellStyle"::"Alignment"                to cDataGridViewContentAlignment::"TopCenter"            set DataGridView1::"Columns"::"Item"(1)::"DefaultCellStyle"::"Alignment"                to cDataGridViewContentAlignment::"TopCenter" A full demo is attached to this article. Attachme

Problem: We have been made aware of an issue whereby when running using an early release of the Bank Demo CICS application that has been web enabled, that when the client has been generated and deployed and you choose the 'Run Winform Client' option and press the 'submit' button you get an Error Code 2000 reported. Resolution: If you look at the console.log in Enterprise Server, you will probably notice an entry similar to the following: 070608 15240655        956 BANKDEMO CASMG9999E KC0027,Error executing service 'http://tempuri.org/BankServ#BankServ' Execution error : file 'C:\\Program Files\\Micro Focus\\Studio 5.0\\Base\\BIN\\MER0ADSX.gnt' error code: 114, pc=0, call=1, seg=0 114     Attempt to access item beyond bounds of mem This is caused by older versions of the bank demo had a PPT entry for MBANK10, where MBANK10 was not defined as a progra

Problem: This demo program will show you how to create your own functions using the COBOL language. Resolution:     ===========================================================                                             Micro Focus                                        N E T E X P R E S S       ===========================================================                         &

Problem: This demo requires SQL Server 2000 or 2005. It shows how COBOL can be used as a powerful Web autoring tool. The attached .zip file contains a readme document and the actual demo code. Follow the instructions in the readme for installation and setup information. Happy Shopping! Resolution: The attached .zip file contains a readme document and the actual demo code. Follow the instructions in the readme for installation and setup information. Happy Shopping! Attachments: MFShopCartASPDemo.zip Old KB# 1489

Problem: Customer is using Net Express 3.1 and cannot find any documentation for the CBL_ library routines. Resolution: Go to the SupportLine web site, http://supportline.microfocus.com.  Then log on, under the Self-Service section go to the Patches & Fixes or Product Update section.  On that page find the Net Express v3.1 Service Pack 1 section.  The documentation update will be found on that page. Old KB# 1510

Problem: A copy of the Readme file is attached to this article. Resolution: Attachments: Readme for Net Express v5 WS03.zip Old KB# 1436

Problem: A copy of the Readme file is attached to this article. Resolution: Attachments: Readme for Net Express v5 WS02.zip Old KB# 1437

Problem: Micro Focus Net Express V5.003.0082 RUN TIME ENVIRONMENT Copyright (C) 1984-2007 Micro Focus (IP) Limited. URN AXCGG/AA0/00000         1 file(s) copied.           Boolean operator 'ZD' invalid SORT015U: Command statement error(s) detected 16:mfsort take CIPS0270A JOB is abending due to return code 16 SORT FIELDS=(3,10,CH,A) RECORD=(F,450) OMIT COND=((1,2,EQ,C'50'),OR,(1,2,EQ,C'52'),OR,(1,2,EQ,C'51',AND,               13,9,ZD,EQ,000000000,AND,22,9,ZD,EQ,000000000,AND, *************               31,9,ZD,EQ,000000000,AND,40,11,ZD,EQ,00000000000,AND,               51,11,ZD,EQ,00000000000,AND,406,9,ZD,EQ,000000000)) Resolution: The error is not

Problem: This demonstration shows how to create a simple ASP.NET application. It was rewritten from the CGI demo program which is documented in the Net Express Help tutorial section. Resolution: Please folllow the instructions in the README.DOC for more information. Attachments: BevordASPNetDemo.zip Old KB# 1476

Problem: Customer was creating the XML XD description using the following: XD  XML-SOURCE-IN                                         LABEL RECORDS ARE STANDARD                            RECORDING MODE IS F                                   BLOCK CONTAINS 0.                               and when compiled would

Problem: A negative value should have ended in a } but instead is shown as a p. This causes a problem as the end user now gets instead of a negative amount -35,000.00 the end-user sees -35,000.07 -35,000 should end with } to close. But it is closed by a p as last character. And this p in ASCII ends in -7 which is actually the true representation. Why is the } not displayed in the first place? The code used is: SELECT BBCONVHY ASSIGN TO EXTERNAL BBCONVHY ORGANIZATION IS LINE SEQUENTIAL ACCESS MODE IS SEQUENTIAL. 01 HR30-HOOFDSOM-REC. 03 HR30-SAL PIC S9(13)V9(2). DISPLAY "Uitvoering: 1300-HOOFDSOM". PERFORM 1300-HOOFDSOM. WHEN HULP-REC-SRT = 30 ADD 1 TO REC-30-AANT Resolution: Use the directive SIGN"EBCDIC" and the correct symbol will be displayed here. Old KB# 1471

Problem: A client installed his application on Windows Vista for the first time. The machine had Application Server for Net Express 5.0 (i.e. Micro Focus Server 5.0)  installed. The application was character based and required settings in ADISCTRL. In partucular it required function keys to be enabled. Testing led him to believe that ADISCTRL was not being read and that defaults were therefore being taken. Yet, the same configuratiopn worked correctly on XP and previous Windows versions. Resolution: When the application was distributed the preset copy of ADISCTRL was copied into the Application Server directory (eg C:\\Program Files\\Micro Focus\\Server 5.0\\bin). As this was Application Server he was not able to run adiscf to make the appropriate adjustments. When running the application the F-Keys (and other settings such as having the enter key work as a tab key) were not being recognized. The PATH was checked and seemed correct. C

Problem: Trying to execute a CICS program from a batch job by using web services and EXCI.  If running ZCOMMAND.jcl, which executes COMMAND and passes parms to it.  COMMAND then calls COMMSERV, passing along the parms.  COMMSERV invokes the web service using the client program CommandService-proxy and is supposed to link to CICS program TRNSTRT. Animating the job and stepped through COMMAND and into the COMMSERV entry point in the proxy program.  You will  see that the parms were correct before the call to COMMSERV.  As soon as the proxy program is entered, looking at the parms again and saw that an additional 16 bytes of nulls had been inserted at the beginning of the parms.  This caused error 458 (illegal character in SOAP string) when it tried to invoke the web service. Resolution: This issue was using a Migration project that has PCOMMAIN used for directives which created the webservice us