Here is a list of my favorites:
| Favorite Ancient Civilization | : | Maya | ||||||
| Favorite Animals | : | Cobra , Firefox & Panda | ||||||
| Favorite Astronomy | : | Eclipse & Sun | ||||||
| Favorite Drinks | : | Java | ||||||
| Favorite Flights | : | Apache & Tomcat | ||||||
| Favorite Fruits | : | Apple, Blackberry & Orange | ||||||
| Favorite Girl | : | Ruby | ||||||
| Favorite Heroine | : | Oracle | ||||||
| Favorite Legends / Mythology | : |
| ||||||
| Favorite Painter | : | Michelangelo | ||||||
| Favorite Professionals | : | Ada & Pascal | ||||||
| Favorite Snacks | : | cookies & hot dog |
Sometimes if the file name is too long, some application will not work properly. So, it is better to make the name short. What is the length of the file name now ?
Instead of counting by fingers, I have written this JScript named filename_length.js :
// -------------------------------------------------------------
// Licence Information:
// --------------------
// This coding is offered at no charge for
// NON-COMMERCIAL PERSONAL USE only.
// The coding is copyright.
// Reproduction of this coding in whole or in part
// in any form without the express written permission
// of the author is strictly prohibited.
// -------------------------------------------------------------
// Disclaimer :
// ------------
// This coding is distributed "as is" and is UNSUPPORTED.
// NO WARRANTY of any kind is expressed or implied.
// You use AT YOUR OWN RISK.
// The author will not be liable for any data loss,
// damages, and loss of profits or any other kind of
// tangible or intangible loss while using or
// misusing this coding.
// -------------------------------------------------------------
// Purpose: Display the length of the filename(s)
// as well as the length of the fullpath filename(s).
// If there are multiple files,
// the whole list of files will be displayed line by line
// with the length of the fullpath filename inside brackets
// And, at the end, the file(s) with the longest length
// will be identified (except when all files are with same
// length).
// Noted : This script counts the number of characters in the name,
// not the number of byte. Double-byte character (e.g.
// Chinese) is counted as 1 in the filename length.
// For example, a filename with 4 Chinese characters will
// give a length of 4 (even though the name occupies 8 bytes).
// Limitation: 1. The total number of files passed to this script
// cannot be too large because this will trigger the
// error - arguments list is too long
// 2. When filename is with Unicode characters, some
// application cannot open it because the application
// does not use Unicode-API.
// This script also cannot display Unicode filename
// correctly. Instead, a Question Mark will be seen.
// Platform : Windows XP
// Installation: 1. Put this script in the any folder you like
// 2. Go to the Send To folder
// 3. Create a shortcut to point to this script
// Usage : Inside any folder,
// 1. Select one (or multiple) file
// 2. Right-Click
// 3. Select Send To
// 4. Select the shortcut of this script
// The information will be dislayed in a pop up window.
// After reading, click OK to quit.
// Author : Alvin SIU
// Date : 2007-11-28
//-------------------------------------------------------------
var fso= WScript.createObject("Scripting.FileSystemObject");
var args= WScript.arguments;
//-------------------------------------------------------------
// Ensure at least 1 argument
//-------------------------------------------------------------
if (args.length == 0) {
WScript.Echo('The script requires argument(s)');
WScript.Quit()
}
//-------------------------------------------------------------
// Main program
//-------------------------------------------------------------
var dasFullpathFilename ;
var dasFilename ;
var dasCount ;
dasCount= 0 ;
var dasLongest ;
dasLongest= 0 ;
var dasLongestString ; // Store all filenames with longest length
dasLongestString= '';
var k ;
var dasString ;
dasString= '' ;
var dasString1 ;
var shorter ; // When all files are with same length,
shorter= false ; // both the longer and shorter flags
var longer ; // will be false.
longer= false ;
var dasCount ;
dasCount= 0 ;
for ( k= 0 ; k < args.length ; k++) {
dasFullpathFilename= args(k) ;
dasFilename= fso.GetFileName(dasFullpathFilename);
dasCount++ ;
dasString1= '[' + dasCount + '.] '
+ dasFilename.length + ' ( '
+ dasFullpathFilename.length + ' ) '
+ dasFilename + '\n';
dasString+= dasString1 ;
if (dasFilename.length > dasLongest) {
if (k > 0) longer= true ;
dasLongest= dasFilename.length ;
dasLongestString= dasString1 ;
}
else if (dasFilename.length == dasLongest) {
dasLongestString+= dasString1 ;
}
else shorter= true;
}
if (k > 1) {
if (shorter | longer) {
WScript.Echo( dasString
+ '\nThe Longest Filename is/are :\n'
+ dasLongestString);
}
else {
WScript.Echo( dasString );
}
}
else {
WScript.Echo( dasFilename.length + ' : '
+ dasFilename+'\n'
+ dasFullpathFilename.length + ' : '
+ dasFullpathFilename);
}
//-------------------------------------------------------------
// End Of Script
//-------------------------------------------------------------
|
It is very simple to use alternate line shading in program coding like this :
program Hello_World;
begin;
writeln('Hello World !');
writeln('This is a demo for alternate line shading.');
end. |
 |
