Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 manual Displaying Indicators, Stepping Through the Program Object

Models: AS/400

1 489
Download 489 pages 47.95 Kb
Page 228
Image 228
Using EVAL with Data Structures

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 227 Page 229
Page 228
Image 228
IBM AS/400 manual Displaying Indicators, Stepping Through the Program Object, Using EVAL with Data Structures
Page 227 Page 229