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

["Dan Bale" <dbale@xxxxxxxxx>]

>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".  So I left it out, and ran:
ADDBKP STMT('/0015') PGMVAR((CONTROL ())) OUTFMT(*HEX)

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

After I hit Enter from this display, I got:
           Display Unmonitored Message Breakpoint
 Statement/Instruction . . . . :   /0015
 Program . . . . . . . . . . . :   MIFHASH
 Recursion level . . . . . . . :   1
Template value not valid for instruction.

- Dan Bale
(I am *NOT* "Dale"
http://archive.midrange.com/midrange-l/200105/msg00281.html )
SAMSA, Inc.
989-790-0507
DBale@SAMSA.com <mailto:DBale@SAMSA.com>
  Quiquid latine dictum sit altum viditur.
  (Whatever is said in Latin seems profound.)