The alternate line shading in the above example are simply implemented by repeating the image at the left. |
This demo shows alternate line shading for 5 different shadings :
All animals are equal, but some animals are more equal than others. They are ... Administrators.
Better late than never. Better never be late.
Curiosity killed the cat. Who kill the Cat Woman ?
Do as I say, and not as I do. How about when you say 'I do' ?
Early bird catches the worm. Early programmer catches the bug.
Failure is the mother of success. Program failure is a shit.
Garbage in, garbage out and garbage inside out.
Hello World ! Halloween !
I am serious. It was a joke. I am just kidding.
Java, cookies together with the Sun : this is my breakfast.
Keep your mouth shut and your ear, eye, mind, source-code, ... open.
Life is just a bowl of cherries, and ... honeys.
Money($) is not everything, but no money makes you a nothing.
Nothing is impossible. Impossible is nothing. Is nothing impossible ?
Orz
Practice makes perfect. Illegal practice makes money.
Quality rather than quantity. But, man-day is a measure for quantity.
Rome was not built in one day, so did computer systems.
Simple is beautiful. Simple mind is brilliant. Simphson is ...
There are 10 types of people in the world: Those who understand binary, and those who don't.
Universe in a nutshell. C, C++, Java, Perl, SQL, Unix, ... also in a nutshell.
Vision without action is merely a dream. Action without vision just passes time.
Wonder is the beginning of wisdom. Wonder Woman is ... WoW !
XD :) XP (^o^) (^0^) (^O^) ... 囧囧
You jump, I jump !
Z notation is ...
|
 |
