Stories's Log
This log represents the Life and Times of the Las Vegas Dude.
<< 09/2008 < 08/2009 Calendar 10/2009 > 09/2010 >>Sign InView Other Logs
Sun 
09/06/2009 10:35:04
 jim  Ocean City, MA - Chesapeake Bay
Sat 
09/05/2009 22:47:04
 jim  Ocean City, MD - Boardwalk
Sat 
09/05/2009 22:45:22
 jim  OceanCity - Religious Sand Works
Sat 
09/05/2009 22:41:40
 jim  OceanCity - Boardwalk at Night
Sat 
09/05/2009 21:57:50
 jim  Ocean City - Carnival
Sat 
09/05/2009 20:24:24
 jim  OceanCity Beach - Moonlight
Sat 
09/05/2009 14:57:22
 jim  Ocean City - Boardwalk
Sat 
09/05/2009 13:18:24
 jim  Ocean City - Admiral Hotel
Sat 
09/05/2009 12:31:30
 jim  Ocean City - Beach
Sat 
09/05/2009 11:34:50
 jim  Chesapeake Bay
Sat 
09/05/2009 11:34:20
 jim  Chesapeake Bay Crabs
Sat 
09/05/2009 10:39:16
 jim  Salisbury, Md - Hotel
Wed 
09/02/2009 20:37:04
 jim  Pittsburgh - Night Skyline
Wed 
09/02/2009 18:59:26
 jim  Pittsburgh - Buca
Wed 
09/02/2009 18:05:30
 jim  Pittsburgh - Skyline
Tue 
09/01/2009 13:50:29
 jim  Wexford - Apt Critters
Mon 
08/31/2009 12:10:03
 jim  Warrenburg - Behind Work
Sun 
08/30/2009 18:06:14
 jim  Cranberry 21TechDr
Sun 
08/30/2009 16:40:20
 jim  Wexford Skies
Sun 
08/30/2009 16:40:04
 jim  Wexford Ichibans
Sat 
08/29/2009 10:45:08
 jim  Wexford Apt - Rain
Wed 
08/26/2009 21:16:28
 jim  Pittsburgh at Night
Wed 
08/26/2009 20:02:28
 jim  Around Bridgewater
Wed 
08/26/2009 18:54:34
 jim  Bridgewater - Jeffries Landing
Wed 
08/26/2009 18:53:58
 jim  Bridgewater Marina
Wed 
08/26/2009 18:40:08
 jim  Bridgewater, Pa
Wed 
08/26/2009 11:49:10
 jim  Cranberry Misc
Tue 
08/25/2009 22:28:37
 jim  A perfect moment
Ever feel like life, for a moment, was in perfect harmony throughout the world.
Ever feel that if the past was great, then the future can't be bad.
Today I picked a dandilion and shook it. The spores flew 1,000 feet into the sky, and I still don't understand it. 
I am living in a magical place.
Pittsburgh people, I hope you know you're living in someone else's heaven.
Thank you all for making it that way.
Tue 
08/25/2009 19:36:32
 jim  Wexford
Tue 
08/25/2009 18:10:36
 jim  Homestead Restaurant
