Chris , We have the fooling in PL-SQL : CREATE OR REPLACE TYPE HEADER AS OBJECT ( COMPANIA NUMBER(2), SUCURSAL NUMBER(4), OFICINA NUMBER(4), DEPARTAMENTO NUMBER(4), TERMINAL VARCHAR2(30), USUARIO NUMBER(4), CANAL NUMBER(4), MODULO NUMBER(2), TRANSACCION NUMBER(4), IDMENSAJE VARCHAR2(30) ); PROCEDURE BOGEN_PRC_OBT_COD_CLI ( token_encript IN VARCHAR2, pior_header IN OUT header, pic_rut IN varchar2, pon_cod_cli OUT number, pon_errornum OUT varchar2, poc_errortxt OUT varchar2 ); With this ... ENTRADA token_encript IN VARCHAR2 Siempre debe ser NULL HEADER IN/OUT Estructura TYPE (Ver definición anterior) pic_rut IN VARCHAR2(19) RUT del cliente. SALIDA PON_CODCLI OUT NUMBER(8) Código de cliente pon_errornum OUT NUMBER(10) Código de error ORACLE en el caso que se genere. Exitoso es el valor cero(0) poc_errortxt OUT VARCHAR2(255) Descripción error ORACLE en el caso que se genere. Sin mensajes de Error. We Need to PUT all this in a Cobol Program with SQL embedded.
↧
Forum Post: RE: PL-SQL TYPE HEADER
↧
Forum Post: 2.2 and VS2013, simple question
Hi folks, pardon my intrusion here, I just want to know if anyone knows if Visual COBOL PE, which as far as I can tell is only available up to 2.2 and not 2.2.1, will work in VS2013. I asked support, but they referred me to the Borland forum and told me the PE was handled there. I posted the question there, but no answer and the forum appears dormant as the last post was over a year ago. I would like to avoid installing VS2012 as I would need to uninstall VS2013, then install VS2012 and re-install VS2013 to keep things from getting mucked up, per MS. I'm assuming there is a reason 2.2 needed to be updated to support VS2013, but wanted to make sure before I jump through hoops. Thanks for any help someone can provide. Rob M.
↧
↧
Forum Post: V COBOL FOR ECLIPSE
OLA AMIGOS, NO MEU VISUAL COBOL FOR ECLIPSE, A FUNCAO PALETTE, ACESSO ELA MAS NAO ABRE O COMANDO DE CRIACAO DE FORMULARIOS, PRECISO DESTA FUNÇAO, O PORQUE DA MENSSAGEM IT IS NOW AVAIABLE GRATO J.NEVES BRAZIL
↧
Forum Post: VisualCOBOL PE
Hi Frank - Please excuse me if I am in the wrong place, but I was directed here by Micro Focus support for a question about VisualCOBOL PE. I downloaded VisualCOBOL PE 2.2, but then saw it is intended for VS2012, and I use VS2013. V-COBOL 2.2.1 is for VS2013, but I do not see a PE for that version. I'm just asking if I can use V-COBOL 2.2 in VS2013, I would think not since 2.2.1 has been released for it, but I wanted to ask. If not, is there a workaround or is my only option to install VS2012? I would have to uninstall VS2013, install 2012, and then re-install 2013, as is my understanding from MS for not mucking things up they must be installed in chrono order if using multiple editions. If I am indeed in the wrong forum to ask this question, can you tell me where to go? Thank you, Rob ps. Also, I could not find a button to start a new thread here, so sorry also for posting OT on yours.
↧
Forum Post: RE: 2.2 and VS2013, simple question
hi Rob, the next update to Visual COBOL PE will coincide with Visual COBOL 2.3 which is tentatively scheduled for the first half of 2015. In that release VC PE will support 2013. Perhaps installing VC PE on a VM will help minimize the install fun and games. Regards, Scot
↧
↧
Forum Post: VS Update
I saw, that Update 2 for Version 2.2 is available; 03-Nov-2014. Why Micro Focus does not send a message referring to this?
↧
Forum Post: RE: 2.2 and VS2013, simple question
Thank you Scot, sounds like a plan. I don't recall ever downloading a VS extension that included anything like the courseware package that came with VIsualCOBOL. I don't know if you are with Micro Focus, but I'm very impressed and wanted to express my appreciation! Thanks again for your reply! Rob
↧
Forum Post: RE: VisualCOBOL PE
Hi folks, this question was answered for me by Scot Nielsen in another thread: hi Rob, the next update to Visual COBOL PE will coincide with Visual COBOL 2.3 which is tentatively scheduled for the first half of 2015. In that release VC PE will support 2013. Perhaps installing VC PE on a VM will help minimize the install fun and games. Regards, Scot Apologies for my confusion and 2 threads, thanks to Scot! Rob
↧
Forum Post: RE: 2.2 and VS2013, simple question
Hi Rob, thanks for the feedback - very glad to hear you found it useful. Are you learning COBOL? I'm the product manager at Micro Focus for our COBOL products.
↧
↧
Forum Post: RE: 2.2 and VS2013, simple question
Yes I am, I have used C++ mostly and recently went back to school to finish a CS degree. I am not currently working, I had been in various IT roles over the years but never stuck to a degree path in school, just learned what I needed for the job. Picking up COBOL seems like a good move to me. When I first learned some programming many years ago I started with machine code and assembly and really have a low level POV. I played with COBOL a little some years back and enjoyed it, and I am seeing many positions for COBOL in my current job hunt. Every COBOL position mentions that they will train, which leads me to think that thay are not finding a lot of candidates using COBOL already. I really like what I've read so far about where COBOL has gone since I was exposed to it, with OOP and use with C# (which I am currently learning) and VB. I was taught that COBOL is one of, if not the, most widely used language due to it's long history and the number of business apps developed with it over the decades. One of my instructors told us that the need for COBOL developers is likely larger than for most of the "sexy" languages because of the huge amount of existing code requiring maintenance and further development. I'm sure you probably know all of these, and more, reasons to learn COBOL. I have a few chapters left to finish in my C# book, and then plan to start the excellent Micro Focus materials that I mentioned. People like yourself provide such valuable help to those of us trying to make ourselves useful in technology, enough thanks cannot be given. I looked at your profile after your first reply and was duly impressed. It appears you and the rest at Micro Focus have done a wonderful job with your tools and the dedication to quality and support makes me eager to start, you just don't see that everywhere. This is getting pretty long, but I'm big on positive reinforcement when I see things done the right way. Congrats on your fine products, I'll likely be back around for help with the bumps in the road. Thanks again Scot Rob
↧
Forum Post: RE: 2.2 and VS2013, simple question
Best of luck to you Rob. Our OO webinars might also come in useful as you bring together C# and COBOL skills - which should make for a powerful combination. community.microfocus.com/.../oop-for-cobol.aspx
↧
Forum Post: RE: 2.2 and VS2013, simple question
Thanks, you'll be happy to know your website has already emailed me about the webinars and guided me to signing up.
↧
Forum Post: RE: PL-SQL TYPE HEADER
I found the following in the Oracle Pro*COBOL documentation about embedded PL/SQL in embedded SQL programs: Embedding PL/SQL Pro*COBOL treats a PL/SQL block like a single embedded SQL statement. So, you can place a PL/SQL block anywhere in a host program that you can place a SQL statement. To embed a PL/SQL block in your host program, declare the variables to be shared with PL/SQL and bracket the PL/SQL block with the EXEC SQL EXECUTE and END-EXEC keywords.
↧
↧
Forum Post: RE: PL-SQL TYPE HEADER
Dear Chris, We did all of this in the enclosed Cobol Program and ALWAYS we get the same ERROR on the same line : Dear Chris, We did all of this in the enclosed Cobol Program and ALWAYS we get the same ERROR on the same line : 01 COD_CLI. 05 ENTRADA-COD-CLI. 10 token_encript PIC X(50). 10 pior_header HEADER. 10 pic_rut PIC X(19). 10 pon_cod_cli PIC 9(08). 10 pon_errornum PIC 9(10). 10 poc_errortxt PIC X(255).
↧
Forum Post: RE: ListView set and get item information
Hi Thanks Chris for all your posts, in this an in others consults, I need use images listed/showed in a listbox, listview or other control. I have seen in Microsoft msdn " msdn.microsoft.com/.../system.windows.forms.listview.largeimagelist(v=vs.110).aspx" ;, but I can't translate from C# or other to Visual Cobol language. thanks in advanced Calisto H.
↧
Forum Post: RE: VS Update
Hi, Visual COBOL 2.2 Update 2 will be launched officially on 19th November. Ahead of the launch, we make the product available for download on SupportLine for customers awaiting fixes and updates. Expect to hear more about the new features on the 19th. Regards, Scot
↧
Wiki Page: Visual Studio or Eclipse is not launched when encountering CBL_DEBUGBREAK from a Windows Service process
Problem: When connecting to a remote machine using RDP (Remote Desktop Protocol) and launching a Windows Service which contains a CBL_DEBUGBREAK, Visual Cobol for Visual Studio or Visual Cobol for Eclipse does not detect the CBL_DEBUGBREAK. Resolution: When the service encounters the CBL_DEBUGBREAK, it has to interact with the desktop to display the 'Do you want to debug' prompt. It does this by getting the user currently logged into the computers console, and interacting with that console. The remote desktop uses a separate session which is not the console window so the prompt is not visible. This is a limitation of using RDP to access the remote machine and there are 2 alternatives to get the CBL_DEBUGBREAK to work: For Visual Studio: In the Visual Studio menu, go to Debug Start Debugging. This will then wait for you to run the Service and the application will attach as soon as it encounters the CBL_ DEBUGBREAK. For Eclipse: Start Eclipse as administrator and start a "COBOL Wait for Application Attachment" debug session. When CBL_DEBUGBREAK or CBL_DEBUG_START is executed, Eclipse is launched and starts debugging the application. Alternatively, using different remote desktop software such as RADMIN, which does not use a separate session, should get the correct behavior by just launching the Windows Service.
↧
↧
Forum Post: RE: ListView set and get item information
Hi Calisto, In the future please create new posts for new questions instead of adding them to the end of an existing thread. Here is a COBOL example that I derived from the C# example show under LargeImageList. This assumes that there is a ListView control called ListView1 already existing on your form. class-id testlistimage.Form1 is partial inherits type System.Windows.Forms.Form. working-storage section. method-id NEW. procedure division. invoke self::InitializeComponent invoke self::createMyListView goback. end method. method-id createMyListView public. local-storage section. 01 item1 type ListViewItem. 01 item2 type ListViewItem. 01 item3 type ListViewItem. 01 liarray type ListViewItem occurs any. procedure division. * Set the view to show details. set listView1::View to type View::Details * Allow the user to edit item text. set listView1::LabelEdit to true * Allow the user to rearrange columns. set listView1::AllowColumnReorder to true * Display check boxes. set listView1::CheckBoxes to true * Select the item and subitems when selection is made. set listView1::FullRowSelect to true * Display grid lines. set listView1::GridLines to true * Sort the items in the list in ascending order. set listView1::Sorting to type SortOrder::Ascending * Create three items and three sets of subitems for each item. set item1 to new ListViewItem("item1", 0) * Place a check mark next to the item. set item1::Checked to true invoke item1::SubItems::Add("1") invoke item1::SubItems::Add("2") invoke item1::SubItems::Add("3") set item2 to new ListViewItem("item2", 1) invoke item2::SubItems::Add("4") invoke item2::SubItems::Add("5") invoke item2::SubItems::Add("6") set item3 to new ListViewItem("item3", 0) * Place a check mark next to the item. set item3::Checked to true invoke item3::SubItems::Add("7") invoke item3::SubItems::Add("8") invoke item3::SubItems::Add("9") * Create columns for the items and subitems. * Width of -2 indicates auto-size. invoke listView1::Columns::Add("Item Column", -2, type HorizontalAlignment::Left) invoke listView1::Columns::Add("Column 2", -2, type HorizontalAlignment::Left) invoke listView1::Columns::Add("Column 3", -2, type HorizontalAlignment::Left) invoke listView1::Columns::Add("Column 4", -2, type HorizontalAlignment::Center) * Add the items to the ListView. set content of liarray to (item1, item2, item3) invoke listView1::Items::AddRange(liarray) * Create two ImageList objects. declare imageListSmall as type ImageList = new ImageList declare imageListLarge as type ImageList = new ImageList * Initialize the ImageList objects with bitmaps. invoke imageListSmall::Images::Add(type Bitmap::FromFile("C:\temp\MySmallbmp.bmp")) invoke imageListSmall::Images::Add(type Bitmap::FromFile("C:\temp\MySmallbmp.bmp")) invoke imageListLarge::Images::Add(type Bitmap::FromFile("C:\temp\MyLargebmp.bmp")) invoke imageListLarge::Images::Add(type Bitmap::FromFile("C:\temp\MyLargebmp.bmp")) * Assign the ImageList objects to the ListView. set listView1::LargeImageList to imageListLarge set listView1::SmallImageList to imageListSmall goback. end method. method-id button1_Click final private. procedure division using by value sender as object e as type System.EventArgs. set listView1::View to type View::LargeIcon end method. end class.
↧
Forum Post: Data área like "sesión data".
The scenario is as follows: Within a run-unit, we run a program that calls others (many others). We would need to have a data area visible by all programs running within that run unit. Eventually, some program also would update the data in this area, as if it were the "session data". Any idea how we could implement this requirement? We are using Visual Cobol 2.2 under Unix. Any collaboration will be appreciated.
↧
Forum Post: RE: Data área like "sesión data".
Hi Jose, It sounds like EXTERNAL data would probably work for you. If you define a data area in all of your programs and use the EXTERNAL keyword then that data area does not belong to any one program but instead it belongs to the run-unit and is shared by all programs within that run-unit that also have it defined. prog1: 01 my-ext-data external. 05 field-1 pic x(10). 05 field-2 pic x(20). move "TEST" to field-1 call "prog2" display field-1 * will display PROG2 prog2: 01 my-ext-data external. 05 field-1 pic x(10). 05 field-2 pic x(20). display field-1 * will display TEST move "PROG2" to field-1 goback.
↧