https://wiki.midrange.com/api.php?action=feedcontributions&user=Mstram&feedformat=atom
MidrangeWiki - User contributions [en]
2024-03-29T07:19:16Z
User contributions
MediaWiki 1.30.0
https://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=12020
Program To System Fields
2016-02-18T18:16:33Z
<p>Mstram: /* Introduction To P Fields */</p>
<hr />
<div>[[Category:Quick Reference]]<br />
[[Category:RPG]]<br />
= Program To System Fields =<br />
== Introduction To P Fields ==<br />
Program-to-system fields (referenced from here out as P-fields) can be used to emphasize field data in display files. <br />
<br />
They are an alternative to using indicator controlled display attributes. <br />
<br />
Indicator controlled attributes are determined at compile time, while P fields are evaluated at run-time, allowing<br />
dynamic updating of display fields.<br />
<br />
To use the P-field attributes, a display file field must contain the DSPATR keyword referencing the P-field:<br />
<br />
<br />
<pre><br />
A myfield 20A B 10 6DSPATR(&fldattr)<br />
A fldattr 1A P<br />
</pre><br />
E.g. to display the contents of <i>myfield</i> underlined in red, use the following code:<br />
<pre><br />
/free<br />
fldattr=x'2C';<br />
/end-free<br />
</pre><br />
<br />
For a good write-up on P fields & their usage [http://www.itjungle.com/fhg/fhg101304-story01.html Click Here!]<br><br />
<br />
== Program To System Fields List ==<br />
Here is a work-in-progress list of constant names for the various program-to-system field values (also known as P Fields):<br />
<table border="normal"><br />
<tr><br />
<th>Attributes</th><br />
<th>Hexadecimal Value</th><br />
</tr><br />
<tr><br />
<td>Green</td><br />
<td align="center">x'20'</td><br />
</tr><br />
<tr><br />
<td>Green/Reverse Image</td><br />
<td align="center">x'21'</td><br />
</tr><br />
<tr><br />
<td>White</td><br />
<td align="center">x'22'</td><br />
</tr><br />
<tr><br />
<td>White/Reverse Image</td><br />
<td align="center">x'23'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined</td><br />
<td align="center">x'24'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined/Reverse Image</td><br />
<td align="center">x'25'</td><br />
</tr><br />
<tr><br />
<td>White/Underlined</td><br />
<td align="center">x'26'</td><br />
</tr><br />
<tr><br />
<td>Non-Display</td><br />
<td align="center">x'27'</td><br />
</tr><br />
<tr><br />
<td>Red</td><br />
<td align="center">x'28'</td><br />
</tr><br />
<tr><br />
<td>Red/Reverse Image</td><br />
<td align="center">x'29'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted</td><br />
<td align="center">x'2A'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted/Reverse Image</td><br />
<td align="center">x'2B'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined</td><br />
<td align="center">x'2C'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Reverse Image</td><br />
<td align="center">x'2D'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Blinking</td><br />
<td align="center">x'2E'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'2F'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators</td><br />
<td align="center">x'30'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Reverse Image</td><br />
<td align="center">x'31'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Column Separators</td><br />
<td align="center">x'32'</td><br />
</tr><br />
<tr><br />
<td>White/Reverse Image/Column Separators</td><br />
<td align="center">x'33'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Underlined/Column Separators</td><br />
<td align="center">x'34'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Underlined/Column Separators/Reverse Image</td><br />
<td align="center">x'35'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Underlined/Column Separators</td><br />
<td align="center">x'36'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'37'</td><br />
</tr><br />
<tr><br />
<td>Pink</td><br />
<td align="center">x'38'</td><br />
</tr><br />
<tr><br />
<td>Pink/Reverse Image</td><br />
<td align="center">x'39'</td><br />
</tr><br />
<tr><br />
<td>Blue</td><br />
<td align="center">x'3A'</td><br />
</tr><br />
<tr><br />
<td>Blue/Reverse Image</td><br />
<td align="center">x'3B'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined</td><br />
<td align="center">x'3C'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined/Reverse Image</td><br />
<td align="center">x'3D'</td><br />
</tr><br />
<tr><br />
<td>Blue/Underlined</td><br />
<td align="center">x'3E'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'3F'</td><br />
</tr><br />
<tr><br />
<td> </td><br />
<td align="center"> </td><br />
</tr><br />
<tr><br />
<th colspan=2>Protected Fields</th><br />
</tr><br />
<tr><br />
<td>Green</td><br />
<td align="center">x'A0'</td><br />
</tr><br />
<tr><br />
<td>Green/Reverse Image</td><br />
<td align="center">x'A1'</td><br />
</tr><br />
<tr><br />
<td>White</td><br />
<td align="center">x'A2'</td><br />
</tr><br />
<tr><br />
<td>White/Reverse Image</td><br />
<td align="center">x'A3'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined</td><br />
<td align="center">x'A4'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined/Reverse Image</td><br />
<td align="center">x'A5'</td><br />
</tr><br />
<tr><br />
<td>White/Underlined</td><br />
<td align="center">x'A6'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'A7'</td><br />
</tr><br />
<tr><br />
<td>Red</td><br />
<td align="center">x'A8'</td><br />
</tr><br />
<tr><br />
<td>Red/Reverse Image</td><br />
<td align="center">x'A9'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted</td><br />
<td align="center">x'AA'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted/Reverse Image</td><br />
<td align="center">x'AB'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined</td><br />
<td align="center">x'AC'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Reverse Image</td><br />
<td align="center">x'AD'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Blinking</td><br />
<td align="center">x'AE'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'AF'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators</td><br />
<td align="center">x'B0'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Reverse Image</td><br />
<td align="center">x'B1'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Column Separators</td><br />
<td align="center">x'B2'</td><br />
</tr><br />
<tr><br />
<td>White/Column Separators/Reverse Image</td><br />
<td align="center">x'B3'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Underlined</td><br />
<td align="center">x'B4'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Reverse Image/Underlined</td><br />
<td align="center">x'B5'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Column Separators/Underlined</td><br />
<td align="center">x'B6'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'B7'</td><br />
</tr><br />
<tr><br />
<td>Pink</td><br />
<td align="center">x'B8'</td><br />
</tr><br />
<tr><br />
<td>Pink/Reverse Image</td><br />
<td align="center">x'B9'</td><br />
</tr><br />
<tr><br />
<td>Blue</td><br />
<td align="center">x'BA'</td><br />
</tr><br />
<tr><br />
<td>Blue/Reverse Image</td><br />
<td align="center">x'BB'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined</td><br />
<td align="center">x'BC'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined/Reverse Image</td><br />
<td align="center">x'BD'</td><br />
</tr><br />
<tr><br />
<td>Blue/Underlined</td><br />
<td align="center">x'BE'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'BF'</td><br />
</tr><br />
</table><br />
<br><br />
== Sample Data Structure Definition ==<br />
<br><br />
<pre><br />
/DEFINE PFIELDS<br />
*---------------------------------------------------------------------<br />
* Valid P-field values<br />
*---------------------------------------------------------------------<br />
D PFIELDSDS DS<br />
D @GRN 1A Inz(x'20')<br />
D @GRN_RI 1A Inz(x'21')<br />
D @WHT 1A Inz(x'22')<br />
D @WHT_RI 1A Inz(x'23')<br />
D @GRN_UL 1A Inz(x'24')<br />
D @GRN_UL_RI 1A Inz(x'25')<br />
D @WHT_UL 1A Inz(x'26')<br />
D @ND 1A Inz(x'27')<br />
D @RED 1A Inz(x'28')<br />
D @RED_RI 1A Inz(x'29')<br />
D @RED_HI 1A Inz(x'2A')<br />
D @RED_HI_RI 1A Inz(x'2B')<br />
D @RED_UL 1A Inz(x'2C')<br />
D @RED_UL_RI 1A Inz(x'2D')<br />
D @RED_UL_BL 1A Inz(x'2E')<br />
D @ND_2F 1A Inz(x'2F')<br />
D @TRQ_CS 1A Inz(x'30')<br />
D @TRQ_CS_RI 1A Inz(x'31')<br />
D @YLW_CS 1A Inz(x'32')<br />
D @WHT_RI_CS 1A Inz(x'33')<br />
D @TRQ_UL_CS 1A Inz(x'34')<br />
D @TRQ_UL_RI_CS 1A Inz(x'35')<br />
D @YLW_UL_CS 1A Inz(x'36')<br />
D @ND_37 1A Inz(x'37')<br />
D @PNK 1A Inz(x'38')<br />
D @PNK_RI 1A Inz(x'39')<br />
D @BLU 1A Inz(x'3A')<br />
D @BLU_RI 1A Inz(x'3B')<br />
D @PNK_UL 1A Inz(x'3C')<br />
D @PNK_UL_RI 1A Inz(x'3D')<br />
D @BLU_UL 1A Inz(x'3E')<br />
D @ND_3F 1A Inz(x'3F')<br />
*<br />
* Protected fields<br />
*<br />
D @PGRN 1A Inz(x'A0')<br />
D @PGRN_RI 1A Inz(x'A1')<br />
D @PWHT 1A Inz(x'A2')<br />
D @PWHT_RI 1A Inz(x'A3')<br />
D @PGRN_UL 1A Inz(x'A4')<br />
D @PGRN_UL_RI 1A Inz(x'A5')<br />
D @PWHT_UL 1A Inz(x'A6')<br />
D @PND 1A Inz(x'A7')<br />
D @PRED 1A Inz(x'A8')<br />
D @PRED_RI 1A Inz(x'A9')<br />
D @PRED_HI 1A Inz(x'AA')<br />
D @PRED_HI_RI 1A Inz(x'AB')<br />
D @PRED_UL 1A Inz(x'AC')<br />
D @PRED_UL_RI 1A Inz(x'AD')<br />
D @PRED_UL_BL 1A Inz(x'AE')<br />
D @ND_AF 1A Inz(x'AF')<br />
D @PTRQ_CS 1A Inz(x'B0')<br />
D @PTRQ_CS_RI 1A Inz(x'B1')<br />
D @PYLW_CS 1A Inz(x'B2')<br />
D @PWHT_RI_CS 1A Inz(x'B3')<br />
D @PTRQ_UL_CS 1A Inz(x'B4')<br />
D @PTRQ_UL_RI_CS 1A Inz(x'B5')<br />
D @PYLW_UL_CS 1A Inz(x'B6')<br />
D @ND_B7 1A Inz(x'B7')<br />
D @PPNK 1A Inz(x'B8')<br />
D @PPNK_RI 1A Inz(x'B9')<br />
D @PBLU 1A Inz(x'BA')<br />
D @PBLU_RI 1A Inz(x'BB')<br />
D @PPNK_UL 1A Inz(x'BC')<br />
D @PPNK_UL_RI 1A Inz(x'BD')<br />
D @PBLU_UL 1A Inz(x'BE')<br />
D @ND_BF 1A Inz(x'BF')<br />
D PFIELDS 1 64A<br />
D PFIELD 1A Dim(64) Overlay(PFIELDS)<br />
</pre></div>
Mstram
https://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=12019
Program To System Fields
2016-02-18T17:51:05Z
<p>Mstram: /* Introduction To P Fields */</p>
<hr />
<div>[[Category:Quick Reference]]<br />
[[Category:RPG]]<br />
= Program To System Fields =<br />
== Introduction To P Fields ==<br />
Program to system fields (referenced from here out as P fields) can be used to emphasize field data on display files. <br />
<br />
These can be used as an alternative to using indicator controlled display attributes. <br />
<br />
P fields are one-byte codes passed to the display file at run-time. <br />
<br />
Indicator controlled attributes must be determined at compile time. <br />
<br />
In order to utilize the P field attributes the display file must contain a field that is one byte character for the field you wish to alter attributes for.<br />
<pre><br />
A myfield 20A B 10 6DSPATR(&fldattr)<br />
A fldattr 1A P<br />
</pre><br />
So if you wanted to display the contents of <i>myfield</i> in Red with underline, you could do so by using the following code in your RPG program.<br />
<pre><br />
/free<br />
fldattr=x'2C';<br />
/end-free<br />
</pre><br />
<br />
For a good write-up on P fields & their usage [http://www.itjungle.com/fhg/fhg101304-story01.html Click Here!]<br><br />
<br />
== Program To System Fields List ==<br />
Here is a work-in-progress list of constant names for the various program-to-system field values (also known as P Fields):<br />
<table border="normal"><br />
<tr><br />
<th>Attributes</th><br />
<th>Hexadecimal Value</th><br />
</tr><br />
<tr><br />
<td>Green</td><br />
<td align="center">x'20'</td><br />
</tr><br />
<tr><br />
<td>Green/Reverse Image</td><br />
<td align="center">x'21'</td><br />
</tr><br />
<tr><br />
<td>White</td><br />
<td align="center">x'22'</td><br />
</tr><br />
<tr><br />
<td>White/Reverse Image</td><br />
<td align="center">x'23'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined</td><br />
<td align="center">x'24'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined/Reverse Image</td><br />
<td align="center">x'25'</td><br />
</tr><br />
<tr><br />
<td>White/Underlined</td><br />
<td align="center">x'26'</td><br />
</tr><br />
<tr><br />
<td>Non-Display</td><br />
<td align="center">x'27'</td><br />
</tr><br />
<tr><br />
<td>Red</td><br />
<td align="center">x'28'</td><br />
</tr><br />
<tr><br />
<td>Red/Reverse Image</td><br />
<td align="center">x'29'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted</td><br />
<td align="center">x'2A'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted/Reverse Image</td><br />
<td align="center">x'2B'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined</td><br />
<td align="center">x'2C'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Reverse Image</td><br />
<td align="center">x'2D'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Blinking</td><br />
<td align="center">x'2E'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'2F'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators</td><br />
<td align="center">x'30'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Reverse Image</td><br />
<td align="center">x'31'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Column Separators</td><br />
<td align="center">x'32'</td><br />
</tr><br />
<tr><br />
<td>White/Reverse Image/Column Separators</td><br />
<td align="center">x'33'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Underlined/Column Separators</td><br />
<td align="center">x'34'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Underlined/Column Separators/Reverse Image</td><br />
<td align="center">x'35'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Underlined/Column Separators</td><br />
<td align="center">x'36'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'37'</td><br />
</tr><br />
<tr><br />
<td>Pink</td><br />
<td align="center">x'38'</td><br />
</tr><br />
<tr><br />
<td>Pink/Reverse Image</td><br />
<td align="center">x'39'</td><br />
</tr><br />
<tr><br />
<td>Blue</td><br />
<td align="center">x'3A'</td><br />
</tr><br />
<tr><br />
<td>Blue/Reverse Image</td><br />
<td align="center">x'3B'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined</td><br />
<td align="center">x'3C'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined/Reverse Image</td><br />
<td align="center">x'3D'</td><br />
</tr><br />
<tr><br />
<td>Blue/Underlined</td><br />
<td align="center">x'3E'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'3F'</td><br />
</tr><br />
<tr><br />
<td> </td><br />
<td align="center"> </td><br />
</tr><br />
<tr><br />
<th colspan=2>Protected Fields</th><br />
</tr><br />
<tr><br />
<td>Green</td><br />
<td align="center">x'A0'</td><br />
</tr><br />
<tr><br />
<td>Green/Reverse Image</td><br />
<td align="center">x'A1'</td><br />
</tr><br />
<tr><br />
<td>White</td><br />
<td align="center">x'A2'</td><br />
</tr><br />
<tr><br />
<td>White/Reverse Image</td><br />
<td align="center">x'A3'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined</td><br />
<td align="center">x'A4'</td><br />
</tr><br />
<tr><br />
<td>Green/Underlined/Reverse Image</td><br />
<td align="center">x'A5'</td><br />
</tr><br />
<tr><br />
<td>White/Underlined</td><br />
<td align="center">x'A6'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'A7'</td><br />
</tr><br />
<tr><br />
<td>Red</td><br />
<td align="center">x'A8'</td><br />
</tr><br />
<tr><br />
<td>Red/Reverse Image</td><br />
<td align="center">x'A9'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted</td><br />
<td align="center">x'AA'</td><br />
</tr><br />
<tr><br />
<td>Red/Highlighted/Reverse Image</td><br />
<td align="center">x'AB'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined</td><br />
<td align="center">x'AC'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Reverse Image</td><br />
<td align="center">x'AD'</td><br />
</tr><br />
<tr><br />
<td>Red/Underlined/Blinking</td><br />
<td align="center">x'AE'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'AF'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators</td><br />
<td align="center">x'B0'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Reverse Image</td><br />
<td align="center">x'B1'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Column Separators</td><br />
<td align="center">x'B2'</td><br />
</tr><br />
<tr><br />
<td>White/Column Separators/Reverse Image</td><br />
<td align="center">x'B3'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Underlined</td><br />
<td align="center">x'B4'</td><br />
</tr><br />
<tr><br />
<td>Turquoise/Column Separators/Reverse Image/Underlined</td><br />
<td align="center">x'B5'</td><br />
</tr><br />
<tr><br />
<td>Yellow/Column Separators/Underlined</td><br />
<td align="center">x'B6'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'B7'</td><br />
</tr><br />
<tr><br />
<td>Pink</td><br />
<td align="center">x'B8'</td><br />
</tr><br />
<tr><br />
<td>Pink/Reverse Image</td><br />
<td align="center">x'B9'</td><br />
</tr><br />
<tr><br />
<td>Blue</td><br />
<td align="center">x'BA'</td><br />
</tr><br />
<tr><br />
<td>Blue/Reverse Image</td><br />
<td align="center">x'BB'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined</td><br />
<td align="center">x'BC'</td><br />
</tr><br />
<tr><br />
<td>Pink/Underlined/Reverse Image</td><br />
<td align="center">x'BD'</td><br />
</tr><br />
<tr><br />
<td>Blue/Underlined</td><br />
<td align="center">x'BE'</td><br />
</tr><br />
<tr><br />
<td>Non-display</td><br />
<td align="center">x'BF'</td><br />
</tr><br />
</table><br />
<br><br />
== Sample Data Structure Definition ==<br />
<br><br />
<pre><br />
/DEFINE PFIELDS<br />
*---------------------------------------------------------------------<br />
* Valid P-field values<br />
*---------------------------------------------------------------------<br />
D PFIELDSDS DS<br />
D @GRN 1A Inz(x'20')<br />
D @GRN_RI 1A Inz(x'21')<br />
D @WHT 1A Inz(x'22')<br />
D @WHT_RI 1A Inz(x'23')<br />
D @GRN_UL 1A Inz(x'24')<br />
D @GRN_UL_RI 1A Inz(x'25')<br />
D @WHT_UL 1A Inz(x'26')<br />
D @ND 1A Inz(x'27')<br />
D @RED 1A Inz(x'28')<br />
D @RED_RI 1A Inz(x'29')<br />
D @RED_HI 1A Inz(x'2A')<br />
D @RED_HI_RI 1A Inz(x'2B')<br />
D @RED_UL 1A Inz(x'2C')<br />
D @RED_UL_RI 1A Inz(x'2D')<br />
D @RED_UL_BL 1A Inz(x'2E')<br />
D @ND_2F 1A Inz(x'2F')<br />
D @TRQ_CS 1A Inz(x'30')<br />
D @TRQ_CS_RI 1A Inz(x'31')<br />
D @YLW_CS 1A Inz(x'32')<br />
D @WHT_RI_CS 1A Inz(x'33')<br />
D @TRQ_UL_CS 1A Inz(x'34')<br />
D @TRQ_UL_RI_CS 1A Inz(x'35')<br />
D @YLW_UL_CS 1A Inz(x'36')<br />
D @ND_37 1A Inz(x'37')<br />
D @PNK 1A Inz(x'38')<br />
D @PNK_RI 1A Inz(x'39')<br />
D @BLU 1A Inz(x'3A')<br />
D @BLU_RI 1A Inz(x'3B')<br />
D @PNK_UL 1A Inz(x'3C')<br />
D @PNK_UL_RI 1A Inz(x'3D')<br />
D @BLU_UL 1A Inz(x'3E')<br />
D @ND_3F 1A Inz(x'3F')<br />
*<br />
* Protected fields<br />
*<br />
D @PGRN 1A Inz(x'A0')<br />
D @PGRN_RI 1A Inz(x'A1')<br />
D @PWHT 1A Inz(x'A2')<br />
D @PWHT_RI 1A Inz(x'A3')<br />
D @PGRN_UL 1A Inz(x'A4')<br />
D @PGRN_UL_RI 1A Inz(x'A5')<br />
D @PWHT_UL 1A Inz(x'A6')<br />
D @PND 1A Inz(x'A7')<br />
D @PRED 1A Inz(x'A8')<br />
D @PRED_RI 1A Inz(x'A9')<br />
D @PRED_HI 1A Inz(x'AA')<br />
D @PRED_HI_RI 1A Inz(x'AB')<br />
D @PRED_UL 1A Inz(x'AC')<br />
D @PRED_UL_RI 1A Inz(x'AD')<br />
D @PRED_UL_BL 1A Inz(x'AE')<br />
D @ND_AF 1A Inz(x'AF')<br />
D @PTRQ_CS 1A Inz(x'B0')<br />
D @PTRQ_CS_RI 1A Inz(x'B1')<br />
D @PYLW_CS 1A Inz(x'B2')<br />
D @PWHT_RI_CS 1A Inz(x'B3')<br />
D @PTRQ_UL_CS 1A Inz(x'B4')<br />
D @PTRQ_UL_RI_CS 1A Inz(x'B5')<br />
D @PYLW_UL_CS 1A Inz(x'B6')<br />
D @ND_B7 1A Inz(x'B7')<br />
D @PPNK 1A Inz(x'B8')<br />
D @PPNK_RI 1A Inz(x'B9')<br />
D @PBLU 1A Inz(x'BA')<br />
D @PBLU_RI 1A Inz(x'BB')<br />
D @PPNK_UL 1A Inz(x'BC')<br />
D @PPNK_UL_RI 1A Inz(x'BD')<br />
D @PBLU_UL 1A Inz(x'BE')<br />
D @ND_BF 1A Inz(x'BF')<br />
D PFIELDS 1 64A<br />
D PFIELD 1A Dim(64) Overlay(PFIELDS)<br />
</pre></div>
Mstram