****the receive buffer. When this occurs, the

****QtmhGetEnv sets the EnvLen to the actual value

****length without changing the receive buffer.

C

EnvLen

ifgt

maxdataln

 

C

 

eval

Bufin='Data buffer +

C

 

 

not big enough for +

C

 

 

available input data.'

C

 

Z-ADD

80

Result

C

 

else

 

 

C

 

MOVEL

EnvRec

BufIn

C

 

MOVEL

EnvLen

Result

C

 

endif

 

 

C

 

endif

 

 

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

****Read the Environment variable, SERVER_SOFTWARE.

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

C

MOVEL

EnvSS

EnvName

C

Z-ADD

15

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

EnvSSResp

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

**** Put the data written to standard output in buffer; bufout. ***

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

*For each line of HTML, move it to BufOut and set the

*output buffer's length(BufOutLn).

C

 

do

arrsize

i

5 0

 

* Write out HTTP response and HTML lines.

 

 

C

i

iflt

17

 

 

C

BufOut

cat

html(i):0

BufOut

 

C

BufOut

cat

linefeed:0

BufOut

 

C

 

endif

 

 

 

 

* Add the data read from standard input or QUERY_STRING.

 

C

i

ifeq

17

 

 

D* Add html break to BufOut string written to standard output

 

D* when input is greater than 79.

 

 

C

Result

dowgt

79

 

 

C

80

SUBST

BufIn:cnt

WORK2

 

C

 

cat

work2:0

BufOut

 

C

 

cat

break:0

BufOut

 

 

* For V4R2, the newline after 254 characters is not needed.

 

C*

cat

linefeed:0

BufOut

 

C

 

add

80

cnt

 

C

 

sub

80

Result

 

C

 

ENDDO

 

 

 

C

 

IF

Result > 0

 

 

C

 

clear

 

WORK2

 

C

Result

SUBST

BufIn:cnt

WORK2

 

C

 

cat

work2:0

BufOut

 

C

 

cat

break:0

BufOut

 

 

* For V4R2, the newline after 254 characters is not needed.

 

C*

cat

linefeed:0

BufOut

 

C

 

ENDIF

 

 

 

C

 

endif

 

 

 

*

Add the Environment variable header line

for REQUEST_METHOD.

C

i

ifeq

18

 

C

BufOut

cat

html(i):0

BufOut

C

BufOut

cat

break:0

BufOut

*

For V4R2, the newline after 254 characters is not needed.

C*

BufOut

cat

linefeed:0

BufOut

C

 

endif

 

 

*

Display the Environment variable REQUEST_METHOD.

Chapter 6. Sample programs (in Java, C, and RPG) 103

Page 113
Image 113
IBM AS/400E manual Subst

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.