RE: Who Knew You Could Do That With MI?

I never had a use for DIM or HLLPTR.  Are data pointers and machine space
pointers still supported?  I remember hearing that BIT was a dog on CISC.

Richard Jackson
mailto:richardjackson@richardjackson.net
www.richardjacksonltd.com
Voice: 1 (303) 808-8058
Fax:   1 (303) 663-4325

-----Original Message-----
From: owner-mi400@midrange.com [mailto:owner-mi400@midrange.com]On
Behalf Of Gene_Gaunt/ReviewWorks@reviewworks.com
Sent: Wednesday, July 12, 2000 12:08 PM
To: MI400@midrange.com
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
+---