Stepping Through the Program Object

>EVAL IN02

Identifier does not exist.

>EVAL *IN02 *IN02 = '1'

>EVAL *IN(02) *IN(02) = '1'

>EVAL *INLR *INLR = '0'

>EVAL *IN(LR)

Identifier does not exist.

>EVAL *IN(1..6) ** To display a range of indicators ** *IN(1) = '0'

*IN(2) = '1' *IN(3) = '0' *IN(4) = '1' *IN(5) = '0' *IN(6) = '1'

Figure 101. Sample EVAL commands for an Array

Displaying Fields as Hexadecimal Values

You can use the EVAL debug command to display the value of fields hexadecimal format. To display a variable in hexadecimal format, type

EVAL field-name: x number-of-bytes

on

the

debug

command line. Thefieldvariable-nameis

the

name of

the field

tha

you

want

to display in hexadecimal' ' specifiesformat. that the field is to

played

in

hexadecimal format. Thenumbervaria-of-bytesle indicates the number

 

of

bytes

displayed.

If no

length

is'x',specifiedthe sizeafterof thethe field

is

used as

the

length. A minimum of 16

bytes

is

always

displayed.

If

field

is

less

than

16

bytes,

then

theis filledremainingwithspaceuntilzeroesthe 16

 

byte

boundary

is

reached.

 

 

 

 

 

 

For example, the field String is defined as six-character string. To

hexadecimal equivalent of the first

3 characters, you would enter:

EVAL String: x 3

 

Result:

 

 

00000

C1C2C3

- ABC

Displaying

Fields

in Character Format

 

You

can

use

the

EVAL

debug command to display a field in character

display

a variable

in

character format,

type:

EVAL field-name: c number-of-characters

 

on

the

debug

command

line. Thefieldvariable-nameis

the name of the field tha

you want to display in chara'cter' specifiesformat. the number of characters display.

For example, in the program DEBUGEX, data structure DS2 does not have subfields defined. Several MOVE operations move values into the subfie

Because there are no subfields defined, you cannot display the da

Therefore, to view

its

contents you can use the character display

EVAL DS2:C 20

Result:

DS2:C 20 = 'aaaaaaaaaabbbbbbbbbb'

Chapter 11. Debugging Programs205

Page 229
Image 229
IBM AS/400 manual Displaying Fields as Hexadecimal Values, Character Format

AS/400 specifications

The IBM AS/400, now known as the IBM iSeries, is a midrange computer system that has been a cornerstone of enterprise computing since its introduction in 1988. Designed to provide a robust platform for business applications, the AS/400 is celebrated for its reliability, scalability, and integrated database capabilities.

One of the key features of the AS/400 is its Integrated Operating Environment, which blends hardware and software resources seamlessly. This integration allows businesses to execute diverse workloads, ranging from traditional applications to modern web-based services, all on a single platform. The operating system, OS/400 (now IBM i), offers a rich set of APIs and tools for developers, simplifying application development and management.

Another standout characteristic of the AS/400 is its built-in database, DB2 for i. This powerful relational database management system allows for efficient data handling and provides advanced features such as support for SQL, XML, and JSON, making it easier for businesses to manage their data and integrate it with other systems. The database's tight integration with the operating system enables high performance and security.

In terms of scalability, the AS/400 can accommodate small businesses as well as large enterprises, with the ability to support hundreds of users simultaneously. Its architecture allows for easy upgrades in hardware, meaning that organizations can scale their systems without replacing the entire infrastructure.

Security is another critical attribute of the AS/400. With a sophisticated security model, it offers built-in user authentication, access control, encryption, and auditing capabilities to protect data and applications from unauthorized access.

The AS/400 also supports multiple programming languages, including RPG, COBOL, Java, and PHP, giving organizations the flexibility to choose the development tools that best fit their needs. This diversity helps maintain legacy applications while also developing new ones that leverage modern technologies.

Moreover, the platform supports both traditional green-screen interfaces and modern graphical user interfaces, allowing organizations to transition smoothly into contemporary user experience paradigms.

Overall, the IBM AS/400 stands out as a resilient, flexible, and secure computing platform that enables organizations to effectively manage their business operations, streamline processes, and adapt to changing market demands. Its unique combination of integrated features and capabilities ensures that it remains relevant in today's fast-paced technology landscape.