× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I vaguely remember to have posted a typo message back then ...
your analysis is very plausible  :-)
Leif

----- Original Message -----
From: Dave McKenzie <davemck@xxxxxxxxxxxxx>
To: MI Programming on the AS400 / iSeries <mi400@xxxxxxxxxxxx>
Sent: Tuesday, February 17, 2004 6:05 PM
Subject: Re: [MI400] MI Program attribute?


> It's been x'105D' since V3R6, so I can only conclude it was a typo on
Leif's
> part.
>
> We can indulge in a little armchair psychoanalysis:  the state field is
> actually two bytes starting at x'105C'.  So the 01 or 80 is at 105C + 1,
> which Leif's subconscious must have collapsed to 15C1 :-)
>
> --Dave
>
>
> On Tuesday 17 February 2004 15:10, Paul Jackson wrote:
> > Thanks Dave,
> >
> > I found the original offset in a four year old posting by Leif
> > http://archive.midrange.com/mi400/200010/msg00053.html
> >
> > Does this offset change every now and then?
> >
> > Just curious.
> >
> > -----Original Message-----
> > From: Dave McKenzie [mailto:davemck@xxxxxxxxxxxxx]
> > Sent: Tuesday, February 17, 2004 3:01 PM
> > To: MI Programming on the AS400 / iSeries
> > Subject: Re: [MI400] MI Program attribute?
> >
> >
> > Hi Paul,
> >
> > Two problems:
> >
> > 1. The offset should be x'105D' not x'15C1'.
> >
> > 2. Offsets start at 0, so offset x'15C1' in your example is x'FF', not
> > x'33'.
> >
> > Here's how the pgm looks as user state (x'01'):
> >
> > 1000    08000000 00008004      002420A1 3A001200
> > 1010    002420A1 3A0012B0      002420A1 3A000280
> > 1020    00000000 00000000      002420A1 3A0003C0
> > 1030    002420A1 3A001230      002420A1 3A000000
> > 1040    002420A1 3A001230      002420A1 3A00156F
> > 1050    002420A1 3A0017CF      00000000 0001C000
> > 1060    00000000 00000000      00000000 00000000
> > 1070    002420A1 3A0003C0      002420A1 3A0003F3
> > 1080    002420A1 3A000100      00000000 00000000
> > 1090    03000000 00000001      00000001 00000010
> > 10A0    00020002 3FBC69A4      00000000 00060605
> > 10B0    00001580 00000000      00000000 00000000
> > 10C0    00000000 00000000      00000000 00000000
> > 10D0    002420A1 3A001100      002420A1 3A000390
> > 10E0    002420A1 3A001910      002420A1 3A001E80
> > 10F0    002420A1 3A001D10      00000000 00000000
> > F3=Exit         F4=Alter labels       F5=Refresh
> >
> > Here's how it should look as system state (x'80'):
> >
> > 1000    08000000 00008004      002420A1 3A001200
> > 1010    002420A1 3A0012B0      002420A1 3A000280
> > 1020    00000000 00000000      002420A1 3A0003C0
> > 1030    002420A1 3A001230      002420A1 3A000000
> > 1040    002420A1 3A001230      002420A1 3A00156F
> > 1050    002420A1 3A0017CF      00000000 0080C000
> > 1060    00000000 00000000      00000000 00000000
> > 1070    002420A1 3A0003C0      002420A1 3A0003F3
> > 1080    002420A1 3A000100      00000000 00000000
> > 1090    03000000 00000001      00000001 00000010
> > 10A0    00020002 3FBC69A4      00000000 00060605
> > 10B0    00001580 00000000      00000000 00000000
> > 10C0    00000000 00000000      00000000 00000000
> > 10D0    002420A1 3A001100      002420A1 3A000390
> > 10E0    002420A1 3A001910      002420A1 3A001E80
> > 10F0    002420A1 3A001D10      00000000 00000000
> > F3=Exit         F4=Alter labels       F5=Refresh
> >
> > --Dave
> >
> > On Tuesday 17 February 2004 14:14, Paul Jackson wrote:
> > > Hello,
> > >
> > > I compiled the code below and am now attempting to change it to system
> > > state so that it can run.
> > >
> > > From the archive postings I understand that offset X'15C1' should be
> > > changed to X'80' instead of X'01'.   When I go into SST though I get
the
> > > following data at that location. It seems that offset contains X'33'.
> > >
> > >
> > > 1500    00000000 00000000      00000000 00000000
> > > 1510    00000000 00000000      00000000 00000000
> > > 1520    00000000 00000000      00000000 00000000
> > > 1530    00000000 00000000      00000000 00000000
> > > 1540    00000000 00000000      164D8AB4 CF0014C0
> > > 1550    00000000 F4000000      00000000 F4000000
> > > 1560    00000000 F4000000      164D8AB4 CF0017A0
> > > 1570    00000000 00000000      00000000 00000000
> > > 1580    FB41FF30 FB61FF38      FB81FF40 FBA1FF48
> > > 1590    FBC1FF50 FBE1FF58      7C0802A6 F8010028
> > > 15A0    F821FE21 39800001      F9810060 605D0000
> > > 15B0    F8410020 3C005415      F8010008 F8210218
> > > 15C0    33FF01C0 7C2001C8      41DA8053 41DD8183
> > > 15D0    3B600082 7F5AD078      3BC30000 9B6100BA
> > > 15E0    B35FFEC0 39200401      B13FFEA0 E8BE0008
> > > 15F0    E3450002 7C0004C8      637A0000 A39A0012
> > > F3=Exit         F4=Alter labels       F5=Refresh
> > >
> > > Any clues as to what I am doing wrong?
> > >
> > > Thanks!
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
>


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.