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