**************************************************************************

*Start of CGI Program execution section...

**************************************************************************

*Initialize error code structure for error ids.

*This allows for 7 bytes in QUSEI for error message id.

CZ-ADD 16QUSBPRV

**************************************************************************

****Read the Environment variable, REQUEST_METHOD.

**************************************************************************

C

 

MOVEL

EnvMethod

EnvName

C

 

Z-ADD

14

EnvNameLen

C

 

callb

APIGetEnv

 

C

 

parm

 

EnvRec

C

 

parm

 

EnvRecLen

C

 

parm

 

EnvLen

C

 

parm

 

EnvName

C

 

parm

 

EnvNameLen

C

 

parm

 

QUSEC

C

 

MOVEL

EnvRec

EnvMDResp

 

**************************************************************************

 

**** Is the REQUEST_METHOD, POST?

 

C

4

subst

EnvRec:1

EResp

C

EResp

ifeq

'POST'

 

 

**************************************************************************

 

* Get Environment Variable 'Content_Length' using 'QtmhGetEnv' API

C

 

MOVEL

EnvCL

EnvName

C

 

Z-ADD

14

EnvNameLen

C

 

CALLB

APIGetEnv

 

C

 

parm

 

EnvRec

C

 

parm

 

EnvRecLen

C

 

parm

 

EnvLen

C

 

parm

 

EnvName

C

 

parm

 

EnvNameLen

C

 

parm

 

QUSEC

 

* Convert Content_Length to numeric.

 

C

 

eval

ContentLn=c2n(EnvRec)

 

* When the Content

Length is greater than the buffer, Read maxdataln.

C

ContentLn

ifgt

maxdataln

 

C

 

Z-ADD

maxdataln

ContentLn

C

 

endif

 

 

*Specify InDataLn to Content_Length value. Never should a CGI program

*ever attempt to read more than content length. Specification of more

*than content length in InDataLn is not defined.

C

Z-ADD

ContentLn

BufInLn

 

**************************************************************************

 

* Read standard input

 

 

C

callb

APIStdIn

 

C

parm

 

BufIn

C

parm

 

BufInLn

C

parm

 

StdInLn

C

parm

 

QUSEC

C

MOVEL

StdInLn

Result

C

else

 

 

**************************************************************************

****Read the Environment variable, QUERY_STRING.

**************************************************************************

C

MOVEL

EnvQS

EnvName

C

Z-ADD

12

EnvNameLen

C

callb

APIGetEnv

 

C

parm

 

EnvRec

C

parm

 

EnvRecLen

C

parm

 

EnvLen

C

parm

 

EnvName

C

parm

 

EnvNameLen

C

parm

 

QUSEC

**************************************************************************

**** Check length of environment value is less than

102Web Programming Guide V4R5

Page 112
Image 112
IBM AS/400E manual CZ-ADD 16QUSBPRV

AS/400E specifications

The IBM AS/400E, now more commonly known as IBM i, is a robust and versatile midrange server that has been designed to provide a comprehensive computing solution for businesses of all sizes. First introduced in the late 1980s, the AS/400 series has undergone multiple enhancements and rebranding, with the AS/400E being one of the notable iterations. This powerful platform is closely associated with IBM's commitment to reliability, scalability, and integrated business solutions.

One of the main features of the AS/400E is its highly integrated architecture that combines hardware and software into a cohesive system. This integration allows for seamless operations, reducing the complexity typically associated with managing disparate systems. The system is powered by IBM's proprietary OS/400 operating system, which has evolved into IBM i, featuring advanced capabilities like object-oriented programming, integrated database management, and security features that are essential for enterprise environments.

A key characteristic of the AS/400E is its robust database support, primarily through the use of DB2 for i. This integrated database management system enables efficient data handling and retrieval, facilitating real-time business analytics and reporting. Furthermore, the platform supports a variety of programming languages, including RPG, COBOL, and Java, making it flexible for developers who require diverse tools for application development.

The AS/400E is also known for its exceptional reliability and uptime, making it a preferred choice for critical business applications in industries such as finance, healthcare, and manufacturing. This reliability is backed by advanced error detection and correction mechanisms, as well as redundancy features that help prevent data loss and minimize downtime.

In terms of scalability, the AS/400E can effortlessly expand to accommodate growing business demands. Organizations can increase processing power by adding more resources without significant disruption. This scalability, combined with the system’s built-in virtualization capabilities, allows businesses to optimize resource usage and streamline operations.

Security is another defining feature of the AS/400E. The platform incorporates various layers of security measures, including user authentication, encryption, and comprehensive auditing capabilities, ensuring that sensitive business data is protected against unauthorized access.

Overall, the IBM AS/400E remains a powerful tool in the enterprise computing landscape, providing businesses with an integrated, reliable, and secure solution for their technological needs. Its enduring popularity is a testament to its capability to evolve with changing business requirements while maintaining its core attributes of high performance and stability.