Rocket® COBOL

Problem: The documentation for the "extend Interoperability Suite" includes references to a sample program named paperinfo.cbl, which obtains paper and tray information from the system's printers.  Unfortunately this sample is no longer included in the installation. Resolution: Here is the complete PaperInfo.cbl program: IDENTIFICATION DIVISION. PROGRAM-ID. PaperInfo. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. FILE-CONTROL. SELECT EnumPrinter ASSIGN TO "Printerlist.txt" ORGANIZATION IS LINE SEQUENTIAL. FILE SECTION. FD EnumPrinter. 01 EprintRec PIC X(100). WORKING-STORAGE SECTION. 77 CALL-RESULT SIGNED-INT VALUE 0. 77 TmpStr PIC X(15). 77 WS-HA pic 9(03). 77 WS-HB

who has experience with Cobol and SAP? Since 9 month i learn to program in SAP Abap and i am enjoy for the possibilities in ABAP. ABAP is near Cobol, that was the begin and over many years ABAP have take a many possibilities from other languages. Open Source SQL is integrated, OO ABAP is possible, DYNPRO for graphicals Screens are integrated with many Icons, Webdynpro for Internet programming, etc.... ABAP-Workbench is a very good tool, but the generated code is an Interpreter! This may be a good way to integrate all possibilities in Visual Cobol for a glory future of Cobol Applications! Who want discussions about this theme?

We are planning to convert character based screens into WInforms. Looking for a document ,examples .Went thru this blog but not able to find. If any pointers would help us over here Thanks Karthik#COBOLVISUALCOBOLMIGRATION

Hi guys,Already available in the online bookstore AgBook  here, my Visual Cobol .NET book  with print option in black and white, in colors or PDF. With more than 50 examples projects distributed in more of 320 A4 pages with pictures and commented texts.I hope that this book can really contribute to enlarge the knowledge of those who are starting in Visual Cobol and like to build desktop applications.Regards,

hello,, I'm using the bellow routine it's working fine, move spaces to RU-Command-Line. string "vuescan.exe" delimited by size into RU-Command-Line end-string. move length of RU-Command-Line to RU-Command-Line-Len. move 0 to RU-Stack-Size. move 0 to RU-Flags. call "CBL_EXEC_RUN_UNIT" using by reference RU-Command-Line by value RU-Command-Line-Len by reference RU-ID by value RU-Stack-Size by value RU-Flags returning RU-Status-Code end-call.*My qustion and needs :how can I get data from the called program "vuescan.exe", like the file-name and the path were that file have been saved,, and pass it to the calling program. Regards

I have any VISION file with 2411 defined fields. This definition is this: FD SWHF LABEL RECORD OMITTED DATA RECORD SWHR.01 SWHR. 02 SWH-TA.03 SWH-KY.04 SWH-NRKYFA PIC 9(4).04 SWH-XXKY PIC 9(9).03 SWH-TAKURZ.04 SWH-XXKURZ PIC X(3) OCCURS 200. 03 SWH-TANAME.04 SWH-XXNAME PIC X(25) OCCURS 200.03 SWH-TAKURS.04 SWH-PRKURS PIC 9(5)V9(6) OCCURS 200.04 SWH-KZRUND PIC 9 OCCURS 200.04 SWH-BEKURS PIC 9(5) OCCURS 200.03 SWH-TAKD.04 SWH-KDKDKDIF PIC X(9) OCCURS 200.04 SWH-KDKDSKOA PIC X(9) OCCURS 200.04 SWH-KDKDSKDE PIC X(9) OCCURS 200.04 SWH-KDWSFORD PIC X(9) OCCURS 200.04 SWH-KDWSVERB PIC X(9) OCCURS 200.03 SWH-DM PIC 9(6).03 SWH-TATEILN. 04 SWH-KZTEILN PIC X OCCURS 200.03 SWH-XXKURZ0 PIC X(3).03 SWH-XXNAME0 PIC X(25).03 SWH-PRKURS0 PIC 9(5)V9(6).03 SWH-KZRUND0 PIC 9.03 SWH-KZTEILN0 PIC X.03 SWH-TADIRUM. 04 SWH-KZDIRUM PIC X OCCURS 200.03 SWH-KDKDIF0 PIC X(9).03 SWH-XXLEER PIC X(6031).02 SWH-TAR REDEFINES SWH-TA PIC X(24500). Because of this record structure you will get 2411 fields defined. Th

Hi all, We have a program with the standrad web browser control on its screen. In value property we have: c:\\mydir\\αβγ The last three characters are the three beginning characters of the greek alphabet. When we run the program, sometimes crashes, sometimes runs ok (...) We have no problem when path has only english characters. Our version is 10.0.1 on Windows 10. Same program runs ok with version 8.1.0 regardless the characters contained in value property. Thank you

Is anyone using the ActiveX controls from Component One (Grape City)?