The alternate line shading colors in the above example are implemented by repeating the image at the left. |
Licence Information: All coding in this article is offered at no charge for NON-COMMERCIAL PERSONAL USE only. The coding is copyright. Reproduction of this coding in whole or in part in any form without the express written permission of the author is strictly prohibited. Disclaimer : All coding in this article is distributed "as is" and is UNSUPPORTED. NO WARRANTY of any kind is expressed or implied. You use AT YOUR OWN RISK. The author will not be liable for any data loss,damages, and loss of profits or any other kind of tangible or intangible loss while using or misusing this coding. |
Every time when I login the Renewal of Libarary Materials of Hong Kong Public Libraries and the eTax of Inland Revenue Department of Hong Kong to perform any taxation related activities, Firefox 3.0.4 will pop up to ask me to add the site as exception. So far I was asked 3 times because in each time I was re-directed to a different server , namely etax11, etax21 and etax22. This is quite troublesome.
So, the best way is to add the Hong Kong Post as a trusted CA in Firfox.
To do so, the first step is to get the certificate of Hong Kong Post.
|
Then, follows these steps
|
Now the Hongkong Post is one of the trusted CA in your Firefox. When going to the sites having certificates issued by Hongkong Post, it will be trust and will not prompt for add exception in Firefox.
For example, when you go to Hong Kong Public Libraries for books renewal, the site will be trusted. At the bottom right corner of the status bar, there is a site name libcat.hkpl.gov.hk with a lock button. Double-click the lock button and then the View Certificate button will see the certificate.
BTW, as at 2008-11-28, the eTax of Inland Revenue Departement of Hong Kong still cannot support the browser Firefox 3. However, as at 2009-02-05, Firefox 3 can be used to login the eTax.
Although we use Google everyday, do you really know about some advanced technique.
This URL www.googleguide.com - Special Characters: Summary show some useful search operators (e.g. + - ~ OR | .. *) in Google search.
The URL also contains some other userful information of Google search.
When you drag a file (e.g. index.htm) from the Temporary Internet Folder to a standard folder, the file is renamed with square brackets with a number inside (e.g. index[1].htm or index[2].htm).
The URL SCRIPTING REMOVE BRACKETS REVISITED has a JScript to remove this square brackets. The steps are :
|
Then, the file will be renamed with square brackets removed.
After numerous trials and errors and searching the net, I finally can partially run the Localization Demo of BlackBerry in Eclipse 3.4.1.
By default, the simulator's language is English. So, the followings are the steps to call the application in English :
|
To test the Demo in German, one have to add the German language into the simulator. For example, when using the simulator 9530, edit the 9530.xml to locate the line:
<application>net.rim.blackberry.lang.en_GB</application> |
<application>net.rim.blackberry.lang.de</application>
|
|
For France, in the 9530.xml add the following lines under it :
<application>net.rim.blackberry.lang.fr</application>
|
BTW, I have tried the followings language but seems that 9530 simulator does not support them :
|
There are many web sites having the standard emailto: protocol for you to directly email to the web site owner. For example, you can click this hyperlink to email to me. Traditionally, once you click this emailto link, it will call a pre-installed email software in your PC to open a email compose window for you to write and send email. But nowadays, with Firefox 3 we can use webware instead of software to handle this email matter. Firefox can use Gmail and Yahoo email to handle this mailto: protocol.
Here are the steps :
|
|
Now, Firefox will call gmail to handle the mailto: link.
As a reminder, sometimes, the mailto: link may be inside a frame of the web page. In this case, Firefox will switch to Gmail inside that frame. If that frame is too small, you have to :
|
Today when I open gmail, there is a highlight conerning gmail theme. After reading my mails, I go to [ Settings > Themes ] to have a look. When I try it out, it is great.
After trying some themes, finally I choose the Phantasea. Its background is green and the theme is cool !
Together with color labels, this give a new look to my gmail.
For details of themes, please visit the official Gmail blog.
After un-plug the servers of McColo Corp, the volume of junk email dropped drastically.
For details, please visit these URLs:
Nowadays, setting up a web server for internal use in a company intranet is very common. But, sometimes when your browser reports that you cannot connect to the main page of your web server, what can you do ?
Here is some simple diagnostic steps (assuming that the web server IP is 10.20.30.40) :
ping 10.20.30.40
|
If you can ping the machine, the machine is proved to be up and running and is connected to the network.
telnet 10.20.30.40 80
|
Connecting To 10.20.30.40...
Could not open connection to the host, on port 80
Connect failed
|
get
|
<html> ..... .... .....
...... ..... ............. .... ....
Connection to host lost.
|
Steps 1 and 2 confirm that the web server is up and running. If your browser still cannot display the HTML page, the problem must be in the client side, i.e. your own PC.
Here are some suggested actions:
Disclaimer : All coding/commands in this article is distributed "as is" and is UNSUPPORTED. NO WARRANTY of any kind is expressed or implied. You use AT YOUR OWN RISK. The author will not be liable for any data loss,damages, and loss of profits or any other kind of tangible or intangible loss while using or misusing this coding/commands. |
data view=myLib.myView ;
describe ;
run;
|
proc sql ;
describe view myLib.myView ;
quit;
|
Copyright/Licence Information:
All information and coding in this article is offered at no charge for NON-COMMERCIAL PERSONAL USE only. |
Disclaimer: All information in this article is distributed "as is" and is UNSUPPORTED. NO WARRANTY of any kind is expressed or implied. You use AT YOUR OWN RISK. The author will not be liable for any data loss, damages, and loss of profits or any other kind of tangible or intangible loss while using or misusing wholly or partly of the information. |
Sometimes when doing time related calculation, the final values are in second.
For example, downloading a 369,300 byte file with a speed of 100 byte/second, the time required is 3693 seconds. Then, what is the hour-minute-second of 3693 seconds ?
Using Excel, there is a formula called time(). Put this formula into a cell :
=time(0,0,3693)
|
Then, format the cell with :
hh:mm:ss
|
The cell will display 01:01:33 (i.e. 1 hour 1 minute and 33 seconds).
The font appearance in Windows XP for some LCD monitor under some resolution setting can be looked better by choosing the ClearType method to smooth the edge of fonts.
Here is the steps:
|
I have used Firefox for a long time. Just wonder why there is no such thing as duplicating a tab. This action is similar to Ctrl-N to duplicate a window.
With Firefox 3 (actually I am using 3.0.4 today), when you right-click on a tab, there is still no such feature. However, there is really a duplicate tab functionality in Firefox 3. All you have to do is to :
If you make the above steps in another sequence :
Now, my wonder is : why don't just make the whole thing more simple ? Maybe just right-click on the tab to pop-up a menu to choose [ duplicate tab ]. Then, simply duplicate the tab at the rightmost. This is far most user friendly than the existing Ctrl-key-drag method.
Today, I have to install the Firefox 3.0.3. Therefore, I have also to re-install those useful plugins. Here are them:
This plugin will add a menu in the Tool menu.
For first use, please remember to input the default file saving location.
Then, for any web page, simply choose [ dTa One Click! ] menu item from the [ Tools > DownThemAll Tools ] menu, all the images, etc will be saved to the default file saving location.
Sometimes, some web page will display this string, e.g. http://www.orbis.org , as normal text, not a hyper link. You have to open a new tab, and then cut and paste the string into the address box.
This plug-in is very helpful. You simply highlight the text, and then right-click. A pop-up menu will be displayed and you can choose [ open selected link ] to open it.
I like to config this plug-in to open in a new tab.
This plug-in allows you directly use the IE Favorites inside Firefox. No need to do any import or export activities. After installing this plug-in, you will see the [ Favorites ] menu item just next to the [ Bookmarks ] item in the menu bar.
This plug-in will search some predefined dictionary after you highlight a word. So far, all are English-English dictionary. You cannot config to use your prefer English-Chinese dictionary.
After installation, simply double-click a word will see a small icon (look like a book). Put the mouse over the icon will pop-up a dictionary content.
This plug-in is helpful for using your own prefer dictionary. For my case, I have try the Yahoo and sina dictionary. They can give the meanings in Chinese.
This version 0.2.7 cannot be installed in Firefox 3.0.4 To make it happen, you have to follow this procedure (by outyarder on July 21, 2008 documented in the review comment section)
|
After installation, config the option to use Alt - Click.
In the URL box, input the URL for calling the dictionary. For yahoo dictionary, input the following :
http://hk.dictionary.yahoo.com/search.html?s=$ |
http://dictionary.sina.com.hk/p/word/$ |
At last, click OK to save.
Then, in any web page, you can press the Alt key and then click on any English word. Then, a new window will be pop-up by the sina dictionary with the meaning.
The shortcoming is that you cannot work on words inside a hyperlink string because by default Alt-Click a hyperlink will auto-download the URL. (BTW, Ctrl-Click will auto open hyperlink in new tab and Shift-Click will open in new window.)
This add-on can allow you to resize the box when you bookmark this page. Also, it can show the bookmark tree immediately when you bookmark this page.
In unix, I would like to put my helpful utilities inside a directory [ util ] under my $HOME. Then, I will put this directory as the first directory in the searching path like this:
export PATH=/home/alvin/util:$PATH
|
Putting this statement at in the .profile file, I can use my utilities every time when I login my korn shell.
In mainframe MVS, there is something similar.
Actually, every time when you logon the TSO ISPF session, there is a SYSPROC library allocated to your session. This SYSPROC is similar to the PATH variable in unix. This SYSPROC contains a list of partition datasets. Members inside these partition datasets are those command, CLIST or REXX which you can execute in the TSO session.
Usually, I will put my useful REXX or CLIST (e.g. QDEL as mentioned in my other post) inside a partition dataset named, e.g. ALVIN.MISC.CLISTLIB.
Some sites allow you to customize your login procedure. Then, I can allocate this ALVIN.MISC.CLISTLIB as the first dataset in SYSPROC.
However, some sites do not provide this customization. In this case, once you have successfully login the ISPF panel, you can run the following command :
CONCAT SYSPROC 'ALVIN.MISC.CLISTLIB' FIRST
|
This command will make ALVIN.MISC.CLISTLIB to be the first dataset in the SYSPROC library, just like putting /home/alvin/util as the first directory in the PATH in unix.
Noted that, if you omit the word [ FIRST ], the dataset ALVIN.MISC.CLISTLIB will be concat at the end of the datasets list in SYSPROC.
Comparing the two scenarios, SYSPROC corresponds to the PATH variable. Each allocated PDS datasets corresponds to the directories in the PATH. The PDS dataset members correspond to the files in the directories.
Today when I display the CLIST on my blog, I find out that all the formatting are gone.
Searching the internet, the following article is found to be useful for displaying code snippets on the blog.
http://bguide.blogspot.com/2008/02/howto-add-custom-css-class-to-blogger.html
Following the method documented in the article, I setup a CSS class named mycode. Then, the CLIST code snippets can be displayed in good format.
In mainframe MVS ISPF option 3.4 panel, one can easily delete a dataset. However, if the dataset is already migrated to tape, such a deletion will hold up your session until the dataset is recovered from taped.
To avoid this, I have written a CLIST (called QDEL) to submit batch job JCL to do the deletion. Using batch job, there is no need to wait for those migrated dataaset.
Also, tranditonally, one cannot delete tape dataset in the foreground ISPF 3.4. But, since QDEL will submit a JCL, it can delete tape dataset.
But looking at the coding, it can also delete alias. Sorry that I cannot remember what exactly it is because the CLIST is written more than 10 years ago and I am now no longer working in mainframe platform.
As far as I remember, using this QDEL, I can delete many datasets in the background using batch JCL. I do not need to care whether the dataset is a tape or not, or whether it is migrated, ... etc.
QDEL is one of my favorite utilities. I usually put it as a member of a CLISTLIB which is usually the first allocated dataset of SYSPROC.
Here is the CLIST QDEL :
PROC 1 INDD DEBUG DELETE GDG(N) GEN() CLASS(H) USER()
CONTROL NOFLUSH NOMSG
IF &DEBUG = DEBUG THEN CONTROL MSG LIST NOFLUSH CONLIST SYMLIST
/* ******************************************************************
/* Licence Information:
/* --------------------
/* This coding is offered at no charge for
/* NON-COMMERCIAL PERSONAL USE only.
/* The coding is copyright.
/* Reproduction of this coding in whole or in part
/* in any form without the express written permission
/* of the author is strictly prohibited.
/* ******************************************************************
/* Disclaimer :
/* ------------
/* This coding is distributed "as is" and is UNSUPPORTED.
/* NO WARRANTY of any kind is expressed or implied.
/* You use AT YOUR OWN RISK.
/* The author will not be liable for any data loss,
/* damages, and loss of profits or any other kind of
/* tangible or intangible loss while using or
/* misusing this coding.
/* ******************************************************************
/* NAME : QDEL
/* PURPOSE: BATCH DELETE DSN
/* AUTHOR : ALVIN SIU
/* *******************************************************************
/* MDIFICATIONS:
/* -------------
/* 1. ADD FUNCTION TO DELETE ALIAS
/* 2. ADD DOUBLE CONFIRMATION "DELETE"
/* 3. FIX SMALL BUG ON ALIAS CHECKING
/* 4. ADD ENVIRONMENT SAVE/RESTORE AND QUITING
/* IN ORDER TO HANDLE THOSE PROFILE-PREFIX
/* 5. DO NOT DELETE A MEMBER OF PDS
/* BECAUSE DELETE DDNAME(MEMBER) WILL
/* ACTUALLY DELETE THE WHOLE "DDNAME" DATASET
/* *******************************************************************
NGLOBAL PARM0
NGLOBAL OPREFIX
SET PARM0 = QDEL
SET MYDD = &STR(&INDD)
/* ---------------- */
/* SAVE ENVIRONMENT */
/* ---------------- */
SET OPREFIX = &SYSPREF
PROFILE NOPREFIX
/* ------------ */
/* DISPLAY HELP */
/* ------------ */
IF &STR(&MYDD) = &STR(?) OR &STR(&MYDD) = &STR(HELP) THEN +
DO
CLEAR
SYSCALL USAGE
SYSCALL QUITING 0
END
/* ------------------------------- */
/* ENSURE CANNOT DELETE PDS MEMBER */
/* ------------------------------- */
SET LP = &STR((
SET RP = &STR())
IF &SYSINDEX(&STR(&LP),&INDD) GT 0 +
OR &SYSINDEX(&STR(&RP),&INDD) GT 0 THEN +
DO
WRITE QDEL &INDD
WRITE
WRITE ERROR: CANNOT DELETE A MEMBER IN A PARTITION DATASET
SYSCALL QUITING 20
END
/* ------------------- */
/* DOUBLE CONFIRMATION */
/* ------------------- */
IF &DELETE = DELETE THEN SET TMP = 0
ELSE DO
WRITE QDEL
WRITE ERROR: PLEASE ADD THE WORD "DELETE" AS A DOUBLE
WRITE CONFIRMATION.
SYSCALL QUITING 21
END
/* ------------- */
/* REMOVE QUOTES */
/* ------------- */
SET QUOTED = NO
SET L = &LENGTH(&STR(&MYDD))
SET L1 = &L - 1
IF &STR(&SUBSTR(&L:&L,&STR(&MYDD))) = &STR(') THEN +
DO
SET MYDD = &SUBSTR(1:&L1,&STR(&MYDD))
SET QUOTED = YES
END
SET L = &LENGTH(&STR(&MYDD))
IF &STR(&SUBSTR(1:1,&STR(&MYDD))) = &STR(') THEN +
DO
SET MYDD = &SUBSTR(2:&L,&STR(&MYDD))
SET QUOTED = YES
END
IF "ED = NO AND &OPREFIX ¬= THEN +
SET MYDD = &OPREFIX..&MYDD
SET L = &LENGTH(&STR(&MYDD))
/* ------------------- */
/* FIND OUT THE SUFFIX */
/* ------------------- */
SET TMP = &STR(&MYDD)
SET I = 1
SET S = 1
SET J = -1
DO WHILE &I > 0
SET I = &SYSINDEX(&STR(.),&STR(&TMP),&S)
IF &I > 0 THEN SET J = &I
SET S = &J + 1
END
IF &J = -1 THEN SET SUF = &STR(&MYDD)
ELSE SET SUF = &SUBSTR(&S:&L,&STR(&MYDD))
/* -------------- */
/* CHECK IF ALIAS */
/* -------------- */
SET &SYSOUTTRAP = 1000
LISTCAT ENTRY(&MYDD) ALL
SET LINE001 = &&SYSOUTLINE1
SET &SYSOUTTRAP = 0
IF &STR(&SUBSTR(1:5,&STR(&LINE001 ))) = &STR(ALIAS) THEN +
SET ISALIAS = Y
ELSE SET ISALIAS = N
/* ------------ */
/* CHECK IF GDG */
/* ------------ */
IF &STR(&GEN) = &STR() THEN SET J = 0
ELSE DO
IF &GEN > 0 THEN +
DO
WRITE ERROR: INVALID OPTIONAL PARAMETER - GEN
WRITE GEN SHOULD BE A NUMERIC GENERATION FOR GDG DATASET
WRITE CURRENT VALUE IS <&GEN>
WRITE BUT ITS VALUE SHOULD BE 0 OR NEGATIVE
SYSCALL QUITING 22
END
SET MYDD = &STR(&MYDD(&GEN))
END
/* ---------- */
/* SUBMIT JCL */
/* ---------- */
SET TMP1 =
IF &ISALIAS = Y THEN SET TMP1 = ALIAS
ELSE IF &GDG = Y THEN SET TMP1 = GDG
WRITE &PARM0 - DELETE &TMP1 DATASET &MYDD
SET XXX = &STR(//**)
SUBMIT * END($$)
//&SYSUID.D JOB (AAAAAA,BBBBBB),
// '&SUBSTR(1:20,&STR(DELETE &SUF ))',
// NOTIFY=&SYSUID,
// CLASS=&CLASS,
// MSGCLASS=X,MSGLEVEL=(1,1),
IF &USER ¬= THEN +
// USER=&USER,
// REGION=1M
&XXX
&XXX*******************************************************************
&XXX PURPOSE : BATCH DELETE DATASET
&XXX &STR(&MYDD)
&XXX JOB OWNER: &SYSUID
&XXX DATE : &SYSSDATE - &SYSTIME
&XXX*******************************************************************
&XXX
IF &ISALIAS = Y THEN DO
//DEL#ALIA EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
&STR( DELETE &STR(&MYDD) - )
&STR( ALIAS )
&STR(/* )
END
ELSE +
IF &GDG = Y THEN DO
//DEL#GDG EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
&STR( DELETE &STR(&MYDD) - )
&STR( GDG FORCE PURGE )
&STR(/* )
END
ELSE DO
//DEL#DD EXEC PGM=IEFBR14
//DD1 DD DISP=(OLD,DELETE,DELETE),
// DSN=&STR(&MYDD)
END
//
//
$$
WRITE JOB SUBMITTED
SYSCALL QUITING 0
END /* OF CLIST */
USAGE: PROC 0
/* ***************************************************************** */
/* PURPOSE: DISPLAY USAGE HELP
/* ***************************************************************** */
IF &OPREFIX = THEN SET PP =
ELSE SET PP = &STR(&OPREFIX..)
WRITE &PARM0 - SUBMIT JCL TO DELETE A QSAM, A GDG BASE OR A GDG +
GENERATION
WRITE
WRITE EXAMPLE:
WRITE - &PARM0 MY.PROJECT.QSAM
WRITE DELETE THE QSAM DATASET '&STR(&PP)MY.PROJECT.QSAM'
WRITE - &PARM0 'MY.PROJECT.QSAM1'
WRITE DELETE THE QSAM DATASET 'MY.PROJECT.QSAM1'
WRITE - &PARM0 MY.PROJECT.GDGBASE GEN(0)
WRITE DELETE A GDG GENERATION '&STR(&PP)MY.PROJECT.GDGBASE(0)'
WRITE - &PARM0 MY.PROJECT.GDGBASE GEN(-1)
WRITE DELETE A GDG GENERATION '&STR(&PP)MY.PROJECT.GDGBASE(-1)'
WRITE - &PARM0 MY.PROJECT.GDGBASE GDG(Y)
WRITE DELETE A GDG BASE '&STR(&PP)MY.PROJECT.GDGBASE'
END /* OF PROC USAGE*/
QUITING: PROC 1 XCODE
/* ******************************************************************
/* PURPOSE: EXIT CLIST WITH ENVIRONMENT RESTORED
/* ******************************************************************
/* ------------------- */
/* RESTORE ENVIRONMENT */
/* ------------------- */
IF &OPREFIX ¬= THEN PROFILE PREFIX(&OPREFIX)
/* ---- */
/* EXIT */
/* ---- */
EXIT CODE(&XCODE)
END /* OF PROC QUITING */
|
With this CLIST, in the ISPF option 3.4 panel like this:
ALVIN.PROJECT1.QSAM1 DD1233
ALVIN.PROJECT1.QSAM2 DD1234
ALVIN.PROJECT1.QSAM3 DD1235
ALVIN.PROJECT1.QSAM4 MIGRAT
ALVIN.PROJECT1.QSAM5 MIGRAT
ALVIN.PROJECT1.TAPE1 T12345
ALVIN.PROJECT1.TAPE2 T12346
ALVIN.PROJECT1.TAPE3 T12347
|
ALVIN.PROJECT1.QSAM1 DD1233
ALVIN.PROJECT1.QSAM2 DD1234
ALVIN.PROJECT1.QSAM3 DD1235
ALVIN.PROJECT1.QSAM4 MIGRAT
ALVIN.PROJECT1.QSAM5 MIGRAT
qdel / delete PROJECT1.TAPE1 T12345
ALVIN.PROJECT1.TAPE2 T12346
ALVIN.PROJECT1.TAPE3 T12347
|
| Copyright/Licence Information: All information and coding in this article is offered at no charge for NON-COMMERCIAL PERSONAL USE only. This blog and the coding is copyright. Reproduction of this blog and its coding in whole or in part in paper or digitally or in any other forms without the explicit written permission of the author is strictly prohibited. |
| Disclaimer: All information in this article is distributed "as is" and is UNSUPPORTED. NO WARRANTY of any kind is expressed or implied. You use AT YOUR OWN RISK. The author will not be liable for any data loss, damages, and loss of profits or any other kind of tangible or intangible loss while using or misusing wholly or partly of the information. |
Think about this story : there is a big data warehouse department in a company. The DW department unix machine has to download numerous files from various other departments in order to collect data to build the warehouse.
How to do the download ? Actually, the script will call a third party file transfer software.
For this situation, there are many outstanding questions :
| Due to license issue, the third party file transfer software only allows a max download session of 4. If there are 6 scripts kick-out by the job scheduler, what will happen ? Can the third party file transfer software put the requests queuing ? Or, will it just turn down the all upcoming requests ?
How about, for example, job script-1 & job script-2 are monthly jobs, script-3 & script-4 are weekly jobs and script-5 & script-6 are daily jobs. The files in monthly job scripts (e.g. script-1 and script-2) are very large. They take a long time for transfer. The files in daily job scripts (e.g. script-5 and script-6) are relatively smaller, just a few hours or minutes are required. But, the daily job scripts have a batch running window of approx 24 hour only. They must finish the file downloading within one day. On the next day, there is a new daily batch. Can the third party file transfer software prioritize the transfer requests ? What happen when all the 4 downloading sessions are occupied by the files of the monthly job scripts ? Can the third party file transfer software let the daily job scripts to jump queue to do the downloading once a monthly file finishes its downloading ? If the transfer software only serves the request in a first-come-first-serve basis and the monthly job scripts appear first, all the monthly file transfer will be answered first. Then, the daily job scripts may face starvation. What happen when the third party software is hang up ? Will the job scripts get notified ? Or, will the job script simply wait infinitely ? Will the human being production system support get alerted ? When that third party file transfer software is down, what happens to all the downloading job scripts ? Can all the job scripts automatically switch to use another file transfer software ? If the DW department wants to upgrade the third party file transfer software or to replace it by another software, will the job script affected ? |
To tackle all these questions, one solution is to build a centralized file transfer request manager as an agent or a middle-man between the job scripts and the third party file transfer software.
First of all, the DW job scripts should not call the third party file transfer software directly. Instead, they will submit the file transfer requests to the file transfer request manager and then go sleeping. For example, job script-1 will submit the request of file-A, file-B, file-C, file-D & file-E to the manager and then go sleeping for 2 days. After 2 days, if all the 5 files are not received, the job script-1 should raise a non-zero return-code to the job scheduler to signal the production system support personnel, similarly for script-2. For script-3 and script-4, since they are weekly jobs, sleeping hour is only 1 day. For daily job script-5 & script-6, they can only sleep for a few hours. Each job script can control its own sleeping hours, depending on the average file transfer time of the job script.
On receiving the file transfer requests, the manager can then call the third party file transfer software to perform the actual file downloading.
Normally, the request is done in a first-come-file-serve basis. However, the manager can also allow daily jobs to jump queue. Daily jobs should have a higher priority always.
Also, the manager can control over the max file transfer session. If there are already 4 files performing transfer, the manager simply put all upcoming request queuing. Also, the manager can further control that each job can only occupy at most 2 file transfer sessions in order to avoid one single job to use up all the 4 sessions.
The manager should totally take care about the third party file transfer software. If the third party software is down, the manager should alert the human being production system support (i.e. PSS). After investigation, if the bug cannot be fixed shortly, this PSS can instruct the manger to switch to use another file transfer software. This is transparent to the DW job scripts.
For the handshaking between the manager and the job scripts, the manager to send signal to the job script to report whether the file transfer is successful or fail. When receiving a successful signal, the DW job script can do some post processing.
For example, when all the file-A, file-B, file-C, file-D & file-E are downloaded successfully, the manger can alert the job script-1. Another method is to let the job script-1 to count whether all the 5 files are downloaded, the manager does not perform the counting. When all the 5 files are downloaded successfully, job script-1 should wake up from sleeping (job script-1 sleeps at most 2 days). Then, job script-1 should give a zero return-code to the job scheduler to indicate job successfully complete so that the scheduler can kick-out job(s) in the downstream.
When there is a software upgrade, only the manger is affected. The DW job scripts are totally transparent.
Furthermore, the manager can be enhanced to classify and distribute requests to different multiple queues. The requests of some VIP DW job scripts can go to high priority queues which is always served first. Those requests from some can-be-wait job scripts should go to lower priority queues. Also, maybe different queues are using different third party file transfer software. Maybe some queues are using software for secured channel to provide higher security level with maybe slower performance.
By the way, although this article is talking about file downloading, everything can also be applied to uploading as well. In other words, this situation and the file request manager can actually handle both file downloading / receiving / pulling as well as file uploading / sending / pushing. There can be out-queues and in-queues in the manger.
In Windows XP, there is a quick way to go to the application data folder of the current user.
%APPDATA% |
Then, the a new explorer window will be opened to take you to
C:\Documents and Settings\XXXXXX\Application Data |
