Stepping Through the Program Object

** Note

that you can enter the data structure name or a subfi￿eld name. **

> EVAL

DS3

 

 

 

 

 

 

TITLE

OF

DS3 = 'Mr. '

 

5A

INZ('Mr.

')

LASTNAME

OF DS3 =

'Jones

'

10A

INZ('Jones

')

FIRSTNAME OF DS3 = 'Fred

'

10A

INZ('Fred

')

> EVAL

LastName

 

 

 

 

 

LASTNAME

= 'Jones

'

 

 

 

 

> EVAL

DS1

 

 

 

 

OCCURS(3)

 

FLD1

OF DS1 = 'ABCDE'

 

5A

INZ('ABCDE')

FLD1A

OF

DS1(1) =

'A'

 

1A

DIM(5) OVERLAY(Fld1)

FLD1A

OF

DS1(2) =

'B'

 

5B 2 INZ(123.45)

FLD1A

OF

DS1(3) =

'C'

 

 

 

 

FLD1A

OF

DS1(4) =

'D'

 

 

 

 

FLD1A

OF

DS1(5) =

'E'

 

 

 

 

FLD2

OF DS1 = 123.45

 

 

 

 

> EVAL

_QRNU_DSI_DS1

** Determine current index value **

_QRNU_DSI_DS1 = 1

 

 

 

 

 

> EVAL

DS1=%INDEX(2)

** Change the occurrence of DS1 **

DS1=%INDEX(2) = 2

 

 

 

 

 

> EVAL

Fld1

 

** Display a Subfield

**

 

FLD1

= 'ABCDE'

 

(current occurrence)

 

> EVAL

fld1(2)

 

 

 

 

 

FLD1(2) = 'ABCDE'

 

(second occurrence)

 

 

> EVAL

Fld1a

** Display an Array Overlay Subfield **

FLD1A

OF

DS1(1) =

'A'

(current occurrence)

 

FLD1A

OF

DS1(2) =

'B'

 

 

 

 

FLD1A

OF

DS1(3) =

'C'

 

 

 

 

FLD1A

OF

DS1(4) =

'D'

 

 

 

 

FLD1A

OF

DS1(5) =

'E'

 

 

 

 

> EVAL

Fld1a(2,1)

** Display 2nd occurrence, 1st element **

FLD1A(2,1) = 'A'

>EVAL Fld1a(2,1..2) ** Display 2nd occurrence, 1st - 2nd elements ** FLD1A(2,1) = 'A'

FLD1A(2,2) = 'B'

Figure 100.

Using EVAL with Data Structures

 

 

 

To

display

a

data structure for

which

no subfields have

been define

the

character

display function of

EVAL

which is discussed

below.

Displaying Indicators

Indicators are defined as 1-byte character fields. Except for indi *INLR, you can display indicators either as '*INxx' or '*IN(xx)'. Becau stores indicators as an array, you can display them all or some subse using the range notation. For example, if you enter EVAL *IN, you will indicators 01 to 99. To display indicators *IN01 to *IN06 you would ente *IN(1..6).

Figure 101

on

page 205 shows each of these ways using the indicators

were set

in

DBGEX.

204 ILE RPG for AS/400 Programmer's Guide

Page 228
Image 228
IBM AS/400 manual Displaying Indicators, Which is discussed Below

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.