The Life and Times of Jim |
Hi, there. I'm Jim. Welcome to my phlog! This site was written for Las Vegas, then LouisVille. Now, it seems to be about anywhere. In these phlogs, you'll see a lot of my personal notes and pictures. I like to post my observations here to remember life and celebrate it. I'm not religious. I don't pray for good fortune. I'm ecstatically grateful for the gift of life and I think our time should be remembered and not taken for granted. I'm not a writer. I think pictures tell stories so much better than words. I love just about everything in this life, and, I guess that would have to include you. So, if you've seen me, don't be surprised if your picture is in here somewhere. Of all the critters, people are absolutely the most interesting. |
|
10/04/2010 19:24:32 jim JohnsPass Sunset | Mon |||||||||||||||||||
10/04/2010 19:15:58 jim JohnsPass Town | Mon |||||||||||||||||||
10/04/2010 17:51:44 jim JohnsPass Drawbridge | Mon |||||||||||||||||||
10/04/2010 17:26:50 jim Bubba Gumps | Mon |||||||||||||||||||
10/02/2010 11:38:49 jim Declaratives | Sat |||||||||||||||||||
IDENTIFICATION DIVISION. PROGRAM-ID. FILESTAT. DATA DIVISION. WORKING-STORAGE SECTION. ?SECTION FILE-STAT-MESSAGE 01 FILE-STAT-MESSAGE. 05 FILE-STAT PIC X(02) VALUE "00". 88 VALID-KEY VALUE "00". 05 FILLER PIC X(01) VALUE ":" . 05 FILE-GUARDIAN-ERR PIC 9(04) VALUE 0. 05 FILLER PIC X(01) VALUE " ". 05 FILE-STAT-MSG PIC X(62) VALUE " ". 01 FILE-GUARDIAN-DESC PIC X(80) VALUE " ". /******************* PROCEDURE DIVISION. ******************** ?SECTION FILE-STAT-DECLARATIVES DECLARATIVES. INPUT-SECTION. USE AFTER STANDARD ERROR PROCEDURE ON INPUT. PERFORM FILE-STAT-EDIT. I-O-SECTION. USE AFTER STANDARD ERROR PROCEDURE ON I-O. PERFORM FILE-STAT-EDIT. OUTPUT-SECTION. USE AFTER STANDARD ERROR PROCEDURE ON OUTPUT. PERFORM FILE-STAT-EDIT. EXTEND-SECTION. USE AFTER STANDARD ERROR PROCEDURE ON EXTEND. PERFORM FILE-STAT-EDIT. ?SECTION FILE-STAT-EDIT FILE-STAT-EDIT. IF FILE-STAT = "00" CONTINUE ELSE EVALUATE FILE-STAT WHEN "04" MOVE "Short Record READ*" TO FILE-STAT-MSG WHEN "05" MOVE "FILE*" TO FILE-STAT-MSG WHEN "07" MOVE "Fast I/O or Tape*" TO FILE-STAT-MSG WHEN "10" MOVE "End of File*" TO FILE-STAT-MSG WHEN "14" MOVE "End of Relative File*" TO FILE-STAT-MSG WHEN "30" MOVE "Operation*" TO FILE-STAT-MSG WHEN "21" MOVE "Key Changed on Rewrite*" TO FILE-STAT-MSG WHEN "22" MOVE "Duplicate Key*" TO FILE-STAT-MSG WHEN "23" MOVE "Key not found*" TO FILE-STAT-MSG WHEN "24" MOVE "Write Past Eof*" TO FILE-STAT-MSG WHEN "30" MOVE "Temporary Error*" TO FILE-STAT-MSG WHEN "34" MOVE "Seq Write Past Eof*" TO FILE-STAT-MSG WHEN "35" MOVE "Open File Error*" TO FILE-STAT-MSG WHEN "37" MOVE "Device Open Error*" TO FILE-STAT-MSG WHEN "38" MOVE "Open Parameter Error*" TO FILE-STAT-MSG WHEN "39" MOVE "File SELECT Mismatch*" TO FILE-STAT-MSG WHEN "41" MOVE "File is NOT Closed*" TO FILE-STAT-MSG WHEN "42" MOVE "File is NOT Opened*" TO FILE-STAT-MSG WHEN "43" MOVE "Del/Rewrite not Read*" TO FILE-STAT-MSG WHEN "44" MOVE "Rewrite Size Differs*" TO FILE-STAT-MSG WHEN "46" MOVE "Read Next not Started*" TO FILE-STAT-MSG WHEN "47" MOVE "Read/Start Open*" TO FILE-STAT-MSG WHEN "48" MOVE "Open is incompatible*" TO FILE-STAT-MSG WHEN "49" MOVE "File not Opened I/O*" TO FILE-STAT-MSG WHEN "90" MOVE "Open Not Timed I/O*" TO FILE-STAT-MSG WHEN "91" MOVE "I-O*" TO FILE-STAT-MSG WHEN "97" MOVE "Read/Start*" TO FILE-STAT-MSG WHEN OTHER MOVE "Unknown condition*" TO FILE-STAT-MSG. MOVE GUARDIAN-ERR TO FILE-GUARDIAN-ERR EVALUATE FILE-GUARDIAN-ERR WHEN 01 MOVE "EOF*" TO FILE-GUARDIAN-ERR-DESC WHEN 06 MOVE "$RECEIVE*" TO FILE-GUARDIAN-ERR-DESC WHEN 09 MOVE "Locked Record*" TO FILE-GUARDIAN-ERR-DESC WHEN 10 MOVE "Duplicate Record*" TO FILE-GUARDIAN-ERR-DESC WHEN 11 MOVE "Does Not Exist*" TO FILE-GUARDIAN-ERR-DESC WHEN 14 MOVE "Device Does Not Exist*" TO FILE-GUARDIAN-ERR-DESC WHEN 18 MOVE "Node Does Not Exist*" TO FILE-GUARDIAN-ERR-DESC WHEN 23 MOVE "Out of Bounds*" TO FILE-GUARDIAN-ERR-DESC WHEN 40 MOVE "Timed Out*" TO FILE-GUARDIAN-ERR-DESC WHEN 45 MOVE "File is Full*" TO FILE-GUARDIAN-ERR-DESC WHEN 46 MOVE "Bad Position*" TO FILE-GUARDIAN-ERR-DESC WHEN 73 MOVE "Locked*" TO FILE-GUARDIAN-ERR-DESC WHEN OTHER MOVE "*" TO FILE-GUARDIAN-ERR-DESC. STRING FILE-STAT-MSG DELIMITED BY "*" ":" DELIMITED BY SIZE FILE-GUARDIAN-ERR-DESC DELIMITED BY "*" INTO FILE-STAT-MSG. END DECLARATIVES. END PROGRAM FILESTAT. |
10/01/2010 21:01:45 jim One Liners - Again | Fri |||||||||||||||||||
How Do You Catch a Unique Rabbit? Unique Up On It. How Do You Catch a Tame Rabbit? Tame Way. How Do Crazy People Go Through The Forest ? They Take The Psychopath How Do You Get Holy Water? You Boil The Hell Out Of It What Do Fish Say When They Hit a Concrete Wall? Dam! What Do Eskimos Get From Sitting On The Ice too Long? Polaroids What Do You Call a Boomerang That Doesn't work? A Stick What Do You Call Cheese That Isn't Yours? Nacho Cheese. What Do You Call Santa's Helpers? Subordinate Clauses. What Do You Call Four Bullfighters In Quicksand? Quatro Cinco. What Do You Get From a Pampered Cow? Spoiled Milk. What Do You Get When You Cross a Snowman With a Vampire? Frostbite. What Lies At The Bottom Of The Ocean And Twitches? A Nervous Wreck. What's The Difference Between Roast Beef And Pea Soup? Anyone Can Roast Beef. What Do You Call a Dog With No Legs? Doesn't matter. He's NOT coming to you! Why Do Gorillas Have Big Nostrils? Because They Have Big Fingers. Why Don't Blind People Like To Sky Dive? Because It Scares The Dog. What Kind Of Coffee Was Served On The Titanic? Sanka. What Is The Difference Between a Harley And a Hoover ? The Location Of The Dirt Bag. Why Did Pilgrims' Pants Always Fall Down? Because They Wore Their Belt Buckles On Their Hats. What's The Difference Between a Bad Golfer And a Bad Skydiver? A Bad Golfer Goes, Whack, Dang! How Are a Texas Tornado And a Tennessee Divorce The Same? Somebody's Gonna Lose A Trailer. Where do one-legged waitresses go to find work? IHop |
10/01/2010 07:00:59 jim Declaratives | Fri |||||||||||||||||||
01 FILE-STAT-MESSAGE. 05 FILE-I-O-TYPE PIC X(06) JUST RIGHT. 05 FILLER PIC X(01) VALUE " ". 05 FILE-FAILED PIC X(06) VALUE " ". 05 FILLER PIC X(01) VALUE " ". 05 FILE-STAT-MSG PIC X(21) VALUE " ". 05 FILLER PIC X(01) VALUE " " . 05 FILE-STAT PIC X(02) VALUE "00". 88 VALID-KEY VALUE "00". 05 FILLER PIC X(01) VALUE ":" . 05 FILE-GUARDIAN-ERR PIC 9(03) VALUE ZERO. /******************* PROCEDURE DIVISION. ******************** DECLARATIVES. INPUT-SECTION SECTION. USE AFTER STANDARD ERROR PROCEDURE ON INPUT. MOVE "INPUT" TO FILE-I-O-TYPE. PERFORM EDIT-FILE-STAT. I-O-SECTION SECTION. USE AFTER STANDARD ERROR PROCEDURE ON I-O. MOVE "OUTPUT" TO FILE-I-O-TYPE. PERFORM EDIT-FILE-STAT. OUTPUT-SECTION SECTION. USE AFTER STANDARD ERROR PROCEDURE ON OUTPUT. MOVE "I-O" TO FILE-I-O-TYPE. PERFORM EDIT-FILE-STAT. EXTEND-SECTION SECTION. USE AFTER STANDARD ERROR PROCEDURE ON EXTEND. MOVE "EXTEND" TO FILE-I-O-TYPE. PERFORM EDIT-FILE-STAT. EDIT-FILE-STAT SECTION. MOVE GUARDIAN-ERR TO FILE-GUARDIAN-ERR. IF FILE-STAT = "00" MOVE "Worked" TO FILE-FAILED MOVE "Successfully " TO FILE-STAT-MSG ELSE MOVE "Failed" TO FILE-FAILED MOVE 999 TO DISK-ERRORS EVALUATE FILE-STAT WHEN "10" MOVE "End of File " TO FILE-STAT-MSG WHEN "30" MOVE "Permanent Error " TO FILE-STAT-MSG WHEN "21" MOVE "Rewrite Error " TO FILE-STAT-MSG WHEN "22" MOVE "Duplicate Key " TO FILE-STAT-MSG WHEN "23" MOVE "No Record Exist " TO FILE-STAT-MSG WHEN "24" MOVE "Write Past Eof " TO FILE-STAT-MSG WHEN "30" MOVE "Temporary Error " TO FILE-STAT-MSG WHEN "34" MOVE "Seq Write Past Eof " TO FILE-STAT-MSG WHEN "35" MOVE "Open File Error " TO FILE-STAT-MSG WHEN "37" MOVE "Device Open Error " TO FILE-STAT-MSG WHEN "38" MOVE "Open Parameter Error" TO FILE-STAT-MSG WHEN "41" MOVE "File is NOT Closed " TO FILE-STAT-MSG WHEN "42" MOVE "File is NOT Opened " TO FILE-STAT-MSG WHEN "43" MOVE "UnRead Del./Rewrite " TO FILE-STAT-MSG WHEN "44" MOVE "Rewrite Size Differs" TO FILE-STAT-MSG WHEN "46" MOVE "UnStarted Read Next " TO FILE-STAT-MSG WHEN "47" MOVE "Read/Start Open Err " TO FILE-STAT-MSG WHEN "48" MOVE "Write Open Error " TO FILE-STAT-MSG WHEN "49" MOVE "File not Opened I/O" TO FILE-STAT-MSG WHEN "90" MOVE "Open Not Timed I/O " TO FILE-STAT-MSG WHEN "91" MOVE "EditReadUnit Failed " TO FILE-STAT-MSG WHEN OTHER MOVE "Unknown condition " TO FILE-STAT-MSG. IF GUARDIAN-ERR = 40 MOVE "98" TO FILE-STAT. END DECLARATIVES. |
10/01/2010 06:54:16 jim Binding an Escort/AutoTmf to a user lib | Fri |||||||||||||||||||
bind @select list * off @add * from myuserlib @add * from $system.escort.escruntm @set like $system.escort.escruntm @set highpin on @set highrequestors on @build mylib! |
09/29/2010 19:14:08 jim Tampa Skippers Becky | Wed |||||||||||||||||||
09/29/2010 19:12:58 jim Tampa Skippers - Jim | Wed |||||||||||||||||||
09/29/2010 18:52:10 jim Tampa - Skippers | Wed |||||||||||||||||||
09/29/2010 18:50:46 jim Tampa Skippers-20100929 | Wed |||||||||||||||||||
09/27/2010 19:46:46 jim Clearwater Clouds-20100927 | Mon |||||||||||||||||||
09/25/2010 23:19:24 jim Fergs Sports Bar | Sat |||||||||||||||||||
09/25/2010 22:10:48 jim Brett Michaels Concert | Sat |||||||||||||||||||
09/25/2010 21:04:04 jim Baseball - Rays Game | Sat |||||||||||||||||||
09/25/2010 20:16:01 jim TropicanaField - RaysGame | Sat |||||||||||||||||||
09/25/2010 20:09:00 jim Rays Game-Becky, Jim | Sat |||||||||||||||||||
09/25/2010 19:17:00 jim Clearwater - Ibis | Sat |||||||||||||||||||
09/22/2010 07:25:04 jim A bad way to quit smoking | Wed |||||||||||||||||||
A couple from Malaysia was beaten to death Thursday in a bizarre stop-smoking ritual, Agence France-Presse reported. |
09/22/2010 02:43:36 jim One Liners | Wed |||||||||||||||||||
1. My husband and I divorced over religious differences. He thought he was God and I didn't. 2. I don't suffer from insanity; I enjoy every minute of it. 3. Some people are alive only because it's illegal to kill them. 4. I used to have a handle on life, but it broke. 5. Don't take life too seriously; No one gets out alive. 6. You're just jealous because the voices only talk to me 7. Beauty is in the eye of the beer holder. 8. Earth is the insane asylum for the universe. 9. I'm not a complete idiot -- Some parts are just missing. 10. Out of my mind. Back in five minutes. 11. NyQuil, the stuffy, sneezy, why-the-heck-is-the-room-spinning me dicine. 12. God must love stupid people; He made so many. 13. The gene pool could use a little chlorine. 14. Consciousness: That annoying time between naps. 15. Ever stop to think, and forget to start again? 16. Being 'over the hill' is much better than being under it! 17. Wrinkled Was Not One of the Things I Wanted to Be When I Grew up. 18. Procrastinate Now! 19. I Have a Degree in Liberal Arts; Do You Want Fries With That? 20. A hangover is the wrath of grapes. 21. A journey of a thousand miles begins with a cash advance. 22. Stupidity is not a handicap. Park elsewhere! 23. They call it PMS because Mad Cow Disease was already taken. 24. He who dies with the most toys is nonetheless DEAD. 25. A picture is worth a thousand words, but it uses up three thousand times the memory. 26 . Ham and eggs... A day's work for a chicken, a lifetime commitment for a pig. 27. The trouble with life is there's no background music. 28. The original point and click interface was a Smith & Wesson. 29. I smile because I don't know what is going on. |
09/16/2010 22:30:04 jim Tampa-TomPetty Lazer Show | Thu |||||||||||||||||||
09/16/2010 21:20:36 jim Tom Petty and the Heart Breakers | Thu |||||||||||||||||||
09/16/2010 20:46:24 jim Tampa-Concert People | Thu |||||||||||||||||||
09/16/2010 20:21:38 jim Tampa-ZZTop-20100916 | Thu |||||||||||||||||||
09/16/2010 20:00:52 jim Concert Half Time | Thu |||||||||||||||||||
09/16/2010 19:51:34 jim Tampa-From St Pete Times Forum | Thu |||||||||||||||||||
09/14/2010 20:11:20 jim Tampa Hard Rock Pictures | Tue |||||||||||||||||||
09/14/2010 16:53:48 jim Tampa Hard Rock | Tue |||||||||||||||||||
09/12/2010 17:22:30 jim I4 Rainbow-20100912 | Sun |||||||||||||||||||
09/12/2010 14:39:44 jim Jacksonville, FL - Skyline | Sun |||||||||||||||||||
09/12/2010 13:31:34 jim Jacksonville RCBC-20100912 | Sun |||||||||||||||||||
09/12/2010 11:56:28 jim Rt A1A N | Sun |||||||||||||||||||
09/12/2010 11:24:30 jim A1AN Marsh to Jacksonville | Sun |||||||||||||||||||
09/12/2010 10:52:56 jim St Augustine-Bird House | Sun |||||||||||||||||||
09/12/2010 07:37:34 jim St Augustine Beach-Sunrise | Sun |||||||||||||||||||
09/12/2010 07:34:50 jim StAugustineBeach Sunrise-20100912 | Sun |||||||||||||||||||
09/11/2010 21:19:48 jim StAugustine Lighthouse-20100911 | Sat |||||||||||||||||||
09/11/2010 20:52:02 jim St Augustine Bar | Sat |||||||||||||||||||
09/11/2010 20:45:12 jim St Augustine - Old House | Sat |||||||||||||||||||
09/11/2010 20:32:04 jim StAugustine 5541-20100911 | Sat |||||||||||||||||||
09/11/2010 20:09:44 jim Wax Museum - Seinfield | Sat |||||||||||||||||||
09/11/2010 18:10:42 jim StAugustine Becky-20100911 | Sat |||||||||||||||||||
09/11/2010 14:07:56 jim StAugustine FountainOfYouth-20100911 | Sat |||||||||||||||||||
09/11/2010 14:02:54 jim StAugustine SanMarcosFort-20100911 | Sat |||||||||||||||||||
09/11/2010 13:57:12 jim StAugustine Oldest House | Sat |||||||||||||||||||
09/11/2010 13:25:02 jim StAugustine College-20100911 | Sat |||||||||||||||||||
09/11/2010 13:18:28 jim StAugustine Church | Sat |||||||||||||||||||
09/11/2010 12:57:26 jim St Augustine Lighthouse | Sat |||||||||||||||||||
<< 10/2009 < 09/2010 Calendar 11/2010 > 10/2011 >> | Sign InView Other Logs |