RE: Why does ev in STRDBG show same multi-occur DS subfieldtwice ?

Just a guess, but I would assume a multi-occurance data structure would need
an internal (compiler defined) index to store the current occurance number.


Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863



-----Original Message-----
From: Jerry Jewel [mailto:jerryjewel@email.com]
Sent: Wednesday, April 03, 2002 3:08 PM
To: rpg400-l@midrange.com
Subject: Why does ev in STRDBG show same multi-occur DS subfield twice?



I'm getting some confusing results when I display a DS in debug.

I have a multiple occurrence data structure defined in a service program as
follows:

DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++
D FIDServer       DS                  OCCURS(MAXFIDS)
D   FIDSrvKeyOK                  1N
D   FIDSrvCondOK                 1N
D   FIDSrvODPDSPos...
D                               10I 0
D   FIDSrvKeyDtaLen...
D                                5I 0
D   FIDSrvKeyDta                      LIKE(tRecFmtBuf)



When I set a breakpoint and display the data structure it shows me the two
N-Indicator fields

(FIDSrvKeyOK and FIDSrvCondOK) twice.  What is the ' I' added to the
subfield name?

See the ???? I've added to the copy/paste below...


                             Evaluate Expression

Previous debug expressions

> EVAL fidserver
  FIDSRVKEYOK I OF FIDSERVER = '1'    ????
  FIDSRVCONDOK I OF FIDSERVER = '1'   ????
  FIDSRVKEYOK OF FIDSERVER = '1'      ????
  FIDSRVCONDOK OF FIDSERVER = '1'     ????
  FIDSRVODPDSPOS OF FIDSERVER = 8
  FIDSRVKEYDTALEN OF FIDSERVER = 7
  FIDSRVKEYDTA OF FIDSERVER =
            ....5...10...15...20...25...30...35...40...45...50...55...60
       1   '±                                                       '
      61   '                                                            '
     121   '                                                            '
     181   '                                                            '
     241   '                                                            '
     421   '                                                            '
     481   '                                                            '
     541   '                                                            '
     601   '                                                            '
     661   '                                                            '
     721   '                                                            '
     781   '                                                            '
     841   '                                                            '
     901   '                                                            '
     961   '                                                            '
    1021   '                                                            '
    1081   '                                                            '
    1141   '                                                            '
    1201   '                                                            '
    1261   '                                                            '
    1321   '                                                            '
    1381   '                                                            '
    1441   '                                                            '
    1501   '                                                            '
    1561   '                                                            '
    1621   '                                                            '
    1681   '                                                            '
    1741   '                                                            '
    1801   '                                                            '
    1861   '                                                            '
    1921   '                                                            '
    1981   '                                                            '
    2041   '        '

Although in this sample they agree, the values don't always agree between:

'FIDSRVKEYOK I' and 'FIDSRVKEYOK'
   and
'FIDSRVCONDOK I' and 'FIDSRVCONDOK'


Regards,
Jerry Jewel


jerryjewel@email.com
"Better living through fine code and hot coffee!"



--



--

_______________________________________________
Sign-up for your own FREE Personalized E-mail at Email.com
http://www.email.com/?sr=signup


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.