Mon 
08/24/2009 21:54:20
 jim  How big is Walmart?
 1. Americans spend $36,000,000 at Wal-Mart every hour of every day
   (I didn't)
2. This works out to $20,928 profit every minute! 
   (somehow, I calculated thats $30,136,320 per hour...hmmm)
3. Wal-Mart will sells more from January 1 to April than Target sells all year.
   (McDonalds does too) 
4. Wal-Mart is bigger than Home Depot, Kroger, Target, Sears, Costco, and K-Mart combined.
    (Why would you combine Krogers and Home Depot?)
5. Wal-Mart employs 1.6 million people and is the largest private employer, most can't speak English.
   (Most Americans can't speak English)
6. Wal-Mart is the largest company in the history of the World.
  (Babylon was largest prehistory mall)
7. Wal-Mart now sells more food than Kroger & Safeway combined, and keep in mind they did this in only 15 years.
8. During this same period, 31 supermarket chains sought bankruptcy (including Winn-Dixie). 
  (ewwwe..Winn-Dixie)
9. Wal-Mart now sells more food than any other store in the world.
10.. Wal-Mart has approx 3,900 stores in the USA of which 1,906 are Super Centers; this is 1,000 more than it had 5 years ago.
11 This year 7.2 billion different purchasing experiences will occur at a Wal-Mart store. Earth's population is approximately 6.5 billion.
  (I've bought there, but, it wasn't really an experience)
12.. 90% of all Americans live within 15 miles of a Wal-Mart.
   (1% live in the dressing rooms)
Let Wal-Mart run the Government.
Sat 
08/22/2009 18:10:26
 jim  Ross Mall
Sat 
08/22/2009 11:51:12
 jim  Who vacations in Ethiopia
A fellow I work with told me that his daughter was going for vacation in Ethiopia.
I said "WHY?".  He said, "She wants to adopt a child. I'm going to be a double grandfather!".
I said "Wow. Isn't she worried about mental illness, and other born diseases from the malnutrition."
He said "Nope. The company she's going through tells you all about the children. They get vaccinated...the whole shibang!".
I thought that was SO SELFLESS. She's going to give a child a life that he/she would have never had the opportunity to have.
That's nice. The people here are nice.
Wed 
08/19/2009 13:31:06
 jim  Leaf Insect

Her wings have no other function than camoflaug. This bug can't fly!!!
Wed 
08/19/2009 10:39:25
 jim  Wexford 60-20090819
Fri 
08/14/2009 20:19:20
 jim  Cranberry - Behind Unos
Thu 
08/13/2009 21:38:41
 jim  Pittsburgh-Rivers Casino
Thu 
08/13/2009 21:37:44
 jim  Pittsburgh-Rivers Casino
Wed 
08/12/2009 08:00:11
 jim  Wexford Fog
Tue 
08/11/2009 18:42:51
 jim  Well folks, looks like I am here for a while
Some people pulled for me really hard, and I gotta say, its been a little emotional for me.
We've been travelling for what seems like forever and I haven't had a real home for what seems like a very, very long time.
These people have become as close to friends as I guess I'll ever have. And I'm happy.
These are the good people that I've been looking for.
They are the ones that I've always wanted to know.
Tue 
08/11/2009 18:42:51
 SAE   (Reply).Well folks, looks like I am here for a while
Hurray Jimmy... You got extended. I knew you would. Hurray, way to go Jimmy....

Where be you? I just tried calling you and got your voice mail...

Some possibilities are openning up for me.

So, did you ever interview with RJ?
Mon 
08/10/2009 18:57:37
 jim  Pittsburgh-Mortons Steakhouse
Sun 
08/09/2009 18:33:18
 jim  ZMacros
?section GO  macro
== ****************************************************************************
== * GO program|macro|routine                                                 *
== * GO FUP INFO *.*                                                          *
== *--------------------------------------------------------------------------*
== * Runs a program, showing its command line                                 *
== ****************************************************************************
#output %*%
%*%


?section VAR macro
== ****************************************************************************
== * VAR variable [value]                                                     *
== * VAR MyVar    This is a test                                              *
== *--------------------------------------------------------------------------*
== * Pushes a variable if it doesn't already exist.                           *
== * If [value] is supplied, set it, otherwise, preserve the old value.       *
== ****************************************************************************
[#if [#variableinfo/existence/ %1%] |else| #push %1%]
[#if [#empty %2%] |then| |else| #set %1% %2 to 99%]


?section CompAll    macro
== ****************************************************************************
== * COMPALL [file mask] [;list] [$S]                                         *
== *--------------------------------------------------------------------------*
== * Gets a list of file names using the file mask                            *
== * Volumes to where the file is                                             *
== * Compiles the program based on its contents                               *
== * Volumes back to where you started                                        *
== ****************************************************************************
var   Param1 %1%
#push Param2 Param3
var   Param2 %2%
var   Param3 %3%
var   NoList ;nolist
#set  NoList
var   tst_lst
#set  tst_lst
[#case [#chargetv Param1 1 1] |;| #set NoList  [Param1] |otherwise|]
[#case [#chargetv Param2 1 1] |;| #set NoList  [Param2] |otherwise|]
[#case [#chargetv Param1 1 1] |$| #set tst_lst [Param1] |otherwise|]
[#case [#chargetv Param2 1 1] |$| #set tst_lst [Param2] |otherwise|]
#push MyFile FileList
fup /outv FileList/info %1%
#extractv FileList MyFile
#extractv FileList MyFile
#extractv FileList MyFile
var CompVol [#FILEINFO/VOLUME/x].[#FILEINFO/SUBVOL/x]]
[#loop |do|
   [#case [#chargetv MyFile 1 1]
   |$| VOLUME [MyFile]
   |otherwise|
      #set MyFile [#chargetv MyFile MyFile 1 8]
      COMPILE [MyFile]
   ]
   #extractv FileList MyFile
|until| [#emptyv FileList]
]
VOLUME [CompVol]
#pop MyFile FileList


?section COMP macro
var  tst_lst
#set tst_lst
var nolist ;nolist
var tst_src %1%
[#if [#fileinfo/existence/[tst_src]] |then|
   COMPILE %*%
|else|
   #output *** ERROR: %1% Does not exists
]


?section COMPF macro
var tst_src %1%
var tst_lst ,OUT LISTING.[tst_src]
var nolist
#set nolist ;nolist
[#if [#fileinfo/existence/[tst_src]] |then|
   COMPILE %*%
|else|
   #output *** ERROR: %1% Does not exists
]


?section COMPP macro
var tst_src %1%
var tst_lst ,OUT $P.#COMP.[tst_src]
var nolist
#set nolist ;NOLIST
[#if [#fileinfo/existence/[tst_src]] |then|
   COMPILE %*%
|else|
   #output *** ERROR: %1% Does not exists
]


?section COMPILE macro
var tst_lst
var nolist
var #INLINEPREFIX --
var tst_src %1%
var Src_Root [#charget tst_src 1 for [#compute [#charcount tst_src] - 1]]
var ThisVol [#FILEINFO/VOLUME/[tst_src]].[#FILEINFO/SUBVOL/[tst_src]]
var tst_lib $TECH1D.COPYSRC var tst_all [ThisVol].[tst_src]
var tst_cat  $DEV3.MISCCATL
var tst_pobj $DEV2.TURBOBJ.xxx1
[#case [#charget [#shiftstring tst_src] 1 for 3]
   |EBC|  var tst_OBJ  $DEV2.TECHOB.[src_root]
   |EXP|  var tst_OBJ  $DEV2.EXPOBJ.[src_root]o
          var tst_pobj $DEV2.EXPOBJ.EXP1
          var ComptPobj EXP1
   |EMS|  var tst_OBJ  $DEV2.EMS.[src_root]n
   |ERR|  var tst_OBJ  $DEV2.SUBOBJ.[src_root]o
   |SUB|  var tst_OBJ  $DEV2.SUBOBJ.[src_root]o
   |BAT|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |ENF|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |DJL|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |xxx|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
          var ComptPobj xxx1
   |FLX|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |FSR|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |GBP|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |PRG|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |TAL|  var tst_OBJ  $DEV2.TECHOB.[src_root]o
   |TMP|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |UTL|  var tst_OBJ  $DEV2.TURBOBJ.[src_root]o
   |STR|  var tst_OBJ  $DEV2.STOREOBJ.[src_root]o
   |INT|  var tst_OBJ  $DEV2.WEBOBJ.[src_root]o
   |REP|  var tst_OBJ  $DEV2.WEBOBJ.[src_root]o
   |WEB|  var tst_OBJ  $DEV2.WEBOBJ.[src_root]o
   |OTHERWISE|
          var tst_OBJ  $DEV2.xxxROBJ.[src_root]o
          var ComptPobj xxx1
]
var tmp [tst_src]
#push Found srcLanguage
#set Found
#set srcLanguage
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/ SCREEN / RB/ SECTION/RN/*/;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage SCOBOL ]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/ TERMINAL / RB/ CONVERSATIONAL/RN/*/;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage SCOBOL ]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/ TERMINAL / RB/ IBM-3270/RN/*/;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage SCOBOL ]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/PROCEDURE / RB/DIVISION/RN/*/;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage COBOL]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/ $SYSTEM.SYSTEM.EXTDECS/;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage Tal]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/#include/;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage C]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/?DICTIONARY /;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage Enform]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/?DICT /;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage DDL]
]
[#if [#emptyv SrcLanguage] |then|
   edit /OUTV Found/[tmp] R;LB/CATALOG / r/=/;E
   [#if [#linecount Found] > 2 |then| #set SrcLanguage SQL]
]
[#if [#emptyv tst_lst] |then|
|else|
   [#if [#fileinfo/volume/[tst_lst]] |then|
      [#if [#fileinfo/existence/listing.[tst_src]] |then|
         PURGE listing.[tst_src]]
         fup CREATE listing.[tst_src], type u, ext(50,50)
      |else|
         fup purgedata listing.[tst_src]
      ]
      #set tst_lst ,out listing.[tst_src]
   |else|
      #set tst_lst ,out [tst_lst].#[SrcLanguage].[tst_src]
   ]
]

comment GO EDIT/INLINE/[tst_all]
comment GO -- CBA/$TECH1D.COPYSRC./COPYSRC./A
comment GO -- CBA/$TECH1.COPYSRC./COPYSRC./A
comment GO -- CBA/$TECH2D.//A
comment GO -- CBA/$TECH2.//A
comment GO -- CBA/?SOURCE ./?SOURCE /A
comment GO -- CBA/ COPYSRC./ / /COPY /
comment GO -- CF/*/  /TIMEFILE-MOD-TIME/ RN/*/
comment GO -- CBA/BLKTJRC/BLKTJRN/A
comment GO -- CA/search "$tech1D./search "/A
comment GO -- EXIT


param    SYMBOL-BLOCKS 8
VOLUME   [tst_lib]
[#case   [SrcLanguage]
|COBOL|  GO COBOL85/IN [tst_all][tst_lst]/[tst_obj][nolist],ENV COMMON
         var ComptNbr 1
|SCOBOL| GO SCOBOLX/IN [tst_all][tst_lst]/[TST_POBJ][nolist]
         var ComptNbr 2 [ComptPobj]
|Enform| GO enform /inline[tst_lst]/
         GO -- ?compile [tst_all] TO [tst_obj]
         GO -- exit;
         var ComptNbr 3
|TAL|    GO TAL    /IN [tst_all][tst_lst]/[tst_obj][nolist]
         var ComptNbr 4
|SQL|    GO SQLCI  /IN [tst_all][tst_lst]/
|C|      GO C      /IN [tst_all][tst_lst]/[tst_obj][nolist], &
         SSV0 "$system.system",SSV1 "$system.ztcpip",SSV2 "$tech1.nos"
==       SSV3 "$tech1d"
         var ComptNbr 5
|DDL|    GO DDL    /IN [tst_all][tst_lst]/
|otherwise| #output Skipping [tst_ALL]
         var ComptNbr 99
]
volume [ThisVol]
[#IF (_COMPLETION:COMPLETIONCODE > 1) |then|
     #output **** ERROR ****
|else|
     SqlCheck [tst_obj]
]
[#if [#fileinfo/existence/[tst_obj]] |then|
     RUN $DEV2.CUTLAR.ZFUP SECURE [tst_obj],"nnnn"
     RUN $DEV2.CUTLAR.ZFUP GIVE   [tst_obj],SYSTEM.AOES
]
#pop Found
[#if [#empty %2%] |then| |else| COMPILE %2 TO 99%]

========================
?section SqlCheck macro
========================
[#if [#fileinfo/existence/%1%] |then|
   var lstSql
   #set lstSql
   SQLCOMP/IN %1%,outv lstSql/CATALOG [tst_cat]
   [#IF ([#LINEFIND lstSql 1 No SQL source ]>0) |then|
       #output Sql Compiling is not needed for %1%
       #set _COMPLETION
       SaveCompT R [tst_src] [ComptNbr]
   |else|
        #push #out
        #set  #out [tst_lst]
        outvar lstSql
        #pop  #out
        #set _COMPLETION
       [#IF (_COMPLETION:COMPLETIONCODE > 1) |then|
          #output ********** SQL ERROR **********************
       |else|
          [#case [ComptNbr]
           |1| SaveCompT R [tst_src] 6
           |otherwise|
               SaveCompT R [tst_src] [ComptNbr]
          ]
       ]
   ]
|else|
   SaveCompT R [tst_src] [ComptNbr]
]


?section SaveCompT macro
== This is for, in my opinion, a rather interesting compile macro that compiles turnovers.
#push #out
#set  #out zcompfil
#output %*%
#pop #out
COMMENT  rename [tst_src],TURNOVER.[tst_src]
?section SetPw   macro
var Param1 Param2
#set Param1 %1%
#set Param2 %2%
[#case [#chargetv Param1 1 1] |$| var PcName [Param1] |otherwise| var PcServer [Param2]]
[#case [#chargetv Param2 1 1] |$| var PcName [Param2] |otherwise| var PcServer [Param1]]
[#if [#emptyv PcName] |then|  
   var PcName [#input Enter the Pathway System: ($MNTF):]
]
[#if [#emptyv PcServer] |then|
   var PcServer [#input Enter the Pathway Server (TESTPOST-SERVER):]
]


?section DebugOn macro
== * DebugOn [$PW] [server-name]
SetPw %*%
freeze     [PcName] [PcServer]
go pathcom [PcName];alter [PCServer],hometerm [#myterm],debug on
thaw       [PcName] [PcServer]


?section Freeze macro
SetPw %*%
go pathcom [PcName];freeze [PCServer]
go pathcom [PcName];stop   [PCServer], delay 10 secs


?section Thaw   macro
SetPw %*%
go pathcom [PcName];thaw [PCServer]


?section DebugOff macro
== * DebugOff [$PW] [server-name]
SetPw %*%
freeze     [PcName] [PcServer]
go pathcom [PcName];alter [PCServer],hometerm $VHS, debug off
thaw       [PcName] [PcServer]


?section set_SysIni macro
var CdVol          $DEV2.TEST
var LstVol         $DEV2.TESTLST
var SrcVol         $DEV2.TESTSRC
var TST_EXE        $DEV2.TESTOBJ.[SrcFile]O
var ObjVol         $DEV2.TESTOBJ
var TST_REN        $DEV2.TESTOBJ.[SrcFile]X
var TST_OBJ        $DEV2.TESTOBJ
var TST_POBJ       $DEV2.TESTOBJ.xxx1
var ObeyFile_VOL   $DEV2.TESTOBEY


?section LIB macro
GO VOLUME [TST_LIB]
?section LST macro
GO volume $DEV2.LISTING

?section SRC macro
[#if [#empty %1%] |then|
  GO volume $DEV2.SOURCE
|else|
  var  SrcFile %1%
]


?section OK macro
 [#case [#input RUN %*% (y)?] |y Y| GO %*% |otherwise|]
 #output ---------------------------------------------


?section PCLS macro
 SPOOLCOM $SPLS;JOB (OWNER),DELETE !
 SPOOLCOM $PPLS;JOB (OWNER),DELETE !


?section SV macro
 FUP SUBVOLS %*%


?section Type macro
 fup copy %1%


?section p macro
[#if [#empty %1%] |then| peruse $PPLS |else| peruse $SPLS]


?section InfoDefine macro
#frame
#push    X1 X2 X3 X4
#setMANY X1 X2 X3 X4,[#defineinfo %1%]
#output/HOLD/ADD DEFINE %1%
#output/HOLD,COLUMN 25/,CLASS [X2]
#output/COLUMN 40/,[X3] [X4]
#unframe
[#if [#empty %2%] |then| |else| INFODEFINE %2 to 99%]


?section CreateDefines macro
PURGE XD
INFO/OUT XD/DEFINE =*
EDIT XD;DQN/=/;CQ/ Define Name / INFODEFINE /A;E
PURGE DEFINES
#push #OUT
#set #OUT DEFINES
O XD
#pop #OUT
EDIT DEFINES;DQ/INFODEFINE/;E
EDIT DEFINES
[#if [#empty %2%] |then| |else| INFODEFINE %2 to 99%]


?section ST macro
[#IF [#EMPTY %1%]
|then| STATUS *,TERM
|else| STATUS %*%
]


?section DelY    macro
[#IF [#FILEINFO/EXISTENCE/%1%] |then|
   FILEINFO %1%
   [#CASE [#INPUT Do you wish to delete this (y)?]
      |y Y| purge %1%
      |otherwise|
   ]
]


?section COMPARE macro
$DEV2.testobj.COMPARE %*%


?section PC macro
[#if [#empty %1%]
|then| GO pathcom [PcName]
|else| #set PcName %*%
       GO pathcom %*%]


?section OBJ macro
Go VOLUME $DEV2.TESTOBJ


?section TL macro
Go LOAD/KEEP 1/$DEV2.COMPILES.ZMACROS


?section GT macro
edit $DEV2.COMPILES.ZMACROS;set tabs 10 20 30 40 50 60 70;%1 TO 9%


?section CD macro
var CdVol %1%
volume [CdVol]


?section G macro
var GSrc %*%
EDIT;SET TABS 10 20 30 40 50 60 70;SET JOIN 80;G [GSrc]


?section O macro
var ObeyFile %1%
[#if [#emptyv ObeyFile] |then|
     #output ([ObeyFile]) doesn't exist.
|else|
   [#if [#fileinfo/existence/[ObeyFile]] |then|
      #push Found
      edit /OUTV Found/[ObeyFile] R;LB/?section/RB/ ROUTINE/;E
      [#if [#linecount Found] > 2 |then|
         GO T [ObeyFile]
      |else|
         GO OBEY [ObeyFile]
      ]
      #pop  Found
   |else|
      #output The default Obey File hasn't been set yet. Try: O obeyfile
   ]
]
[#if [#empty %2%] |then| |else| O %2 to 99%]


?section BYE       macro
CSAVE
LOGOFF


?section CLOAD     macro
#push MyVol
#set  MyVol [#DEFAULTS]
VOLUME
OBEY DEFAULTS
VOLUME [MyVol]
#pop MyVol


?section CSAVE     macro
#push WS_VOLUME
#set  WS_VOLUME [#DEFAULTS]
VOLUME
#frame
#push #INLINEPREFIX
#set  #INLINEPREFIX --
edit/INLINE/DEFAULTS !
-- DQ ! F/L
-- 101 /#set PCName      [PCName]/
-- 102 /#set PCServer    [PCServer]/
-- 103 /#set SrcFile     [SrcFile]/
-- 104 /#set ObeyFile    [ObeyFile]/
-- 105 /#set CdVol       [CdVol]/
-- 106 /#set SrcFile     [SrcFile]/
-- 107 /#set COut        [COut]/
-- 108 /#set GSrc [GSrc]/
-- 109 /#set CdVol       [CdVol]/
-- E
VOLUME [WS_VOLUME]
#unframe


?section FILESPEC macro
[#if [#fileinfo /existence/ %1%] |then|
    #output /hold/ [#fileinfo/fullname/ %1%]
    #output /column 35,hold/
    [#case [#fileinfo /filestructure/ %1%]
         |0| #output /hold/ U:
         |1| #output /hold/ R:
         |2| #output /hold/ E:
         |3| #output /hold/ K:
         |otherwise| ]
    #output /column 37,hold/ [#fileinfo/eof/ %1%]
    #output /column 44,hold/&
        [_CONTIME_TO_TEXT [#CONTIME [#fileinfo/modification/%1%]]]
    #output /column 72,hold/ [#fileinfo/owner/ %1%]
|else|
    #output /hold/ File %1% does not exist ]
#output


?section SCUPINFO macro
#frame
#push OUTLIST
SCUP /OUTV OUTLIST/INFO %*%
#output [#LINEGET OUTLIST 1 FOR 1]
#output [#LINEGET OUTLIST 5 FOR 1]
#unframe


?section PRINT macro
FUP COPY %1%,$P
[#if [#empty %2%] |then| |else| PRINT %2 to 99%]


?section SQCOST macro
SQLCOMP/IN $DEV2.TESTOBJ.%1%,OUT $P.#SQCOST/ &
STOREDDEFINES EXPLAIN PLAN NORECOMPILE


?section LOG macro
[#if [#empty %1%] |then|
  EDIT $DEV2.TEST.LOG2009;XVS L-20;E
|else|
  #frame
  #push #out
  #set  #width 230
  #push  wYY wMM wDD wHH wMI
  #setmany  wYY wMM wDD wHH wMI, [#contime [#timestamp]]
  [#IF [wYY]< 10 |then| #set wYY 0[wYY]]
  [#IF [wMM]< 10 |then| #set wMM 0[wMM]]
  [#IF [wDD]< 10 |then| #set wDD 0[wDD]]
  [#IF [wHH]< 10 |then| #set wHH 0[wHH]]
  [#IF [wMI]< 10 |then| #set wMI 0[wMI]]
  #set  #out $DEV2.TEST.LOG[wYY]
  #output [wMM]/[wDD]/[wYY] [wHH]:[wMI]-> %*%
  #set  #width 80
  #pop  #out
  #unframe
]

?section sv macro
fup subvols %1%


?section CLS macro
#frame
 [#DEF ascii STRUCT
  BEGIN
  BYTE byt5(0:1)
   value 27 73;
  CHAR clr(0:1)
   redefines byt5;
  END;
 ]
#output [ascii:clr(0:1)]
#unframe


?section IMP     macro
var tst_src %1%
[#if [#fileinfo/existence/[tst_src]] |then|
    GO fup dup [tst_src], $tech1d.turnover.[tst_src],purge
]
[#if [#empty %2%] |then| |else| IMP %2 TO 99%]


?section GL      macro
var tst_src %1%
purge x
edit listing.[tst_src] p x


?section GS macro
var tst_src %1%
EDIT;SET TABS 10 20 30 40 50 60 70;SET JOIN 80;G [tst_src]
?section FS ALIAS
FINDDATA

?section CALC ALIAS
COMPUTE


?section dir ALIAS
fileinfo

?section fs alias
 finddata

?section grep alias
 finddata


<< 09/2008 < 08/2009 Calendar 10/2009 > 09/2010 >>Sign InView Other Logs