Re: [MI400] Leif's MIFHASH usage (was RE: Generate hash code for a source member?)

["Leif Svalgaard" <leif@xxxxxxxx>]

From: Dan Bale <dbale@samsa.com>
To: <mi400@midrange.com>
Sent: Tuesday, May 14, 2002 6:15 PM
Subject: RE: [MI400] Leif's MIFHASH usage (was RE: Generate hash code for a
source member?)


> >put a BRK "1" just before the CIPHER instruction,
> >STRDBG prog
> >ADDBKP STMT(1) PGMVAR((CONTROL ())) OUTFMT(*HEX)
> >and show me the result
>
> Um, the MI compiler did not like the BRK "1".

always with a terminating semi colon, of course:  BRK "1";


> So I left it out, and ran:
> ADDBKP STMT('/0015') PGMVAR((CONTROL ())) OUTFMT(*HEX)
>

but just specifying the statement number (as you did) always works.
Why don't I do that? A pain to keep changing thge statement number
when you change the program.


> and ran the program to call MIFHASH, and got this:
>
> Statement/Instruction . . . . . . . . . : /0015
> Program . . . . . . . . . . . . . . . . : MIFHASH
> Recursion level . . . . . . . . . . . . : 1
> Start position  . . . . . . . . . . . . : 1
> Format  . . . . . . . . . . . . . . . . : *HEX
> Length  . . . . . . . . . . . . . . . . : *DCL
>
> Variable  . . . . . . . . . . . . . . . : CONTROL
>   Type  . . . . . . . . . . . . . . . . :   CHARACTER
>   Length  . . . . . . . . . . . . . . . :   96
> * . . . + . . . . 1 . . . . + .
> 00050001000000010000000000000000
> 800000000000000002C3C0092D000500
> 00000000000000000000000000000000
> 00000000000000000000000000000000
> 00000000000000000000000000000000
> 00000000000000000000000000000000
>

looks OK to me. Must be a v3r2 issue.
Gene, you have an old v3r2 manual?