11. January 2009 by admin.

The LANSA for the Web Commerce Edition is a set of tools, which enables LANSA for the Web developers to rapidly deploy Business-to-Consumer (B2C) and Business-to-Business (B2B) applications that integrate with existing back-end or legacy systems. Commerce Edition provides an application framework which extends the power of LANSA for the Web specifically for B2C and B2B development.

Commerce Edition includes a customizable application database for your B2B and B2C applications. Using Business Objects, you create the framework for your application. Without any manual coding by your developers, Commerce Edition can deliver anywhere from 60% to 85% of your finished application.

Commerce Edition uses the LANSA for the Web e-Business Framework Wizard, which allows you to quickly and easily customize the presentation of your LANSA Web application. The Wizard is not used to create your LANSA functions. It is used to alter their appearance, by using Web-based functions executing from your browser. The Wizard removes the need to manually define graphical variables and Web components. You can change the user navigation within your application and you can change the look-and-feel of your applications without having to recompile any of the functions in your application.

Posted in LANSA | No Comments »

11. January 2009 by admin.

LANSA for the Web allows you to build Web applications quickly and easily. It is a toolkit that integrates seamlessly with the LANSA Integrated Development Environment (either Visual LANSA or LANSA for the iSeries). You can use graphical HTML forms or XML based applications using the same Repository and RDML skill set used to build your iSeries and Windows applications. In fact, a LANSA program can be deployed to the iSeries, Windows or the Web using a single RDML program definition.LANSA for the Web allows you to build dynamic data retrieval applications for the Web. It also allows you to deploy the applications across a number of combinations of platforms including the iSeries and Windows NT. Each of these platforms can be used as the Application/Data Server or the Web Server. In other words, you can choose to deploy your applications in a multi-tiered architecture.LANSA for the Web incorporates a Transaction Server, which provides your user sessions with a persistent connection between their browser and your Data Server. Persistent connections are not available in the HyperText Transfer Protocol (HTTP), the protocol used in serving the Web.LANSA for the Web shields you from the technologies you have to learn to deploy Web-enabled applications. You do not need to have a thorough knowledge of CGI or Java Servlet programming, HTML or JavaScript or XML. You do not need to learn code-intensive HTML or CGI to build dynamic Web applications. All you have to do is use LANSA’s repository-based 4GL environment to build your application definition. LANSA will automatically generate the HTML or XML pages for you. LANSA for the Web allows the developer to work at the 4GL level, without the need for any skills in HTML, CGI or any other Internet programming interfaces. LANSA for the Web hides the complexity of HTML/XML and CGI programming from you.There is no client side code to develop or maintain with LANSA for the Web. You do not have to be concerned about the operating systems of the client. All the client machines require is a browser that is capable of supporting the HTML generated by LANSA for the Web. Once you have indicated that you want your LANSA application Web-enabled, LANSA will automatically take care of the effort to Web-enable the application for you.The huge growth and demand for Internet access to businesses has prompted LANSA to extend its offering beyond the traditional application development environment. LANSA now offers a set of application specific frameworks to help companies deploy their e-business solutions at an even more astounding rate. The LANSA e-Business Framework Wizard and Commerce Edition are part of the natural evolution of the LANSA product family. Along with LANSA’s powerful application development environment, Web developers will benefit from Commerce Edition (which includes the Database Adaptor and Business Objects) and the e-Business Framework Wizard to help accelerate Business-to-Consumer (B2C) and Business-to-Business (B2B) application development.

Posted in LANSA | No Comments »

11. January 2009 by admin.

