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/2009 < 09/2010 Calendar 11/2010 > 10/2011 >>Sign InView Other Logs
Fri 
10/15/2010 17:03:30
 jim  I4 to Orlando
Thu 
10/14/2010 18:43:02
 jim  StPetersburg-Skybridge Pull Off
Thu 
10/14/2010 06:27:09
 jim  The Eye Phone
Virtual friendships, virtual schools, collective knowledge, kids texting...
Aren't we becoming Star Trek's Borg?
The next break-thru...
"The Eye Phone". lol.
Sat 
10/09/2010 13:48:14
 jim  Clearwater Crab Hills
Sat 
10/09/2010 13:32:18
 jim  Clearwater 4thSt
Sat 
10/09/2010 09:48:39
 jim  A 3D Virtual World is Coming
A 3D virtual world is coming, sooner than you think.
I was just imagining how the world will change when Glassless 3D imaging becomes the standard (within the next 5 years).
The web, photo's, TV, most electronic media will all have to be reinvented.
Thu 
10/07/2010 19:45:12
 jim  Clearwater CrabbyBills-20101007
Thu 
10/07/2010 19:27:26
 jim  Clearwater - Wild Girls of the Beach
Thu 
10/07/2010 19:21:16
 jim  Clearwater Beach - Jim
Thu 
10/07/2010 19:19:48
 jim  Clearwater Beach
Thu 
10/07/2010 19:14:46
 jim  Clearwater Sunset
Thu 
10/07/2010 19:12:00
 jim  Clearwater-Becky and Jim
Thu 
10/07/2010 19:11:54
 jim  Clearwater Beach
Mon 
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
Sat 
10/02/2010 11:38:49
 jim  Declaratives
 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.
Fri 
10/01/2010 21:01:45
 jim  One Liners - Again
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
Fri 
10/01/2010 07:00:59
 jim  Declaratives
 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.
Fri 
10/01/2010 06:54:16
 jim  Binding an Escort/AutoTmf to a user lib
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!
Wed 
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
Mon 
09/27/2010 19:46:46
 jim  Clearwater Clouds-20100927
Sat 
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
Wed 
09/22/2010 07:25:04
 jim  A bad way to quit smoking

A couple from Malaysia was beaten to death Thursday in a bizarre stop-smoking ritual, Agence France-Presse reported.
Police spokesman Ku Chin Wah told the official Bernama news agency that Mohamed Ibrahim Kader Mydin, 47, and his wife Rosina Mydin Pillay, 41, sustained head injuries in a beating intended to cure them of smoking and other illnesses. The 15-year-old daughter of one of the four relatives who participated in the beating was also attacked and is fighting for her life in a hospital, according to AFP.Police said that Mohamed Ibrahim asked family to help him kick his smoking habit, and confided in relatives that his wife was suffering from asthma and a liver ailment.
"Following this, a 23-year-old male relative suggested that the couple undergo a ritual which involved all family members joining forces to beat up the couple to rid them of their ailments,'' Ku told Bernama.
The couple's heads were smashed on tables and beaten with crash helmets and brooms.
It is believed one of the four suspects, who are now in police custody, belongs to a
"deviant'' cult.

Wed 
09/22/2010 02:43:36
 jim  One Liners
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.
Thu 
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
Tue 
09/14/2010 20:11:20
 jim  Tampa Hard Rock Pictures

<< 10/2009 < 09/2010 Calendar 11/2010 > 10/2011 >>Sign InView Other Logs