Activity for Jason

  • Jason Jason posted a comment on discussion Help getting started

    HI. I have a user testing COBOL program and upon execution they are getting an error because the runtime cannot find the file libcob.4.dynlib. See attached screenshot. Can anyone advise. I don't have access to his Mac so i'll need to troubleshoot remotly so any guidance will be great. Thank you!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Yeah, i'm OK with the space. Once I've removed the "/" I append some more text to the URL. In fact i'm running a Python script from COBOL, the script uses a URL as an input, then I redirect the output of the script to a file, that the COBOL program picks up and processes. So the final thing looks a little like: myPythonScript.py https://www.example.com/robots.txt >> temp.file I call that using SYSTEM. The URLs come from a supplied text file, sometimes they end in "/" and sometimes not. So I parse...

  • Jason Jason posted a comment on discussion GnuCOBOL

    RESOLVED. So I removed the https://www. using SUBSTITUTE then replaced all remaining "/" with spaces, again using SUBSTITUTE.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Good point. My bad. The string is a URL so it contains multiple /'s https://www.example.com/ I should have mentioned that.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hi folks, I can't figure this one out. As the title suggests. I have a string, if the last character of the string is a "/" then I want to remove it. Can anyone suggest how I can do this? Many thanks for any help and advice.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Eugenio ! That worked.

  • Jason Jason posted a comment on discussion GnuCOBOL

    I have a pic 9(9) and I don't want to see a prompt of 000000000 on ACCEPT. How can I change that?

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Simon, i'll give those ideas a go.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, I have an ACCEPT of a PIC X(1) field, I don't want the cursor to be displayed when the user is promoted to respond to the ACCEPT statement. How can I do that?

  • Jason Jason posted a comment on discussion GnuCOBOL

    the what now? I didn't know about CBL_CHECK_FILE_EXIST. Thank you!

  • Jason Jason posted a comment on discussion GnuCOBOL

    In my code I’m doing the following to identify is a file exists (on a Mac) IF OS-IDENTIFIED = "MACOS" MOVE "ls /usr/local/bin/chromedriver > bot.check" TO SYSTEM-COMMAND END-IF. ... ... CALL "SYSTEM" USING SYSTEM-COMMAND. Then I read the bot.check file to determine if the file chromedriver was found. This works fine. But when I exit the program (back to the OS) I see the error message resulting from the ls command when the file was not found: ls: /usr/local/bin/chromedriver: No such file or directory...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Simon. Concerning COB_EXIT_WAIT. As the message is 'any key', I kinda expected that I could press any key :) but if I understand it's exception keys only. Anyway thanks to COB_EXIT_MSG I can tune the message accordingly.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello folks, i've been away on vacation :) Have to say it's amazing what you guys have done and super impressive that this discussion has been going for quite some time! What a super community!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello folks, Two Questions: In my program I use SET ENVIRONMENT "COB_EXIT_WAIT" TO "1". Upon exiting the program I get the prompt End of Program, press a key to exit. The program only terminates when I press Enter or Escape, any other key does not have any effect. Any ideas? How can I change that exit message? Thank you!! PS if it makes any difference I also set: SET ENVIRONMENT "COB_SCREEN_ESC" TO "1". SET ENVIRONMENT "COB_SCREEN_EXCEPTIONS" TO "1".

  • Jason Jason posted a comment on discussion GnuCOBOL

    hello michael yes ive been using IFALIGN on both legacy cofe and on some new code ive written in the last year or two. its worked perfectly for me. as we all know beautiful code is more important than working code :) ... of course thats a joke, but IFALIGN certanly made my coding and debugging easier. i can't thank you enough. I wrote some code just last week and ended up having to deploy IFALIGN too! I can't believe how much great discussion and action my question has resulted in. This little community...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Michael, I tried COBOLSEQ today (apologies for the delay work and family have been taking my time of late. It seemed to work to a point. Then I get these errors: ERROR 5001 Name too long on line number=5009 500900 IF KEY-GROUP-SAVED-STAGING(GROUP-INDEX) NOT = SPACES ERROR 5001 Name too long on line number=5010 501000 MOVE KEY-GROUP-SAVED-STAGING(GROUP-INDEX) TO ERROR 5001 Name too long on line number=5011 501100 GROUP-KEYS-INSTANCE(GROUP-INDEX) ERROR 5001 Name too long on line number=5022 502200...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello Michael, See my note re COBOLSEQ below. My personal preference is to use A01-PARA1, A01-PARA2, B01-PARA1 and so on as my paragraph naming convention. I then put the different types of functionality in each paragraph type, i.e. I might put common use sections for data manipulation in A01, display of screens in B01, general purpose code in C01 etc.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Got it. Thank you. In that case maybe a switch to prevent the user having to press a key each time the error is displayed would help. The test program I am using to test COBOLSEQ is 15K lines and have 100s of these :)

  • Jason Jason posted a comment on discussion GnuCOBOL

    Good Day Arnold! I just tried beautify. One issue: I got the message: BEAUTIFY-9999 TABLE OF PROGRAM LINES EXCEEDED. I checked the code and it seems 300-MAXIMUM-PL is +10,000. My test program has 15k lines. I increased that and got: bus error (signal SIGBUS) libcob: warning: implicit CLOSE of SYS201-PRINT-FILE (‘output.cob') libcob: warning: implicit CLOSE of SYS001-COBOL-FILE (‘input.cob')

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello Arnold, Thank you. I updated that and tested on a program of 15k lines. Before Beautify my program was 14,829 lines, now its 16,991 lines (+2,162). I’m feeling very productive today :) Comments. You place all comments in asterisk boxes. I can certainly see why you do that. For me it’s not too helpful because I manually include comment in asterisk boxes at the start of each paragraph in order to advise what that paragraph is used for. I also have other comments in the code. If Beautify adds...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Perhaps a long shot but is anyone aware of a program that is used to beautify COBOL source code? I have some source that's difficult to read because it's all over the place with mis aligned IF/END-IF statement etc. Many thanks!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Arnold, i'll take a look. If it requires significant changes to work on GNUcobol, I may not have the time for that. But thanks!

  • Jason Jason posted a comment on discussion GnuCOBOL

    I also did this and got a clean compile. When I tested the program it ran but the output was somewhat messed up. As in it seems that a number of the code lines were concatenated with the following line. After a clean compile i'm sure this is pretty close to working but sadly I don'y have the time at the moment to debug.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thanks Michael, that could also help. Will take a look. Cheers!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Any chance I can get a copy of this now that's it's working with GNUCobol. I'd love to test it out. :)

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hi Michael, not yet sadly. Just not the time at the moment, will attempt to have a look this week.

  • Jason Jason posted a comment on discussion GnuCOBOL

    This is great Michael, thank you, i've just used it and IFALIGN seems to have worked fine on a 15k line program i've been working on. Complies clean too :) What a great community here!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hi Michael. It does seem to work fine and I still get a clean compile! :) Thank you. I do see a bunch of these however: ERROR 1031 Procedure name exceeds 31 characters EXIT-B01-PREPROCESS-SITEURLS-FILE. Any specific reason for limiting paragraph names to 31 chars?

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hi Michael thank you ill take a look later this week. Im very happy to see how folls have responded to my humble question, the work you, Michael, Vincent and Arnold have done is nothing short of amazing thank you all.

  • Jason Jason posted a comment on discussion GnuCOBOL

    well i learned something today. Thank you Vincent.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, I’d like to write a tool to convert COBOL source code to/from upper/lower case, would that be of any use to anyone? In short, any text not included in quotes will be converted to the chosen case. Assumptions: I’d assume a maximum charter length for each line (what should that be?) … that’s pretty much it, anything else I need to think of?

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, A contribution from me. Here is v.1 of upperlower. It’s a small tool I wrote used to convert COBOL source code from upper to lower or lower to upper case. Disclaimers first folks. I know that all of you are VERY skilled and experienced COBOL programmers. I know enough to be dangerous :) I’m certain that my code probably breaks all of your rules and regulations. Apologies for that. Having said that, it seems to work. Any feedback and flames welcome. See the comments in the source for usage...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Simon.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Michael, i'll also check out case conversion in COBOLSEQ. I did enjoy writing my upperlower tool, so nothing lost :) Thank you! EDIT: and when I say 'enjoy', i'm currently enjoying a chilled Rosé, in the garden, in Burgundy, France.... writing COBOL code. So all's good :) - attached

  • Jason Jason posted a comment on discussion GnuCOBOL

    BTW I assumed that uppercase is generally the preference. I see plenty of HTML, JS and Python in my day job so I thought i'd try and go lower case for my COBOL programming.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Good-day Michael, I've never really thought about the IF indentation. If I were to guess, I do it because I tend to use quite long variables names, if I only have 73 characters for each line, i'm gonna use that pretty quickly. Thank you for you comments sir!

  • Jason Jason posted a comment on discussion GnuCOBOL

    I'm keen to know when the next meetup will be.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Good-day Michael, I've never really thought about the IF indentation. If I were to guess, I do it because I tend to use quite long variables names, if I only have 73 characters for each line, i'm gonna use that pretty quickly. Thank you for you comments sir!

  • Jason Jason modified a comment on discussion GnuCOBOL

    Michael, i'll also check out case conversion in COBOLSEQ. I did enjoy writing my upperlower tool, so nothing lost :) Thank you! EDIT: and when I say 'enjoy', i'm currently enjoying a chilled Rosé, in the garden, in Burgundy, France.... writing COBOL code. So all's good :) - attached

  • Jason Jason posted a comment on discussion GnuCOBOL

    BTW I assumed that uppercase is generally the preference. I see plenty of HTML, JS and Python in my day job so I thought i'd try and go lower case for my COBOL programming.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Michael, i'll also check out case conversion in COBOLSEQ. I did enjoy writing my upperlower tool, so nothing lost :) Thank you!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Simon.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, A contribution from me. Here is v.1 of upperlower. It’s a small tool I wrote used to convert COBOL source code from upper to lower or lower to upper case. Disclaimers first folks. I know that all of you are VERY skilled and experienced COBOL programmers. I know enough to be dangerous :) I’m certain that my code probably breaks all of your rules and regulations. Apologies for that. Having said that, it seems to work. Any feedback and flames welcome. See the comments in the source for usage...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, I’d like to write a tool to convert COBOL source code to/from upper/lower case, would that be of any use to anyone? In short, any text not included in quotes will be converted to the chosen case. Assumptions: I’d assume a maximum charter length for each line (what should that be?) … that’s pretty much it, anything else I need to think of?

  • Jason Jason posted a comment on discussion GnuCOBOL

    well i learned something today. Thank you Vincent.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hi Michael thank you ill take a look later this week. Im very happy to see how folls have responded to my humble question, the work you, Michael, Vincent and Arnold have done is nothing short of amazing thank you all.

  • Jason Jason modified a comment on discussion GnuCOBOL

    Hi Michael. It does seem to work fine and I still get a clean compile! :) Thank you. I do see a bunch of these however: ERROR 1031 Procedure name exceeds 31 characters EXIT-B01-PREPROCESS-SITEURLS-FILE. Any specific reason for limiting paragraph names to 31 chars?

  • Jason Jason modified a comment on discussion GnuCOBOL

    Hi Michael. It does seem to work fine and I still get a clean compile! :) Thank you. I do see a bunch of these however: ERROR 1031 Procedure name exceeds 31 characters EXIT-B01-PREPROCESS-SITEURLS-FILE. Any specific reason for limiting paragraph names to 31 chars? On Mon, 11 Jul 2022 at 01:25, Michael F Gleason mustangmichael@users.sourceforge.net wrote: flaneur7508 Attached is version 1.3 of IFALIGN.COB. It has a fix or two to IF alignment. The big difference is I have added alignment for INLINE...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hi Michael. It does seem to work fine and I still get a clean compile! :) Thank you. I do see a bunch of these however: ERROR 1031 Procedure name exceeds 31 characters EXIT-B01-PREPROCESS-SITEURLS-FILE. Any specific reason for limiting paragraph names to 31 chars? On Mon, 11 Jul 2022 at 01:25, Michael F Gleason mustangmichael@users.sourceforge.net wrote: flaneur7508 Attached is version 1.3 of IFALIGN.COB. It has a fix or two to IF alignment. The big difference is I have added alignment for INLINE...

  • Jason Jason modified a comment on discussion GnuCOBOL

    Hello Arnold, Thank you. I updated that and tested on a program of 15k lines. Before Beautify my program was 14,829 lines, now its 16,991 lines (+2,162). I’m feeling very productive today :) Comments. You place all comments in asterisk boxes. I can certainly see why you do that. For me it’s not too helpful because I manually include comment in asterisk boxes at the start of each paragraph in order to advise what that paragraph is used for. I also have other comments in the code. If Beautify adds...

  • Jason Jason modified a comment on discussion GnuCOBOL

    Hello Arnold, Thank you. I updated that and tested on a program of 15k lines. Before Beautify my program was 14,829 lines, now its 16,991 lines (+2,162). I’m feeling very productive today :) Comments. You place all comments in asterisk boxes. I can certainly see why you do that. For me it’s not too helpful because I manually include comment in asterisk boxes at the start of each paragraph in order to advise what that paragraph is used for. I also have other comments in the code. If Beautify adds...

  • Jason Jason modified a comment on discussion GnuCOBOL

    Hello Arnold, Thank you. I updated that and tested on a program of 15k lines. Before Beautify my program was 14,829 lines, now its 16,991 lines (+2,162). I’m feeling very productive today :) 1. Comments. You place all comments in asterisk boxes. I can certainly see why you do that. For me it’s not too helpful because I manually include comment in asterisk boxes at the start of each paragraph in order to advise what that paragraph is used for. I also have other comments in the code. If Beautify adds...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello Arnold, Thank you. I updated that and tested on a program of 15k lines. Before Beautify my program was 14,829 lines, now its 16,991 lines (+2,162). I’m feeling very productive today :) 1. Comments. You place all comments in asterisk boxes. I can certainly see why you do that. For me it’s not too helpful because I manually include comment in asterisk boxes at the start of each paragraph in order to advise what that paragraph is used for. I also have other comments in the code. If Beautify adds...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Good Day Arnold! I just tried beautify. One issue: I got the message: BEAUTIFY-9999 TABLE OF PROGRAM LINES EXCEEDED. I checked the code and it seems 300-MAXIMUM-PL is +10,000. My test program has 15k lines. I increased that and got: bus error (signal SIGBUS) libcob: warning: implicit CLOSE of SYS201-PRINT-FILE (‘output.cob') libcob: warning: implicit CLOSE of SYS001-COBOL-FILE (‘input.cob')

  • Jason Jason posted a comment on discussion GnuCOBOL

    Yes, sometimes i'm just too lazy :) I do of course see your point.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thanks Brian, that does the trick! Cheers!

  • Jason Jason modified a comment on discussion GnuCOBOL

    hello, I suspect this is more a Windows question than a GNUCobol question so apologies in advance if that's an issue. I want to open a file created by my COBOL program in an editor on Windows. I use this code: IF INPUT-KEY = "O" IF OS-IDENTIFIED = "WIN32" CALL "SYSTEM" USING "notepad file1" CALL "SYSTEM" USING "notepad file2" END-IF END-IF When this code is invoked "file1" is indeed loaded in Notepad. But in order to see 'file2" I have to close the file1 Notepad, then Notepad containing file2 is...

  • Jason Jason posted a comment on discussion GnuCOBOL

    hello, I suspect this is more a Windows question than a GNUCobol question so apologies in advance if that's an issue. I want to open a file created by my COBOL program in an editor on Windows. I use this code: ~~~ * OPEN THE SUMMARY REPORT ON WIN32 IF INPUT-KEY = "O" IF OS-IDENTIFIED = "WIN32" CALL "SYSTEM" USING "notepad file1" CALL "SYSTEM" USING "notepad file2" END-IF END-IF ~~~ When this code is invoked "file1" is indeed loaded in Notepad. But in order to see 'file2" I have to close the file1...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Got it. Thank you. In that case maybe a switch to prevent the user having to press a key each time the error is displayed would help. The test program I am using to test COBOLSEQ is 15K lines and have 100s of these :)

  • Jason Jason modified a comment on discussion GnuCOBOL

    Michael, I tried COBOLSEQ today (apologies for the delay work and family have been taking my time of late. It seemed to work to a point. Then I get these errors: ERROR 5001 Name too long on line number=5009 500900 IF KEY-GROUP-SAVED-STAGING(GROUP-INDEX) NOT = SPACES ERROR 5001 Name too long on line number=5010 501000 MOVE KEY-GROUP-SAVED-STAGING(GROUP-INDEX) TO ERROR 5001 Name too long on line number=5011 501100 GROUP-KEYS-INSTANCE(GROUP-INDEX) ERROR 5001 Name too long on line number=5022 502200...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello Michael, See my note re COBOLSEQ below. My personal preference is to use A01-PARA1, A01-PARA2, B01-PARA1 and so on as my paragraph naming convention. I then put the different types of functionality in each paragraph type, i.e. I might put common use sections for data manipulation in A01, display of screens in B01, general purpose code in C01 etc.

  • Jason Jason modified a comment on discussion GnuCOBOL

    Michael, I tried COBOLSEQ today (apologies for the delay work and family have been taking my time of late. It seemed to work to a point. Then I get these errors: ERROR 5001 Name too long on line number=5009 500900 IF KEY-GROUP-SAVED-STAGING(GROUP-INDEX) NOT = SPACES ERROR 5001 Name too long on line number=5010 501000 MOVE KEY-GROUP-SAVED-STAGING(GROUP-INDEX) TO ERROR 5001 Name too long on line number=5011 501100 GROUP-KEYS-INSTANCE(GROUP-INDEX) ERROR 5001 Name too long on line number=5022 502200...

  • Jason Jason modified a comment on discussion GnuCOBOL

    Michael, I trued COBOLSEQ today (apologies for the delay work and family have been taking my time of late. It seemed to work to a point. Then I get these errors: ERROR 5001 Name too long on line number=5009 500900 IF KEY-GROUP-SAVED-STAGING(GROUP-INDEX) NOT = SPACES ERROR 5001 Name too long on line number=5010 501000 MOVE KEY-GROUP-SAVED-STAGING(GROUP-INDEX) TO ERROR 5001 Name too long on line number=5011 501100 GROUP-KEYS-INSTANCE(GROUP-INDEX) ERROR 5001 Name too long on line number=5022 502200...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Michael, I trued COBOLSEQ today (apologies for the delay work and family have been taking my time of late. It seemed to work to a point. Then I get these errors: ERROR 5001 Name too long on line number=5009 500900 IF KEY-GROUP-SAVED-STAGING(GROUP-INDEX) NOT = SPACES ERROR 5001 Name too long on line number=5010 501000 MOVE KEY-GROUP-SAVED-STAGING(GROUP-INDEX) TO ERROR 5001 Name too long on line number=5011 501100 GROUP-KEYS-INSTANCE(GROUP-INDEX) ERROR 5001 Name too long on line number=5022 502200...

  • Jason Jason posted a comment on discussion GnuCOBOL

    hello michael yes ive been using IFALIGN on both legacy cofe and on some new code ive written in the last year or two. its worked perfectly for me. as we all know beautiful code is more important than working code :) ... of course thats a joke, but IFALIGN certanly made my coding and debugging easier. i can't thank you enough. I wrote some code just last week and ended up having to deploy IFALIGN too! I can't believe how much great discussion and action my question has resulted in. This little community...

  • Jason Jason posted a comment on discussion GnuCOBOL

    This is great Michael, thank you, i've just used it and IFALIGN seems to have worked fine on a 15k line program i've been working on. Complies clean too :) What a great community here!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hi Michael, not yet sadly. Just not the time at the moment, will attempt to have a look this week.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you! This works fine when I set COB_SCREEN_ESC="yes" and COB_SCREEN_EXCEPTIONS="yes" in my start script. I thought I should be able to set the environment variables using call "SYSTEM" too, but that does not seem to work for me. Am I mistaken. I'm doing the following: IF OS-IDENTIFIED = "MACOS" MOVE 'export COB_SCREEN_ESC="yes"' TO SYSTEM-COMMAND CALL "SYSTEM" USING SYSTEM-COMMAND MOVE 'COB_SCREEN_EXCEPTIONS="yes"' TO SYSTEM-COMMAND CALL "SYSTEM" USING SYSTEM-COMMAND END-IF.

  • Jason Jason posted a comment on discussion GnuCOBOL

    So how do I do that? Thank you!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Any chance I can get a copy of this now that's it's working with GNUCobol. I'd love to test it out. :)

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thanks Michael, that could also help. Will take a look. Cheers!

  • Jason Jason posted a comment on discussion GnuCOBOL

    I also did this and got a clean compile. When I tested the program it ran but the output was somewhat messed up. As in it seems that a number of the code lines were concatenated with the following line. After a clean compile i'm sure this is pretty close to working but sadly I don'y have the time at the moment to debug.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Arnold, i'll take a look. If it requires significant changes to work on GNUcobol, I may not have the time for that. But thanks!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Perhaps a long shot but is anyone aware of a program that is used to beautify COBOL source code? I have some source that's difficult to read because it's all over the place with mis aligned IF/END-IF statement etc. Many thanks!

  • Jason Jason posted a comment on discussion GnuCOBOL

    As the title suggests. I have a sorted array OCCURS 256 TIMES and I need to remove duplicates so i'm left with only the unique values. Any advise how best to do this? Thank you!

  • Jason Jason modified a comment on discussion GnuCOBOL

    That’s very useful, I thought SORT only works on file sorts. Although my program compiles I have a problem. 01 KEY-GROUP-SAVED-ARRAY. 02 KEY-GROUP-SAVED PIC X(256) OCCURS 100 TIMES. 01 GROUP-INDEX PIC 9(3) VALUE ZERO. The values in KEY-GROUP-SAVED are KEY-GROUP-SAVED(1) = one KEY-GROUP-SAVED(2) = two KEY-GROUP-SAVED(3) = three KEY-GROUP-SAVED(4) = four KEY-GROUP-SAVED(5) = five KEY-GROUP-SAVED(6 to 100) = SPACES ……. DISPLAY KEY-GROUP-SAVED-ARRAY LINE 1 POSITION 1. SORT KEY-GROUP-SAVED ON ASCENDING...

  • Jason Jason posted a comment on discussion GnuCOBOL

    That’s very useful, I thought SORT only works on file sorts. Although my program compiles I have a problem. 01 KEY-GROUP-SAVED-ARRAY. 02 KEY-GROUP-SAVED PIC X(256) OCCURS 100 TIMES. 01 GROUP-INDEX PIC 9(3) VALUE ZERO. The values in KEY-GROUP-SAVED are KEY-GROUP-SAVED(1) = one KEY-GROUP-SAVED(2) = two KEY-GROUP-SAVED(3) = three KEY-GROUP-SAVED(4) = four KEY-GROUP-SAVED(5) = five KEY-GROUP-SAVED(6 to 100) = SPACES ……. DISPLAY KEY-GROUP-SAVED-ARRAY LINE 1 POSITION 1. SORT KEY-GROUP-SAVED ON ASCENDING...

  • Jason Jason modified a comment on discussion GnuCOBOL

    Hello COBOL experts, I have a question i'm sure someone can help me with. I have an array: 01 ARRAY. 05 ARRAY-ITEMS pic x(256) occurs 10 times. How do I go about sorting this array so the items are all in alphabetical order? Any advice greatly appreciated!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello COBOL experts, I have a question i'm sure someone can help me with. I have an array: 01 ARRAY. 05 ARRAY-ITEMS pic x(256) occurs 10 times.** How do I go about sorting this array so the items are all in alphabetical order? Any advice greatly appreciated!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, I have a sequential file with a record that's a pic x(2048). I need to identify the length of the longest record in the file. Any helps would be wonderfully helpful :) Thank you!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, I was wondering what kinds of projects you are all working on with GnuCOBOL. I'll offer mine up. I think it's slightly unusual. I've developed a program that takes a list of URLs from a web site. That list could contain 1000 or millions of URLs. My program processes this list and generates Regular Expression (regex) code which is then copy/pasted in to a SEO tool (Search Engine Optimization - a tool used to help brands improve their performance in web search and drive more paying organic traffic...

  • Jason Jason posted a comment on discussion GnuCOBOL

    Yes that right: PROCEDURE DIVISION CHAINING CHAIN-EXECUTION-MODE CHAIN-PERFORMANCE-MODE CHAIN-PERFORMANCE-INTERVAL. I use this to pass command line arguments to the program in order to excute certain features in the program. I'd rather not use COB_INSERT_MODE because I don't want to mess with env variables. I just want the users to download just the binary and use it.

  • Jason Jason posted a comment on discussion GnuCOBOL

    in fact the program is not being called its a stand alone program , it does accept command line parameteres though.

  • Jason Jason posted a comment on discussion GnuCOBOL

    That would be great but I get the compile error: error: BY VALUE not allowed in CHAINED programs Any workaround to this??

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, I have a screen that has a lot of real time updates, I don't like to see the cursor skipping arround the unterface. If there any way to display but not show the cursor? If it makes any difference the program is running on Mac OSX and Windows. Thanks for any advice!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you Emmad, that's a pretty smart solution! I like your thinking!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you for the suggestions. I'm interested to learn why the COBOL standard for INSPECT included FIRST but not LAST. Anyhoo, it is what is is. Thanks again everyone.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello, Good-day! I'm working with the INSPECT statement today. And I have a question I can't figure out. I have a my_field pic x(256) value "/text/" So we can do this: INSPECT my_field REPLACING FIRST "/" BY " " Which would give me " text/" (with a leading space) But how do I replace the LAST "/" in order to get "/text "? I mistakenly thought there would be a LAST or FINAL directive, but I’m wrong. Any ideas?

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello! I have a problem using the INSPECT statement that I can’t figure out. … INSPECT field_name TALLYING STRING-COUNTER FOR ALL field_string Where field_name is pic x(256) and field_string is x(256) The value of field_name is www.shoes.com/redshoes/size42 The value of field_string is /redshoes/ STRING-COUNTER is always zero. What’s going wrong here?

  • Jason Jason posted a comment on discussion GnuCOBOL

    Super, Thank you!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello folks, So I have: INSPECT MYSTRING-SRT TALLYING STRING-COUNTER FOR ALL """ Which of course does not compile, I want to test if there is a quotation symbol (") in MYSTRING. How can I do that? Thank you!

  • Jason Jason modified a comment on discussion GnuCOBOL

    Thats the one. Thanks Jose!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thanks the one. Thaks Jose!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello folks, i'm back on the COBOL train after a few months of another project. I'm feeling rusty. Please help. I have this entry in a CSV. I want to extract the number 19 and store it as an integer in a file. What's the best way to do this??? https://www.site.com/brands/shoes,19 Thank you for your help! :) Happy to be back in COBOL for a while.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thanks Simon, that was it. The user set up the required env. variables... except for updating the PATH correctly.

  • Jason Jason posted a comment on discussion GnuCOBOL

    Hello I have a user on Windows 10. He just got a new machine with Windows 10 so he reinstalled as per my instructions but gets Unable to find lib cob-4.dll when he tries to run my .exe file. Everything worked fine on his previous windows 10 machine. I've asked him to redownload the install package from Mr. trembley's site and try again. In the meantime , any ideas what's wrong? Many thanks

  • Jason Jason posted a comment on discussion GnuCOBOL

    hello does anyone know of an open source text file viewer written in COBOL (ideally gnuCOBOL obvs) that i can download and use My needs are simple i would like to call the text viewer from a gnuCOBOL program and pass it the file name to view. im really just looking for the ability to page through a text file, a search function would be super but not mandatory. Ive searched arround for such a program but no luck so far. thanks for any tips!

  • Jason Jason posted a comment on discussion GnuCOBOL

    Thank you. Understood. I'm good with v2.2.0 for the time being. It's fine for my needs.

1 >