After searching a Long time for a grid with Excel functionality, i have found a activex tool "mstgrid.ocx" from the Website: http://www.mysofttool.com/ With the activex-Assistant i was able to convert any codes in Cobol and i am enjoy from this functions. But by any code, i have Problems to convert! Who can help to convert Visual Basic or C#-Code? Are there better Tools that integrated in MF-Visual Cobol? A ocx-Viewer? Here a example of code in VB and C#? Here the code in C# private void Form1_Load(object sender, EventArgs e) { grdView1.NewFile(11, 6); grdView1.AutoRedraw = false; grdView1.ThemeStyle = MstGrid.ThemeStyle.Light3D; grdView1.ShowHeaderAutoText = MstGrid.HeaderAutoText.Both; grdView1.Row(2).Borders(MstGrid.CellBorders.Bottom).LineStyle = MstGrid.LineStyle.Thin; grdView1.Row(2).Borders(MstGrid.CellBorders.Bottom).Color = Color.Red; grdView1.Range(5, 2, 8, 4).Borders(MstGrid.CellBorders.Around).LineStyle = MstGrid.LineStyle.Thick; grdView1.Range(5, 2, 8,

Hello, everybody Using runtime 9.2.5, sometimes it appears error 30/00 after an inactivity period in the computer. We use network units to conect computer to a server. The O.S Server is Windows Server 2012 and the computer S.O. is Windows 10. The error does not happen in other computers with different O.S. I have verified opportunistick locking in the server and in computer. Server: HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\LanmanServer\\Parameters EnableOplocks = 0 W10 Computer: HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\MRxSmb\\Parameters OpLocksDusabled = 1 Any suggestion?? Thanks in advance, #ACUCOBOL9.2.4

When you make changes to a file layout (FD), Relativity Designer allows for merging in changes to bring the file layout up to date. But I don't see a way to add/modify entries in the Table that was created off the previous layout. In particular say I add two fields at the bottom of the layout, then I run the merge option to synchronize the changes but as far as the table is concerned I end up having to delete the old entry and then use the table wizard to make a new one and they try to put back any special settings and such (writable/updatable, order of columns, record type used, fields removed, etc.).  Am I missing something and is there a better way to adjust the table?#Relativitytables

I am running Visual studio 2012 VC 2.2.  I can open a DS screen in some folders that were done in netexpress, but I have two solutions that if I try to open the .GS file I get the following error: If I move that .GS file to a different folder that has a different netexpress solution in it, it works, as does all the other .GS in that folder. What do I have setup wrong?

We have a report generator integrated into our COBOL application (List & Label of Combit) via a DLL. This works smoothly for years.Now we want to realize a sequence, where the report generator send news about "Windows Messages" back to us, so that we can initiate new actions in COBOL.Can I noticed this news about a EVENT Procedure at the window? Must this window be "modeless" and the DLL called as "thread"?Or must I stand on a ACCEPT in COBOL (ACCEPT ... ALLOWING MESSAGES ...)?Alternatively, you can also use callback routines for the report generator. What is it and does it work with COBOL?Unfortunately there are no COBOL users in the forum of the report generator, who want to do so much. RegardsFrank-Peter Clees#WindowsMessagesandCallbackRoutines

We're using Acu 9.2 on Windows - when running a thin client session, we use C$OPENSAVEBOX to select an output folder and filename for a file.  However, when we try writing to that file,setting the filename to "@[DISPLAY]:path\\filename", we get a file error 9D. We can always create the file on the server and then copy it to the client, but that seems like an unnecessary step - since OPENSAVEBOX can access the client, shouldn't we be able to write directly to the client using @[DISPLAY]:? Basically just looking for confirmation whether or not this is supported under Acu 9.2 for Windows. Thanks Tony

We have upgraded (Windows) NE 5.1.6 to NE 5.1.12. After this update there is an automatic conversion from 2 bytes diacritic to one character diacriticNow some my programs are not working any more . Example.My program converted Indonesië to Indonesie . translation table: # Kolommen : Cod   = Unicode#            S     = Soort   (X = exact of V = vervangend of E = Escapeteken)#            F     = Formaat (H = Hexadecimaal of A = Alfanumeriek)#            Teken = Teken volgens tekenset#ade #Cod S F Teken      Omschrijving#--- - - ---------- ----------------------------00E9 X H C3A9 LATIN SMALL LETTER E WITH ACUTE The 5.1.6 program showes the 'ë' as two bytes and translated it to 'e' Now 5.1.12 program, noting changed in program code, see it as

COBCH0348 : Procedure name 96_SQLERROR undeclared, line 832 (first usage) . Several errors are coming during compilation in Visual Cobol 2.3. Same was working with Visual Studio Net Express. Please help Thanks  Ramesh

Can anyone point me to FAQ or Best Practices links for Visual Cobol 2.3. We're embarking on a MF -> PC migration and we are NOT using the enterprise software, so no CICS, JCL,... support I'm specifically interested in how people are implementing replacement functionality for concepts such as the CICS COMMAREA.  Thanks

