[MI400] OPM PL1 block defn

["Bruce Wilson" <bruce.wilson2@xxxxxxxxxxx>]

Aware that PL1 has a block structure, I am interested that internally it
is represented by a MSPPTR and then 5 data declarations based on the
pointer.  What is unusual is that all five of these declarations have
the same name.
In the HLL Sym Tbl each has an extension segment which is of normal
length (26) but contains in the field where the LVL would be on a data
structure definition the following alpha [in order: AU, ST, EX, PA,
BA].  Internally the 5 records are chained together - doubly linked
using the offset from the table start.
Thus:
DCL MSPPTR  .BLK@xxx;
DCL DD *BLK1  CHAR(1) BAS(.BLK@xxx) POS(1) BDRY(16);
DCL DD *BLK1  CHAR(1) BAS(.BLK@xxx) POS(1) BDRY(16);
DCL DD *BLK1  CHAR(1) BAS(.BLK@xxx) POS(1) BDRY(16);
DCL DD *BLK1  CHAR(1) BAS(.BLK@xxx) POS(1) BDRY(16);
DCL DD  *BLK1 CHAR(1) BAS(.BLK@xxx) POS(1) BDRY(16);

I am not aware that one can assemble an MI program with duplicate
symbols and the repetitive nature of the above structure for every block
.. always AU then ST EX PA BA.  While I think use of the HLL option in
MI would allow one to create the duplicate symbols - the chaining of the
five records previous/next is a mystery as is what the above structure
is trying to implement.  Anyone have a 'glimmer' of an idea?


"WorldSecure Server <safeway.com>" made the following
 annotations on 03/13/03 17:51:23
------------------------------------------------------------------------------
Warning: 
All e-mail sent to this address will be received by the Safeway corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient.  This e-mail may contain information proprietary to Safeway and is 
intended only for the use of the intended recipient(s).  If the reader of this 
message is not the intended recipient(s), you are notified that you have 
received this message in error and that any review, dissemination, distribution 
or copying of this message is strictly prohibited.  If you have received this 
message in error, please notify the sender immediately. 
  

==============================================================================