Mark Mason is looking for LANSA WorkLANSA is an integrated family of highly productive design, development and maintenance products for multi-platform host and network applications. This family of products provides an extremely flexible application development environment where a developer can use a single skill set to build and deploy applications for the iSeries, Windows or Internet environments.LANSA’s powerful Repository-based 4GL has enabled developers to quickly deploy applications across computing boundaries and across computing paradigms. A simple recompile can transform a host-centric iSeries application using RPG/ILE into a client/server Windows application using C/C++ or a browser-based, Internet application using HTML and Java servlets. Developer productivity and ease-of-use are LANSA trademarks. For years, developers have enjoyed the benefits of LANSA’s Rapid Development and Maintenance Language (RDML) which insulated them from low-level languages and platform complexities. RDML can build iSeries applications, graphic event-driven Windows applications and Web applications. The LANSA Active-Object Repository provides a centralized application definition and platform independent database architecture. This powerful combination has protected companies’ information technology investments for over 10 years.LANSA was the first iSeries development tool to fully embrace the Internet and Web technology. LANSA for the Web has allowed developers to construct Internet, Intranet and Extranet applications. Today, there are hundreds of thousands of people using LANSA Web-based applications in retail, health care, insurance, manufacturing, government, communications and in many other industry sectors.

Posted in LANSA | No Comments »

11. January 2009 by admin.

8,1,1,0
\B\I\CQUARANTINE RELEASED

—————————————–
THE TERMINAL HAS BEEN RELEASED BY T & D

\I\CEND OF REPORT
EOF

Posted in Uncategorized | No Comments »

24. December 2008 by admin.

Candidate must be willing to work and be responsible for entire project (start to finish).  Good problem analysis skills and smart.   We want someone who is looking for a career and not just a job.  We are a small company (13 people with only 4 in development).  Our current developers are RPG and we are looking for a quality person to come in and lead us in our rewrite in plums using the Lansa framework.

CAll 877 526 7220 or email resume to lansa@yahoo.com

Posted in LANSA | No Comments »

21. November 2008 by admin.

Iseries / AS400 SQL Built-In Functions

Basic Functions

Function     Description
===============================

MAX         Maximum value from a set of pre-defined values.
MIN         Minimum value from a set of pre-defined values.
AVG         Average value of a set of pre-defined values.
SUM         Sum of a set of pre-defined values.
COUNT         Number of elements in a set of pre-defined values.

Numeric Functions

Function         Description
=======================================

ABS(N)             Absolute value of N.
COS(A) / ACOS(A)
SIN(A) / ASIN(A)
TAN(A) / ATAN(A)     Basic trigonometric functions.
CEILING(N)
FLOOR(N)         Rounding of N to the unit
above/below.
DEGREES(R)         Converts a value in radians to degrees.
RADIANS(D)         Converts a value in degrees to radians.
LN(N)
LOG10(N)         Natural logarithm / base 10 logarithm of N.

String Functions

Function         Description
====================================

CHAR(N)         The string representation of the number N.
CHAR_LENGTH(S)         Length of a string.
CONCAT(S1, S2)         Concatenates S1 with S2.
SUBSTR(S, I, L)     Returns a substring of S, starting at index I of lenght L.
LOWER(S)         Lowercase representation of S.
UPPER(S)         Uppercase representation of S.
TRIM(S)         Removes spaces from the beggining and and of S.
RTRIM(S)        Removes spaces at the begging (right) of S.
LTRIM(S)         Removes spaces at the begging (left) of S.

Date and Time Functions

Function     Description
============================
CURDATE()    System’s current date.
CURTIME()     System’s current time.
DATE(D)     Converts a string representation of a date into into a date value.
DATE(T)     Converts a string representation of a time into into a time value.
DAY(D)         Day(1-31) from the date D.
WEEK(D)     Week (1-54) from the date D.
MONTH(D)     Month (1-12) from the date D.
YEAR(D)     Year from the date D.
DAYOFWEEK(D)     Day (1-7) from the date D where 1 is Sunday.
DAYOFWEEK_ISO(D)Day (1-7) from the date D where 1 is Monday.
DAYOFYEAR(D)     Number of the day, in a year (1-366).
HOUR(T)     Hour (0-24) from the time T.
MINUTE(T)     Minute from the time T.
SECOND(T)     Second from the time T.
MICROSECOND(T)     Microsecond from the time

Posted in SQL | 1 Comment »

17. November 2008 by admin.

     var cleanUpString = document.getElementById(’cv8′).value;
     document.LANSA.LZ1GMSGTXT.value=cleanUpString.replace(’\n’, ”);

Posted in Uncategorized | No Comments »

15. October 2008 by admin.

