Activity for Randall Nagy
-
Randall Nagy posted a comment on discussion Help getting started
Also: If support for one reservered is A.W.O.L, one wonders how many more ... ? Anyone keeping a list they'd like to share?
-
This was fun, too: > Generative: 'create a callable procedure designed to determine if a string > is part of another in GNU COBOL without using the CONTAINS reserved word. *> Include parameters into the linkage section.' IDENTIFICATION DIVISION. PROGRAM-ID. SubstringCheck. DATA DIVISION. WORKING-STORAGE SECTION. 01 ws-main-string PIC X(100). 01 ws-search-string PIC X(20). 01 ws-found-flag PIC X VALUE 'N'. LINKAGE SECTION. 01 main-string PIC X(100). 01 search-string PIC X(20). 01 found-flag PIC X....
-
Thanks. Survey said: > Generative: 'how to determine if a string is part of another in GNU COBOL > without using the CONTAINS reserved word.' IDENTIFICATION DIVISION. PROGRAM-ID. SubstringCheck. DATA DIVISION. WORKING-STORAGE SECTION. 01 main-string PIC X(100) VALUE 'GNU COBOL is great for learning COBOL programming.'. 01 search-string PIC X(20) VALUE 'COBOL'. 01 search-length PIC 9(02). 01 main-length PIC 9(03). 01 found-flag PIC X VALUE 'N'. 01 remaining-string PIC X(100). PROCEDURE DIVISION. MAIN-PROCEDURE....
-
Whilist cobc --list-reservedlist CONTAINS as supported, and VsCode does as well, we're at a loss as how to use it. Copilot, too: Search-By-Author. OPEN INPUT QuoteFile DISPLAY "Enter Author to search: " ACCEPT SearchAuthor PERFORM UNTIL AT-EOF READ QuoteFile INTO QuoteRecord AT END MOVE 1 TO WS-EOF NOT AT END IF QuoteAuthor CONTAINS SearchAuthor DISPLAY "ID: " QuoteID DISPLAY "Author: " QuoteAuthor DISPLAY "Quote: " QuoteText DISPLAY "" END-IF END-READ END-PERFORM CLOSE QuoteFile. Any ideas on how...
-
Whilist cobc --list-reservedlist CONTAINS as supported, and VsCode does as well, we're at a loss as how to use it. Copilot, too: Search-By-Author. OPEN INPUT QuoteFile DISPLAY "Enter Author to search: " ACCEPT SearchAuthor PERFORM UNTIL AT-EOF READ QuoteFile INTO QuoteRecord AT END MOVE 1 TO WS-EOF NOT AT END IF QuoteAuthor **CONTAINS** SearchAuthor DISPLAY "ID: " QuoteID DISPLAY "Author: " QuoteAuthor DISPLAY "Quote: " QuoteText DISPLAY "" END-IF END-READ END-PERFORM CLOSE QuoteFile. Any ideas on...
-
Using an older Ubuntu VM I archived awhile back solved the problem: /media/sf_d_drive/cob$ cobc -xv -free EX_SORT_FILE_CHARS2.cob cobc (GnuCOBOL) 2.2.0 Built Jul 17 2018 20:29:40 Packaged Sep 06 2017 18:48:43 UTC C version "8.1.0" loading standard configuration file 'default.conf' command line: cobc -xv -free EX_SORT_FILE_CHARS2.cob preprocessing: EX_SORT_FILE_CHARS2.cob -> /tmp/cob2107_0.cob return status: 0 parsing: /tmp/cob2107_0.cob (EX_SORT_FILE_CHARS2.cob) return status: 0 translating: /tmp/cob2107_0.cob...
-
Using an older Ubuntu solved the problem: /media/sf_d_drive/cob$ cobc -xv -free EX_SORT_FILE_CHARS2.cob cobc (GnuCOBOL) 2.2.0 Built Jul 17 2018 20:29:40 Packaged Sep 06 2017 18:48:43 UTC C version "8.1.0" loading standard configuration file 'default.conf' command line: cobc -xv -free EX_SORT_FILE_CHARS2.cob preprocessing: EX_SORT_FILE_CHARS2.cob -> /tmp/cob2107_0.cob return status: 0 parsing: /tmp/cob2107_0.cob (EX_SORT_FILE_CHARS2.cob) return status: 0 translating: /tmp/cob2107_0.cob -> /tmp/cob2107_0.c...
-
Using a Ubuntu solved the problem: /media/sf_d_drive/cob$ cobc -xv -free EX_SORT_FILE_CHARS2.cob cobc (GnuCOBOL) 2.2.0 Built Jul 17 2018 20:29:40 Packaged Sep 06 2017 18:48:43 UTC C version "8.1.0" loading standard configuration file 'default.conf' command line: cobc -xv -free EX_SORT_FILE_CHARS2.cob preprocessing: EX_SORT_FILE_CHARS2.cob -> /tmp/cob2107_0.cob return status: 0 parsing: /tmp/cob2107_0.cob (EX_SORT_FILE_CHARS2.cob) return status: 0 translating: /tmp/cob2107_0.cob -> /tmp/cob2107_0.c...
-
Installed: sudo apt-get install gcc make perl sudo apt-get install gnucobol3 Diag: cobc -xv -free EX_SORT_FILE_CHARS2.cob cobc (GnuCOBOL) 3.1.2.0 Built Apr 14 2024 07:59:15 Packaged Dec 23 2020 12:04:58 UTC C version "13.2.0" loading standard configuration file 'default.conf' command line: cobc -xv -free EX_SORT_FILE_CHARS2.cob preprocessing: EX_SORT_FILE_CHARS2.cob -> /tmp/cob3250_0.cob return status: 0 parsing: /tmp/cob3250_0.cob (EX_SORT_FILE_CHARS2.cob) return status: 0 translating: /tmp/cob3250_0.cob...
-
Works well now - thank you! p.s. Any idea what is meant by either / any: "<command-line>: warning: "_FORTIFY_SOURCE" redefined <command-line>: note: this is the location of the previous definition"</command-line></command-line> ?
-
The file exists, has been read, but is unable to be sorted hereby. Any ideas? (& thanks!) > Mission: EXTERNAL FILE SORTING. > Demonstrate "FILE CHAR SORT" (EXTERNAL) > cobc -x -j -free EX_SORT_FILE_CHARS2.cob > STATUS: error: invalid SORT filename IDENTIFICATION DIVISION. PROGRAM-ID. EX_SORT_FILE_CHARS2. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. > THE-CHARS.SDF = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ\n' > od -a THE-CHARS.SDF > 0000000 A B C D E F G H I J K L M N O P > 0000020 Q R S T U V W...
-
Thanks - hereis (Note RASTER_SUCCESS_CODE = 42 in the below - also change the > back to = on #65 to clear the MOVE overflow you saw.): cobc -x -j -free --debug BANNER_EXAMPLE7.cob Call Received. [42////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////AB.CD.EF]...
-
Thanks - hereis (Note RASTER_SUCCESS_CODE = 42 in the below - also change the > back to = on #65 to clear the MOVE overflow you saw.): cobc -x -j -free --debug BANNER_EXAMPLE7.cob Call Received. [42////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////AB.CD.EF]...
-
Thanks - hereis (Note RASTER_SUCCESS_CODE = 42 in the below - also change the > back to = on #65 to clear the MOVE overflow you saw.): cobc -x -j -free --debug BANNER_EXAMPLE7.cob Call Received. [42////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////AB.CD.EF]...
-
Thanks - hereis (Note RASTER_SUCCESS_CODE = 42 in the below - also change the > back to = on #65 to clear the MOVE overflow you saw.): cobc -x -j -free --debug BANNER_EXAMPLE7.cob Call Received. [42////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////AB.CD.EF]...
-
Thanks - hereis (Note RASTER_SUCCESS_CODE = 42 in the below - also change the > back to = on #65 to clear the MOVE overflow you saw.): cobc -x -j -free --debug BANNER_EXAMPLE7.cob Call Received. [42////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////AB.CD.EF]...
-
Thanks - hereis (Note RASTER_SUCCESS_CODE = 42 in the below - also change the > back to = to clear the MOVE overflow you motioned.): cobc -x -j -free --debug BANNER_EXAMPLE7.cob Call Received. [42////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////AB.CD.EF]...
-
Thanks - hereis (Note RASTER_SUCCESS_CODE = 42 in the below): cobc -x -j -free --debug BANNER_EXAMPLE7.cob Call Received. [42////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////AB.CD.EF]...
-
Able to pass-to & read-from, yet unable to update a LINKAGE SECTION item with the results. Is this to standard, or is it a me-thing? SIGSEGV https://github.com/soft9000/COBOL/blob/main/TheCommons/BANNER/PROC_BANNER7.cob#L53
-
Able to pass-to & read-from, yet unable to update a LINKAGE SECTION item with the results. Is the to standard, or is it a me-thing? SIGSEGV https://github.com/soft9000/COBOL/blob/main/TheCommons/BANNER/PROC_BANNER7.cob#L53
-
The problem was due to my "A" records - as managed by my ISP. Forwards to a dotted quad + folder name, rather than the classic URL. Yikes.
-
Unable To Edit BLog Entry
-
Fixing contact_cgi.php
-
-
-
Fiark - Removed random "null pointer" message.
-
Fiarn - Removed random "null pointer" message.
-
Fiark updated
-
Fiark: Updated to include better support for Microsoft Windows. Use latest archive...
-
Fiark
-
AboutTime - Updated
-
AboutTime - Updated
1
