|
15.07.2002 19:00:07, mi400-request@midrange.com a écrit: >Send MI400 mailing list submissions to > mi400@midrange.com > >To subscribe or unsubscribe via the World Wide Web, visit > http://lists.midrange.com/cgi-bin/listinfo/mi400 >or, via email, send a message with subject or body 'help' to > mi400-request@midrange.com > >You can reach the person managing the list at > mi400-admin@midrange.com > >When replying, please edit your Subject line so it is more specific >than "Re: Contents of MI400 digest..." > > >Today's Topics: > > 1. Decompression of MI (Harry Williams) > 2. Re: Decompression of MI (Simon Coulter) > 3. Non Observable Program (sas) > 4. RE: Decompression of MI (Njål Fisketjøn) > 5. Re: Non Observable Program (James H. H. Lampert) > 6. V5R1 and libl in PCO (JeanMichel) > 7. Re: V5R1 and libl in PCO (Leif Svalgaard) > >--__--__-- > >Message: 1 >From: "Harry Williams" <planesmart@teleteam.net> >To: "Mi400" <mi400@midrange.com> >Date: Sun, 14 Jul 2002 17:18:10 -0500 >Subject: [MI400] Decompression of MI >Reply-To: mi400@midrange.com > >I was trying to access MI from RPG. I got the Compression to work. But the >decompression is eluding me. My eyes are crossed, so I thought I could get >someone to look at this too. It says the Template is not valid, but I do not >see it. Any help? > >ILE RPG/400 FORMATTED DUMP > >Program Status . . . . . . . . . . . . : 00202 > The call to ended in error (C G D F). >Previous Status . . . . . . . . . . . : 00000 >Statement in Error . . . . . . . . . . : 00000043 >RPG Routine . . . . . . . . . . . . . : _DCPDATA >Number of Parameters . . . . . . . . . : >Message Type . . . . . . . . . . . . . : MCH >Additional Message Info . . . . . . . : 5601 >Message Data . . . . . . . . . . . . . : > Template value not valid for instruction. >Status that caused RNX9001 . . . . . . : > 1 H DFTACTGRP(*NO) ACTGRP(*NEW) > 2 H Debug > 19 * > 20 * > 100 d COMPRESS pr Extproc('_CPRDATA') > 200 d RcvrPtrC * Value > 300 * > 400 D CMPPTR ds > 500 D SourceLenC 10i 0 Inz(%Size(Source)) > 600 D ResultLenC 10i 0 Inz(%Size(Result)) > 700 D CompressLen 10i 0 Inz(0) > 800 D Algorithm 5i 0 Inz(2) > 900 D 18 Inz(*LOVAL) >1000 D SourcePtrC * Inz(%Addr(Source)) >1100 D ResultPtrC * Inz(%Addr(Result)) >1200 * >1300 D Source S 528 >1400 D Result S 528 >1500 * >1501 * >1502 d Decompress pr Extproc('_DCPDATA') >1503 d RcvrPtrD * Value >1504 * >1505 * >1506 * >1507 D DeCmpPtr ds >1508 D 4 Inz(*LOVAL) >1509 D ResultLenD 10i 0 Inz(%Size(Result)) >1510 D DeCompressLen 10i 0 Inz(0) >1511 D 20i 0 Inz(*LOVAL) >1512 D SourcePtrD * Inz(%Addr(Source)) >1513 D ResultPtrD * Inz(%Addr(Result)) >1514 * >1515 * >2701 C MOVE *All'Home HOM'Source >2702 C DUMP >2800 C CallP Compress (%Addr(CmpPtr)) >2801 C DUMP > 802 C Clear Source > 803 C Movel Result Source > 804 C Clear Result > 805 C DUMP > 900 C CallP DeCompress >(%Addr(DeCmpPtr)) > 000 * Except ResD > 100 C MOVE *ON *INLR > > > Additional Message Information >Page 1 >5722SS1 V5R1M0 010525 MAJOR 07/14/02 >16:09:21 > > > Message ID . . . . . . : MCH5601 Severity . . . . . . . : 40 > Date sent . . . . . . : 07/14/02 Time sent . . . . . . : >16:02:32 > Message type . . . . . : Escape > > > From program . . . . . . . . . : #cfdcpdt > Instruction . . . . . . . . : 0000FC > > > To program . . . . . . . . . . : TSTCMPRPG > To library . . . . . . . . . : SHADOW > To module . . . . . . . . . : TSTCMPRPG > To procedure . . . . . . . . : TSTCMPRPG > To statement . . . . . . . . : 43 > > Coded character set ID . . . . : 65535 > > Message . . . . : Template value not valid for instruction. > Cause . . . . . : The location of the value is template with an offset >to > field in bytes X'000C', an offset in field in bits X'0000', a length of > field of 20, and an instruction operand number of 1. The reason code is > X'0000'. If the reason code is X'0000', a reason code may not be >available. > > > > * * * * * E N D O F L I S T I N G >* * * * * > > > >--__--__-- > >Message: 2 >Date: Mon, 15 Jul 02 16:06:38 +1000 >From: "Simon Coulter" <shc@flybynight.com.au> >To: mi400@midrange.com >Subject: Re: [MI400] Decompression of MI >Reply-To: mi400@midrange.com > > >Hello Harry, > >You wrote: >>1511 D 20i 0 Inz(*LOVAL) > >This field is CHAR(20)! It is not a BIN(8) which is what you've coded. > >Regards, >Simon Coulter. >-------------------------------------------------------------------- > FlyByNight Software AS/400 Technical Specialists > http://www.flybynight.com.au/ > > Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 /"\ > Fax: +61 3 9419 0175 mailto: shc@flybynight.com.au \ / > X > ASCII Ribbon campaign against HTML E-Mail / \ >-------------------------------------------------------------------- > > >--__--__-- > >Message: 3 >From: "sas" <sas@toto.co.id> >To: <mi400@midrange.com> >Date: Mon, 15 Jul 2002 12:51:59 +0700 >Subject: [MI400] Non Observable Program >Reply-To: mi400@midrange.com > >This is a multi-part message in MIME format. >-- >[ Picked text/plain from multipart/alternative ] >Dear All, >Does anybody has any experience to exploit an Non Observable Program ? >When we remove the observablity by CHGPGM ( RMVOBS *all ) , is it just replace >the the Flag observablity to no , or delete some observality information ? >Please advise >Thank you, >Regards, >sas > >-- > > > >--__--__-- > >Message: 4 >From: "Njål Fisketjøn" <n.f@figu.no> >To: <mi400@midrange.com> >Subject: RE: [MI400] Decompression of MI >Date: Mon, 15 Jul 2002 08:15:36 +0200 >Reply-To: mi400@midrange.com > >Harry Williams wrote: > >> 1507 D DeCmpPtr ds >> 1508 D 4 Inz(*LOVAL) >> 1509 D ResultLenD 10i 0 >> Inz(%Size(Result)) >> 1510 D DeCompressLen 10i 0 Inz(0) >> 1511 D 20i 0 Inz(*LOVAL) > >I don't know if this is causing your problem, but the above field should be >a 20 byte character field. > > > > >--__--__-- > >Message: 5 >Date: Sun, 14 Jul 2002 23:41:27 -0700 >From: "James H. H. Lampert" <jamesl@hb.quik.com> >To: mi400@midrange.com >Subject: Re: [MI400] Non Observable Program >Reply-To: mi400@midrange.com > >sas wrote: > >> Does anybody has any experience to exploit an Non Observable Program ? >> When we remove the observablity by CHGPGM ( RMVOBS *all ) , is it just >replace >> the the Flag observablity to no , or delete some observality information ? > >Dear sas: > >With the observability removed, three things happen: >1. The program becomes significantly smaller, >2. It becomes impossible to port the program between CISC and RISC >hardware, and >3. The program becomes somewhat harder for hackers to disassemble. > >-- >James H. H. Lampert >Professional Dilettante >http://www.hb.quik.com/jamesl >http://members.hostedscripts.com/antispam.html >http://www.thehungersite.com > >Help America's Passenger Trains. http://www.saveamtrak.org > >Read My Lips: No More Atrocities! > >--__--__-- > >Message: 6 >From: "JeanMichel" <jmpenasse@experia.com> >To: <MI400@midrange.com> >Date: Mon, 15 Jul 2002 11:50:45 +0200 >Subject: [MI400] V5R1 and libl in PCO >Reply-To: mi400@midrange.com > >Hi all, > >LIBL info in PCO has moved starting with V5R1 from X'04FC' to X'1D60'. > >Is this new location fixed or variable. > >It seems to me that there is a new pointer into PCO located at X'0CB0' that >points to the LIBL infos. > >Am I right ? > >Jean-Michel Penasse >EXPERIA Europe >jmpenasse@experia.com >+33(0)4.76.67.07.70 >www.experia.com > >--__--__-- > >Message: 7 >From: "Leif Svalgaard" <leif@leif.org> >To: <mi400@midrange.com> >Subject: Re: [MI400] V5R1 and libl in PCO >Date: Mon, 15 Jul 2002 08:33:35 -0500 >Reply-To: mi400@midrange.com > >From: JeanMichel <jmpenasse@experia.com> >> LIBL info in PCO has moved starting with V5R1 from X'04FC' to X'1D60'. >> Is this new location fixed or variable. >fixed, but could change in future releases > >> >> It seems to me that there is a new pointer into PCO located at X'0CB0' that >points to the LIBL infos. > >yes you are correct. >The change, of course, was prompted by the expansion of the library >list to 250 elements (no room at the old place). > > > > >--__--__-- > >_______________________________________________ >This is the MI Programming on the AS400 / iSeries (MI400) digest list >To post a message email: MI400@midrange.com >To subscribe, unsubscribe, or change list options, >visit: http://lists.midrange.com/cgi-bin/listinfo/mi400 >or email: MI400-request@midrange.com >Before posting, please take a moment to review the archives >at http://archive.midrange.com/mi400. > > > >End of MI400 Digest >
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.
midrange.com
