System i Blogger

January 23, 2009  1:14 PM

Trial: IBM Lotus Expeditor V6.2 toolkit

David Vasta David Vasta Profile: David Vasta

LINK :: IBM Lotus Expeditor v6.2 Toolkit Download

Download IBM® Lotus® Expeditor 6.2 toolkit at no charge to see how easily you can leverage your OSGi™ foundation and Eclipse™ platform skills to develop and extend composite applications to managed clients — used online or offline.

IBM® Lotus® Expeditor software is IBM’s universal desktop client integration framework. It assists developers in integrating a wide variety of client and server applications in composite applications to optimize the information that your employees need to accelerate your business processes. Use it to extend your IBM Lotus or IBM WebSphere® Portal (or other IBM WebSphere or Eclipse™) or other application infrastructures such as Microsoft applications. Lotus Expeditor software supports laptops, desktops, kiosks and mobile device clients.

Lotus Expeditor Integrator software provides a local concentrator and integration hub for transactional messaging for satellite locations of an enterprise such as retail outlets or remote offices. Lotus Expeditor software provides the flexibility of service oriented architecture (SOA) and a standards-based programming model from the OSGi™ alliance and the Eclipse foundation. The client integration software is the follow-on release of IBM WebSphere Everyplace® Deployment and IBM® Workplace™ Client Technology products.

The Lotus Expeditor wiki includes information that will help get started in installing and using the toolkit.

January 16, 2009  2:10 PM

WKOW – Bashes Ubuntu and they end up paying for it

David Vasta David Vasta Profile: David Vasta

Ubuntu is a decent OS, and by the looks of everything coming out of Redmond (Microsoft) latley it’s starting to look better each day. Maddison, WI local TV station WKOW and it’s local help the people person took up some poor woman assertion that DELL was screwing her out of her college education. While blame is ofter easy to point this was a stretch at best.

The young woman, Abbie Schubert, ordered a DELL Laptop from you guessed it, DELL. I would consider her an uneducater buyer who should have maybe gone into Best Buy and not used and computer to order her computer. You have to go out of your way to find the DELL Ubuntu site and order a DELL with Ubuntu. If she would have gone to the main DELL site and just ordered a laptop no one would know who the hell she is and I would not have a post this week.

So she ordered this DELL Ubuntu Laptop, which t no point said Windows or anything about WIndows when she ordered it. I don’t know how she assumed WIndows would end up on it, unless she is really that stupid, and I don’t want to start calling her stupid, but the question begs to be asked.

Then the reported asserts that the Virizon Software won’t load on Ubuntu…well no duh? It won’t load on a Mac either you dufus. And that it didn’t come with Microsoft Word. The world does not rotate around Microsoft Word. While it’s nice to have Word, you don’t need it. I have not used it on my personal laptop in over 4 years. I have even attended college and turned in “word” documents that were typed on Open Office and no one as the wiser.

Lastly I would like to point out the part of the story that I talk a lot about in my personal and buisness life. Running a computer today is like knowing how to operate the shower, or turn on the TV, or drive and operate your car. You need to be able to use a computer and understand what you are doing. I am not trying to be a super geek or dictate anything, I am just making a point. There is a very large group of young people out there who do undrstand computers and do “get IT” and in the next 10 years they are going to start taking over the work market and the colleges becasue computers are just things in their lives and the OS does not matter and the programs do not matter. They all know what they are doing and they are good. What I have learned bout computers in the past 20+ years they come out of high school with and then move onto college.

The follow up story from WKOW takes into account that a fairly large group of people who get it and stand by Ubuntu made contact with them for the poor light they shed on the poor little OS. I commend the station for being bold enought to do a folllow up peice.
Now if we could only get the IBM i devotees of the world to stand up like that in the work place the next time someone says something dicouraging about he IBM i or even threatens to remove it.

January 12, 2009  10:02 PM

Survey :: Military Living in Japan – I need your help

David Vasta David Vasta Profile: David Vasta

Hello Reader – If you were in the Military and were stationed in Japan please, please, please take this survey. There is this really nice guy working on his college degree and needs information about you being in the military and being stationed in Japan. You know how hard it was and he wants to know more about that visit. Please please please help him out.

Here is the Link to take the survey:

Japan, Navy, US Navy, Sasebo, Yokuska, Marines, Army, Air Force

January 9, 2009  5:14 PM

CL – To get record count for all the Physical Files (PF) in a library

David Vasta David Vasta Profile: David Vasta

CLLE – To get record count for all the PF’s in library
Posted By: Nanda Kishore Perisetla Contact

  START:      PGM        PARM(&LIB)
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&CNT) TYPE(*DEC) LEN(10)
             DCLF       FILE(CNTFILE)
             DLTF       FILE(QTEMP/COUNTF)
             MONMSG     MSGID(CPF0000)
             DLTF       FILE(QTEMP/RECCNT)
             MONMSG     MSGID(CPF0000)
             MONMSG     MSGID(CPF7302)
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/CNTFILE)
 LOOP:       RCVF
             OVRDBF     FILE(RECCNT) SHARE(*YES)
             IF         COND((&ODOBAT *EQ 'PF') *OR (&ODOBAT *EQ +
                          'PF38')) THEN(DO)
             DSPFD      FILE(&LIB/&ODOBNM) TYPE(*MBR) +
                          OUTPUT(*OUTFILE) FILEATR(*ALL) +
                          OUTFILE(QTEMP/RECCNT) OUTMBR(*FIRST *ADD)
             GOTO LOOP
             CALL       PGM(*LIBL/RCDCNTRPG)
 END:        ENDPGM