Bank of America Rips you off. They process the debits in your account from Largest Amount to Smallest. There should be only 1 overdraft charge even though 2000 was deposited on the same day.

Posted in Uncategorized | No Comments »

12. October 2008 by admin.

 I am giving up potato chips because I like potato chips and everytime I see a potato chip and I don’t eat it, it reminds me of Jesus being in the desert.

And it makes me feel good that I don’t eat it.

Elizabeth Mason

Posted in Uncategorized | No Comments »

15. August 2008 by admin.

FUNCTION OPTIONS(*DIRECT *WEBEVENT)
GROUP_BY NAME(#PRMTBLGRP) FIELDS(#MPRMCTG #MPRMCOD #MPRMDSC)
DEF_LIST NAME(#ARRAY_LST) FIELDS(#Z_DATA) COUNTER(#Z_COUNT) TYPE(*WORKING) ENTRYS(500)
DEF_LIST NAME(#X1BL01LST) FIELDS(#X1ALPLONG) ENTRYS(1000)

DEFINE FIELD(#ZZCOUNT) TYPE(*DEC) LENGTH(2) DECIMALS(2)
DEFINE FIELD(#ZZCOUNTC) TYPE(*CHAR) LENGTH(2)

DEFINE FIELD(#ZFNAMEMMM) TYPE(*CHAR) LENGTH(25)
DEFINE FIELD(#ZLNAMEMMM) TYPE(*CHAR) LENGTH(25)
DEFINE FIELD(#ZSSNUMMMM) TYPE(*CHAR) LENGTH(25)

* =======================================================
* Moving Respective HTML Pages to Components
* =======================================================

CHANGE FIELD(#DCTONLCMP) TO(*NULL)
CHANGE FIELD(#DCTHEDCMP) TO(PAG_RPARRHED)
CHANGE FIELD(#DCTHDRCMP) TO(*NULL)
CHANGE FIELD(#DCTLFTCMP) TO(*NULL)
CHANGE FIELD(#DCTPAGCMP) TO(PAG_RPARRAY)
* =======================================================
* Process according to Button clicked
* =======================================================

CASE OF_FIELD(#STDRENTRY)
WHEN VALUE_IS(’*EQ N’)
* do logic here to validate if you want to
REQUEST FIELDS(#ZFNAMEMMM #ZLNAMEMMM) EXIT_KEY(*NO) MENU_KEY(*NO)
WHEN VALUE_IS(’*EQ *BLANKS’)
CHANGE FIELD(#MPRMCTG) TO(PENDC)
CHANGE FIELD(#MPRMCOD) TO(”’RPARRAY1”’)
CLR_LIST NAMED(#ARRAY_LST)
CLR_LIST NAMED(#X1BL01LST)

SELECT FIELDS(#PRMTBLGRP) FROM_FILE(M@PRMTBL) WITH_KEY(#MPRMCTG #MPRMCOD) GENERIC(*YES)
EXECUTE SUBROUTINE(LISTENTRY) WITH_PARMS(#MPRMDSC)
ENDSELECT

* Build List for Javascript Array
CHANGE FIELD(#ZZCOUNT) TO(0)
SELECTLIST NAMED(#ARRAY_LST)
CHANGE FIELD(#X1ALPLONG) TO(#Z_DATA)
ADD_ENTRY TO_LIST(#X1BL01LST)
ENDSELECT
OTHERWISE
MESSAGE MSGTXT(’STDRENTRY not Programmed for’)
ENDCASE

REQUEST FIELDS((#STDNEXT *HIDE) (#STDRENTRY *HIDE)) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO)
REQUEST BROWSELIST(#X1BL01LST) EXIT_KEY(*NO) MENU_KEY(*NO)

* =======================================================
* Subroutine ….: LISTENTRY
* Description….: Add Entries to List
* =======================================================
SUBROUTINE NAME(LISTENTRY) PARMS(#Z_DATA)
IF_NULL FIELD(#Z_DATA)
ELSE
ADD_ENTRY TO_LIST(#ARRAY_LST)
ENDIF
ENDROUTINE

Posted in LANSA | No Comments »