|
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 * ...............3 * 1080 002420A1 3A000100 00000000 00000000 * ................ * 1090 03000000 00000001 00000001 00000010 * ................ * 10A0 00020002 3FBC69A4 00000000 00060605 * .......u........ * 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 F6=Display 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 * ...............3 * 1080 002420A1 3A000100 00000000 00000000 * ................ * 1090 03000000 00000001 00000001 00000010 * ................ * 10A0 00020002 3FBC69A4 00000000 00060605 * .......u........ * 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 F6=Display --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 * ....4.......4... * > 1560 00000000 F4000000 164D8AB4 CF0017A0 * ....4....(...... * > 1570 00000000 00000000 00000000 00000000 * ................ * > 1580 FB41FF30 FB61FF38 FB81FF40 FBA1FF48 * ...../...a. .... * > 1590 FBC1FF50 FBE1FF58 7C0802A6 F8010028 * .A.&....@..w8... * > 15A0 F821FE21 39800001 F9810060 605D0000 * 8.......9a.--).. * > 15B0 F8410020 3C005415 F8010008 F8210218 * 8.......8...8... * > 15C0 33FF01C0 7C2001C8 41DA8053 41DD8183 * ....@..H......ac * > 15D0 3B600082 7F5AD078 3BC30000 9B6100BA * .-.b.....C.../.. * > 15E0 B35FFEC0 39200401 B13FFEA0 E8BE0008 * ............Y... * > 15F0 E3450002 7C0004C8 637A0000 A39A0012 * T...@..H.:..t... * > F3=Exit F4=Alter labels F5=Refresh F6=Display > sta > > 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 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.