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 < 10/2010 Calendar 11/2010 > 10/2011 >>Sign InView Other Logs
Mon 
10/18/2010 16:46:12
 jim  SouthBeach CollinsSt
Mon 
10/18/2010 16:44:32
 jim  Miami Bldgs
Mon 
10/18/2010 14:55:44
 jim  Miami-Skyline
Mon 
10/18/2010 11:10:44
 jim  CoacoBeach-Misc
Mon 
10/18/2010 08:00:44
 jim  CocoaBeach-Sunrise
Sun 
10/17/2010 19:28:20
 jim  CocoaBeach-Night
Sun 
10/17/2010 19:09:18
 jim  CocoaBeach-Bay
Sun 
10/17/2010 17:55:32
 jim  CocoaBeach-Cabana
Sun 
10/17/2010 17:40:42
 jim  CocoaBeach-Cabana
Sun 
10/17/2010 17:10:02
 jim  CocoaBeach-Cruise Ships
Sun 
10/17/2010 16:48:22
 jim  CocoaBeach-Pier
Sun 
10/17/2010 16:41:34
 jim  CocoaBeach-Black Bird Song
Sun 
10/17/2010 16:21:32
 jim  CocoaBeach-Shore
Sun 
10/17/2010 08:04:30
 jim  Cocoa Beach, FL
Sat 
10/16/2010 14:18:54
 jim  Smyrna,FL - Plantlife
Sat 
10/16/2010 12:49:02
 jim  DaytonaBeach - Becky, Jim
Sat 
10/16/2010 12:49:01
 jim  Daytona - BudGirls
Sat 
10/16/2010 12:31:03
 jim  Daytona DogHouse Girl
Sat 
10/16/2010 12:27:00
 jim  Daytona - DogHouse Girls
Sat 
10/16/2010 11:13:34
 jim  Daytona Beach - Triketober
Sat 
10/16/2010 11:13:12
 jim  Daytona - Biketober Fest
Sat 
10/16/2010 07:40:00
 jim  DaytonaBeach - Sunrise
Sat 
10/16/2010 07:35:46
 jim  DaytonaBeach-Pier at Sunrise
Sat 
10/16/2010 07:35:42
 jim  DaytonaBeach Sunrise
Sat 
10/16/2010 07:33:58
 jim  DaytonaBeach FamousShoresMotel
Fri 
10/15/2010 19:55:32
 jim  Orlando One Eyed Jacks
Fri 
10/15/2010 18:42:24
 jim  Orlando Tiki Lounge
Fri 
10/15/2010 18:37:24
 jim  Orlando WallSt
Fri 
10/15/2010 18:26:08
 jim  Orlando EolaPark
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!

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