Re: Who Knew You Could Do That With MI?

["JeanMichel" <jmpenasse@xxxxxxxxxxx>]

It's some "debug directives" mostly used by COBOL (and PL1) compilers.

HLL/LVL/PARENT allows to DSPPGMVAR  'MYVAR  OF  ONESTRUCT' and DSPPGMVAR
'MYVAR OF ONEOTHERSTRUCT' if in COBOL you've declared something like :
01 MAINSTRUCT
        02     ONESTRUCT
                05    MYVAR        PIC...
        02    ONEOTHERSTRUC
                05    MYVAR        PIC

I no longer have a COBOL compiler, but as far as I remember these keywords
are used together like :

 DCL DD Internal_MI_Name CHAR(5) LVL('02') HLL('FOO')
PARENT('MYSTRUCT','01')

In COBOL :
01    MYSTRUCT
        02 FOO

As I remember DIM is for multidimensional arrays debug access : DSPPGMVAR
'MYARRAY(5,12,1 ..)'

It's the same for BIT.
BIT can use 2 numbers : the first one (optional) is the number of bits, and
the second one the position of the first bit.
eg :  DCL DD FLD2 CHAR(2);
   DCL DD B0   CHAR(1) BIT(1,0) DEF(FLD2) POS(1);  /* Bit0 Byte1 */;
   ...
   DCL DD B67  CHAR(1) BIT(2,6) DEF(FLD2) POS(1);  /* Bit6 & 7 Byte1 */;

I'm not sure but I think HLLPTR is for  pointers debugging. There are a
debug command CHGHLLPTR.

I've tried to use these keywords directly in MI but no avail. It's only for
debug purpose.

I've found some others keywords, but don't know their meaning :

"MDIM" :
     DCL DD D     DIM(2, 3) CHAR(2) MDIM ;  /* DIM with MDIM    */
     DCL DD E     CHAR(5) MDIM;             /* MDIM Without DIM */

"DEC"
    DCL DD FLD0 CHAR(50) ;
         DCL DD FLD1  CHAR(10) DEC('ABCDEFGA',2) DEF(FLD0) POS(1);
    DCL DD FLDX   DEC('A',8);



Jean Michel  Penasse
EXPERIA Europe
jmpenasse@experia.com
www.experia.com
________________________________
----- Original Message -----
From: <Gene_Gaunt/ReviewWorks@reviewworks.com>
To: <MI400@midrange.com>
Sent: Wednesday, July 12, 2000 8:08 PM
Subject: Who Knew You Could Do That With MI?


> I found some undocumented things that QPRCRTPG API compiles okay.  I don't
> know what this means, but it's interesting.
>
> "DIM" --- a variable can declare a DIM attribute containing multiple
> lower:upper bounds, for example,
>        DCL DD ABC AUTO CHAR(5) DIM(7:8, -3:6, 2:3, -4:1);
>
> "LVL, HLL, PARENT" --- a variable can declare a LVL or HLL attribute
> containing a constant character, or a PARENT attribute containing two
> constant characters, for example,
>        DCL DD ABC AUTO CHAR(5) LVL("FOO");
>        DCL DD DEF AUTO CHAR(5) HLL("FOO");
>        DCL DD GHI AUTO CHAR(5) PARENT("FOO","BAR");
>
> "BIT" --- a variable can declare a BIT attribute containing a number, for
> example:
>        DCL DD ABC AUTO CHAR(5) BIT(2);
>
> "HLLPTR" --- a space pointer can declare a HLLPTR attribute, for example:
>        DCL SPCPTR ABC AUTO HLLPTR;
>
> "LBLPTR, SSPPTR, PRCPTR, INVPTR" --- the following declaration generate
> identical ODT entries:
>        DCL PTR    ABC AUTO;
>        DCL LBLPTR ABC AUTO;
>        DCL SSPPTR ABC AUTO;
>        DCL PRCPTR ABC AUTO;
>        DCL INVPTR ABC AUTO;
>
>
> +---
> | This is the MI Programmers Mailing List!
> | To submit a new message, send your mail to MI400@midrange.com.
> | To subscribe to this list send email to MI400-SUB@midrange.com.
> | To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
dr2@cssas400.com
> +---

+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---