This bit of CL s very useful and is a good example.

January 9, 2009  5:10 PM

CL – Convert a date to julian in CLP

David Vasta David Vasta Profile: David Vasta

Convert a date to julian in CLP
Posted By: Jamie Flanary



or use a c function

The following is an alternative program that uses the ILE bindable API, Get
Current Local Time (CEELOCT), to convert a date to Julian format. To create this
program, you must use the CRTBNDCL command alone or the CRTCLMOD
command and the CRTPGM command together.
DCL &SECONDS *CHAR 8 /* Seconds from CEELOCT */
DCL &GREG *CHAR 23 /* Gregorian date from CEELOCT */
/* */
CALLPRC PRC(CEELOCT) /* Get current date and time */ +
PARMS (&LILDATE)   /* Date in Lilian format */ +
&SECONDS /* Seconds field will not be used */
&GREG       /* Gregorian field will not be used */
*OMIT         /* Omit feedback parameter so exceptions +
are signalled */

PARMS (&LILDATE) /* Today’s date */ +
&PICTSTR /* How to format */ +
&JULDATE /* Julian date */ +


January 9, 2009  5:08 PM

Update – Super neat features in new WordPress

David Vasta David Vasta Profile: David Vasta

I may actually be slow on this one, but I found today as you can see below, that I can post code in my blog and it does not lose it’s formating. Now if you know me I am not a code person at all, may it will force me to want to post some code that would help. If you have code you want to share with the world let me know. I can post it here.


January 9, 2009  5:06 PM

TESTING – RPGLE – Example chaining to logical file to write/update data

David Vasta David Vasta Profile: David Vasta

Sample RPG Code – Not that I would ever post any?

RPGLE  – Example chaining to logical file to write/update data
Posted By: JimmyOctane

C* Chaining to a logical file, if record found
C* then update quantities else write record.
C     TheKey02      Klist
C                   Kfld                    PGPGRP
C                   Kfld                    PGPCA1
C                   Kfld                    PGPCA2
C                   Kfld                    PGPRDCS2
C* Chain to file with keylist if found add to existing values
C* else Z-ADD (Zero out and add)
C     TheKey02      Chain     AVAILABLEW
C* This snippet of code is getting total quantity on hand/pick
C                   If        %Found(AVAILABLEW)
C                   Eval      ONHAND = ONHAND + LPLOQT
C                   Eval      ONPICK = ONPICK + LPPIQT
C                             + MOMQTY
C                   Update    AVAILR
C                   Else
C                   Movel(p)  PGPRDCS2      PRODUCT
C                   Movel(p)  PGPGRP        PGROUP
C                   Movel(p)  PGPCA1        CAT1
C                   Movel(p)  PGPCA2        CAT2
C                   Movel(p)  PGDESC        DESC
C                   Z-add     LPLOQT        ONHAND
C                   Z-add     LPPIQT        ONPICK
C                   Write     AVAILR
C                   Endif

January 9, 2009  4:58 PM

Fooling arond with WORDPRESS

David Vasta David Vasta Profile: David Vasta
#!/usr/bin/env python
Module simplelog :

provides immediate logging to a text file (using module logging)


from simplelog import *
log = getSimpleLogger("myPath/myFile.txt")"an example message")


getSimpleLogger can be called multiple times with the same
filename. It identifies the logger with the file's basename,
so you can't have 2 different loggers named myFile.txt (even
in different folders.)

import logging 
import os .path 
__all__ =["getSimpleLogger"]
_loggers ={}

def getSimpleLogger (pathToFile ):
  "returns a logger to the given file"
  name =os .path .basename (pathToFile )
  theLogger =logging .getLogger (name )
  if name in _loggers :
    return theLogger 
  _loggers [name ]=True 
  theLogger .setLevel (logging .DEBUG )
  theHandler =logging .FileHandler (pathToFile ,'w')
  theFormatter =logging .Formatter (
  "%(asctime)s %(levelname)-8s %(message)s",
#"%a, %d %b %Y %H:%M:%S",
  theHandler .setFormatter (theFormatter )
  theLogger .addHandler (theHandler )
  return theLogger 

if __name__ =="__main__":
  logger =getSimpleLogger ("foo.txt")
  for i in range (20 ):
    logger .info ("current index is %d"%i )
patterns = {
'hello' => /hello/ ,
'hi' => /hi/,
'time' => /\d\d:\d\d:\d\d/,
'date' => /\d\d\/\d\d\/\d\d\d\d/,
'email' => /^[0-9a-zA-Z.!#\$%^]+@[a-zA-Z]+\.[a-z]+$/

line = ''
while line !~ /(^quit$|^Quit$|^q$|^Q$)/
  print "\n (q to exit) >"
  line = gets
  patterns.each do |key, value|
    puts "#{key} line= #{line}" if line =~ patterns[key]
puts 'Bye'

January 9, 2009  4:51 PM

USB Flash Support for AiX

David Vasta David Vasta Profile: David Vasta

<!– div.lotusnotesemailheader{display: none;} –><!– div.lotusnotesemailheader{display: inline;} –> This feature has been available in Linux on POWER, but is now available in AIX:

USB flash drive support was included in AIX 5.3 TL9 and 6.1

January 6, 2009  6:45 PM

IBM Confrence & Events Schedule

David Vasta David Vasta Profile: David Vasta

LINK :: IBM 2009 Confrences and Events

Again thanks, Joe

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to: