× 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.



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!


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.