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
Tue 
10/19/2010 12:02:02
 jim  SouthBeach Seagulls
Mon 
10/18/2010 22:00:26
 jim  SouthBeach-People
Mon 
10/18/2010 21:52:10
 jim  SouthBeach-OceanBlvd
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.

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