I looked around for a post but didn't see, so here goes.  We're using Acucobol 9.5 with Vision version 4 files.  We have Crystal Reports 10, can upgrade if necessary.  New to Crystal Reports.  How can I make Crystal Reports read and report on Vision ver 4 files?  I've tried creating .xfd files, but its not clear to me next steps.  Thanks for any input. #CrystalReports#VisionFiles

hi, does anyone know how to convert VB code below in to cobol? ChrW(&HF0A0) where ChrW =  https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.strings.chrw(v=vs.110).aspx and &HF0A0 =  https://msdn.microsoft.com/en-gb/library/ms819564.aspx Thanks in advance. Kind regards Neil.

I'm trying to emails validation so 01 wValido condition-value. ...... move "mmsis@mmsis.com.br" to Lnk-Processo2 declare strModel as type System.Text.RegularExpressions.Regex = new System.Text.RegularExpressions.Regex("/^[a-zA-Z0-9.!#$%&'* /=?^_`{|}~-] @[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(?:\\.[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)*$/") set wValido to strModel::IsMatch(Lnk-Processo2) But I can not, to do it.Thank youTranslated by Google Eu estou tentando fazer a validação de e-mails assim 01 wValido condition-value. ..... move "mmsis@mmsis.com.br" to Lnk-Processo2 declare strModel as type System.Text.RegularExpressions.Regex = new System.Text.RegularExpressions.Regex("/^[a-zA-Z0-9.!#$%&'* /=?^_`{|}~-] @[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(?:\\.[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)*$/") set wValido to strModel::IsMatch(Lnk-Processo2) Mas não estou conseguindo, com

Hi,  In MF COBOL Unix Environment , we used Call SYSTEM to execute Unix Commands from COBOL program.( Mostly used to move files ) In Visual COBOL on Windows ( Oracle DataBase and Powershell scripts ) , how will i execute above commands by using Call SYSTEM. string 'move ' delimited by size 'D:\\DataFiles\\*'  delimited by size 'D:\\OutDataFiles' delimited by size X"00" delimited by size            into WS-SHELL-CMD end-string. call 'system' using WS-SHELL-CMD. We will be using Windows command prompt commands to execute instead of Unix commands ? Please advise if there is something incorrect or missing.

[Migrated content. Thread originally posted on 01 June 2012]Is there a way to specify, maybe through an environment variable or something, the entire path to a file so that a SELECT statement can be defined in mainframe style?Like SELECT VIT-IN-FILE ASSIGN TO VITFLIN.instead of SELECT VIT-IN-FILE ASSIGN TO "C:\\Development Projects\\TestFiles\\VITFLIN.dat".

Does anyone know of any restrictions or issues with using Report Writer in managed COBOL? Does anyone have any experience with Report Writer in managed COBOL? We've converted a number of our "batch" COBOL programs to managed code with success, but this is the first one that uses Report Writer and an exception is being thrown at the C# call to COBOL class (within a rununit) that reminds me of Net Express errors I saw YEARS ago when a compiler bug created bad references that wouldn't link. The exception is "Method not found: 'Void COBOLPrograms.WYE39P._MF_IMPLICIT_1()'". We are running VC 2.3.1 for VS 2013 Update 5. COBOLPrograms is the COBOL class library targeting .NET Framework 4.5 with Debug/Any CPU configuration. WYE39P is the converted COBOL program (public) with only the Linkage Section and Procedure Division code residing in the single Method-ID named InstanceMethod. We aren't getting any compile errors. And we haven't run it fr

Hi , I have the following code in cobol program: MOVE 1    TO SP-P-MEMBER-NO EXEC SQL call SP-GET-MEMBER-EMAIL(:SP-P-MEMBER-NO IN , :SP-O-EMAIL-ADDRESS OUT ) END-EXEC. And below is my stored procedure : CREATE OR REPLACE PROCEDURE SP_GET_MEMBER_EMAIL( p_memberNo in NUMBER ,o_emailAddress out VARCHAR2)asbegin select email_addr into o_emailAddress from MEMBER_INFO where member_no = p_memberNo;END SP_GET_MEMBER_EMAIL; When i call  the stored procedure from the cobol program , i get the following sql state and sql code SQLSTATE 37000  SQLCODE -0000010000 SQLERRMC Syntax error or access violation. I have configured SQL Directive DBMAN=ODBC The other scenario is where i dont use the Call statement to invoke th stored proc , i use the pro cobol syntax EXEC SQL EXECUTE  BEGIN SP_GET_MEMBER_EMAIL  (:SP-P-MEMBER-NO ,:SP-O-EMAIL-ADDRESS); END; END-EXEC. In this case system gives error to Add PROCOB directive, when i add it then the Select queries fail. Pl

Hi ,  In Embedded SQL we could write a Join SQL query and get the desired results from two or more table in one go. But in ADO.Net , we create a dataset for two table and define a relation between them. And get the desired rows by using Parent and Children Relation in the Cursors. So i am writing two querys in case where i could fetch records using One single query. Do we have any other way where i can implement Join query in simpler way in Visual COBOL ADO.Net. Regards, Zoeb