000100 IDENTIFICATION DIVISION. 000200 POST-ID. P0000004. 000300 POST-TITLE. HAVARD GETTING CLOSER. 000400 PUBLISHED-DATE. 2024052314340000. 000500 CONTENT DIVISION. 000600 THIS IS ACTUALLY A PRETTY DECENT EXERCISE THAT HAS TAUIGHT ME QUITE 000700 A BIT OF WHAT I NEED TO KNOW TO ACTUALLY USE GNU COBOL TO PERFORM 000800 SOMETHING USEFUL. 000900 001000 STOP POST. 000100 IDENTIFICATION DIVISION. 000200 POST-ID. P0000003. 000300 POST-TITLE. THE IDEA WILL WORK. 000400 PUBLISHED-DATE. 202405222333. 000500 CONTENT DIVISION. 000600*FILE-CONTROL. 000700* SELECT DumbFile ASSIGN USING BINGUS 000800* ORGANIZATION IS SEQUENTIAL 000900* FILE STATUS IS FileStatusThing. 001000 THE DIFFERENCE BETWEEN ASSIGN TO and ASSIGN USING 001100 IS THAT TO MEANS YOU INTERPRET THE IDENTIFIER AS A LITERAL 001200 EVEN IF IT ISN'T A QUOTED STRING WHILE USING MEANS YOU WANT 001300 TO TREAT IT AS A VARIABLE. THIS DID NOT SEEM OBVIOUS BASED ON THE 001400 VARIOUS GUIDES I HAD, THOUGH I THINK IT'S MORE OF AN ISSUE WITH 001500 THE FACT THAT COBOL HAS A COMPLETELY DIFFERENT VOCABULARY. 001600* 001700 STOP POST. 000100 IDENTIFICATION DIVISION. 000200 POST-ID. P0000002. 000300 POST-TITLE. I THINK I HAVE AN IDEA FOR THIS. 000400 PUBLISHED-DATE. 052224201631. 000500 CONTENT DIVISION. 000600 PREVIEW SECTION. 000700 SHOULD PROBABLY MAKE THIS ACTUALLY GENERATED BY COBOL. 000800 IT ISN'T YET, BUT I THINK THE GENERAL IDEA IS THAT IT 000900 WILL SORT OF WORK LIKE A BLOG. EACH POST WILL BE ITS OWN 001000 LITTLE BLOCK. BUT THIS WILL JUST BE THE BLURB. TO READ 001100 THE FULL POST YOU WILL NEED TO FOLLOW A LINK... 001200 001300 CALL "READ-MORE" USING POST-ID 001400 001500 STOP POST. 000100 IDENTIFICATION DIVISION. 000150 POST-ID. P0000001. 000200 POST-TITLE. NEW WEB SITE ALERT. 000300 PUBLISHED-DATE. 052224193700. 000400 POST-CATEGORY. SITE-META. 000500 CONTENT DIVISION. 000600 WELL, IT LOOKS LIKE I HAVE A NEW DOMAIN. I CAN'T BELIEVE 000700 THAT NOBODY IN THE HISTORY OF COMPUTING HAS STATED 000750 000800 *** "COMMON BUSINESS ORIENTED LAUGHING OUT LOUD" *** 000850 000900 OR AT LEAST BOTHERED TO TURN IT INTO AN INTERNET WEB SITE. 001000 IT WAS RIGHT THERE FOR SIXTY-FIVE YEARS. 001100 001200 STOP POST.
$Id: index.html,v 1.3 2024/06/21 06:56:54 jhavard Exp $