https://wiki.midrange.com/api.php?action=feedcontributions&user=TomHolden&feedformat=atomMidrangeWiki - User contributions [en]2024-03-29T05:55:47ZUser contributionsMediaWiki 1.30.0https://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8680WDSC shortcuts2007-09-10T21:40:54Z<p>TomHolden: </p>
<hr />
<div>[[Category:Quick Reference]]<br />
{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8679WDSC shortcuts2007-09-10T21:35:33Z<p>TomHolden: </p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8678WDSC shortcuts2007-09-10T21:34:55Z<p>TomHolden: </p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
[[Category:Quick References|W]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8677WDSC shortcuts2007-09-10T21:33:59Z<p>TomHolden: /* Categories */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8676WDSC shortcuts2007-09-10T21:33:32Z<p>TomHolden: /* Categories */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
[[Category:Quick References]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8675WDSC shortcuts2007-09-10T21:32:36Z<p>TomHolden: /* Categories */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts|Quick_References]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8674WDSC shortcuts2007-09-10T21:29:38Z<p>TomHolden: /* Categories */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8673WDSC shortcuts2007-09-10T21:29:13Z<p>TomHolden: /* Categories */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
[[Category:Quick_References]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8672WDSC shortcuts2007-09-10T21:28:11Z<p>TomHolden: /* Categories */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
[[Category:Quick References]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8671WDSC shortcuts2007-09-10T21:26:33Z<p>TomHolden: /* Version 6.''x'' */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member<br />
|-}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=WDSC_shortcuts&diff=8670WDSC shortcuts2007-09-10T21:25:43Z<p>TomHolden: /* Version 6.''x'' */</p>
<hr />
<div>{{AN}} - this is a (non-exhaustive) list of some of the keyboard shortcuts available in WDSC. Many of the shortcuts change between major versions of the product, so please be careful!<br />
<br />
==Version 6.''x''==<br />
<br />
{| class="wikitable" class=sortable<br />
|-<br />
! Key<br />
! Description<br />
|-<br />
| F12 <br />
| Make editor active. This is particularly useful for switching back to the editor view from the iSeries Error list view after a compile.<br />
|-<br />
| Dbl-click on word <br />
| Selects word<br />
|-<br />
| Ctrl-C <br />
| Copies current selection<br />
|-<br />
| Ctrl-V <br />
| Pastes clipboard contents<br />
|-<br />
| Ctrl-X <br />
| Cuts current selection to clipboard<br />
|-<br />
| Ctrl-Z <br />
| Undo<br />
|-<br />
| Ctrl-Y <br />
| ReDo<br />
|-<br />
| Ctrl-S <br />
| Save<br />
|-<br />
| Insert <br />
| Toggles insert mode (mode shows in header)<br />
|-<br />
| Ctrl-A <br />
| Selects all source<br />
|-<br />
| Ctrl-Shift-A<br />
| Open Member Dialog<br />
|-<br />
| Ctrl-Enter<br />
| Insert blank line after current (does not split)<br />
|-<br />
| Ctrl-F <br />
| Find ? simple in source <br />
|-<br />
| Alt-L <br />
| Selects current line<br />
|-<br />
| Ctrl-D <br />
| Copies current line and places below <br />
|-<br />
| Ctrl-Backspace <br />
| Deletes the line cursor is on<br />
|-<br />
| Ctrl-T <br />
| Bring the current line to the top of the view<br />
|-<br />
| Ctrl-Q <br />
| Sets a marker at the current position<br />
|-<br />
| Ctrl-J <br />
| Moves cursor back to last change made in source<br />
|-<br />
| Alt-S <br />
| Splits line at current cursor position<br />
|-<br />
| Alt-U <br />
| Deselects any currently selected text<br />
|-<br />
| DblClick Header <br />
| Shifts into full screen mode<br />
|-<br />
| Ctrl-F7 <br />
| Switches between open views<br />
|-<br />
| Ctrl-F8 <br />
| Switches between open perspectives<br />
|-<br />
| Ctrl-e <br />
| Displays list of open editors<br />
|-<br />
| Ctrl-F4 <br />
| Closes open editor<br />
|-<br />
| F1 <br />
| Help<br />
|-<br />
| Ctrl - Shift - C<br />
| Compiles current editor source member}<br />
<br />
==Categories==<br />
[[Category:WDSC|Shortcuts]]<br />
{{stub}}</div>TomHoldenhttps://wiki.midrange.com/index.php?title=Workstation_Data_Structure&diff=6433Workstation Data Structure2006-05-09T14:30:34Z<p>TomHolden: /* Using RPG IV Style Data Structures: */</p>
<hr />
<div>[[Category:RPG]]<br />
[[Category:Quick Reference]]<br />
==Using RPG III Style data structures:==<br />
<br />
<pre><br />
Dwsds ds <br />
d dspf 1 8a <br />
D openflag 9 9a <br />
D eof 10 10a <br />
D status 11 15s 0<br />
D opcode 16 21a <br />
D routine 22 29a <br />
D srcstmt 30 37a <br />
D rcdfmt 38 45a <br />
D msgid 46 52a <br />
D mi# 53 56a <br />
D scrsize 67 70s 0<br />
D rows 152 153b 0<br />
D columns 154 155b 0<br />
D fkey 369 369 <br />
</pre><br />
<br />
==Using RPG IV Style Data Structures:==<br />
<pre><br />
Dwsds ds <br />
d dspf 8a <br />
D openflag 1a <br />
D eof 1a <br />
D status 5s 0 <br />
D opcode 5a <br />
D routine 8a <br />
D srcstmt 8a <br />
D rcdfmt 8a <br />
D msgid 7a <br />
D mi# 4a <br />
D scrsize 4s 0 <br />
D rows 5i 0 <br />
D columns 5i 0 <br />
D fkey 1a Overlay(wsds:369) <br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=SQLRPGLE&diff=4287SQLRPGLE2005-06-29T18:13:56Z<p>TomHolden: /* SQL Directives */</p>
<hr />
<div>[[Category:RPG]]<br />
[[Category:SQL]]<br />
[[Category:SQL]]<br />
[[Category:RPG]]<br />
= RPG IV with Embedded SQL =<br />
== Introduction to RPG IV with Embedded SQL==<br />
SQL is a powerful tool in any programmer's skill set. It is possible to leverage this tool from within RPG (& other languages). The source member type for these programs is SQLRPGLE.<br />
Here is an example of an embedded SQL statement:<br />
<pre><br />
C/EXEC SQL<br />
C+ SELECT * FROM mylib/myfile<br />
C/END-EXEC<br />
</pre><br />
[[Category:Quick Reference]]<br />
== SQL Directives ==<br />
<table style="table-layout: auto; border-width: thin; border-color: navy; border-style: ridge inset"><br />
<tr><th colspan=3 style="color: WHITE; background-color: NAVY">SQL Directives</th></tr><br />
<tr><br />
<th style="color: WHITE; background-color: NAVY;">Directive</th><br />
<th style="color: WHITE; background-color: NAVY;">Function performed</th><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">SELECT</th><br />
<td style="border-color: navy; border-style: solid">The '''Select''' directive is used to extract data from a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">DECLARE</th><br />
<td style="border-color: navy; border-style: solid">The '''Declare Cursor''' directive is used to define a data path in your program</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">OPEN</th><br />
<td style="border-color: navy; border-style: solid">The '''Open Cursor''' directive is used to open a data path defined by a '''Declare Cursor''' directive.</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">CLOSE</th><br />
<td style="border-color: navy; border-style: solid">The '''Close Cursor''' directive is used to close a data path opened by a '''Open cursor''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">FETCH</th><br />
<td style="border-color: navy; border-style: solid">The '''Fetch''' directive is used to extract records from a data path opened via the '''Open Cursor''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">PREPARE</th><br />
<td style="border-color: navy; border-style: solid">The '''Prepare''' directive is used to prepare an dynamic SQL statement for execution</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">EXECUTE</th><br />
<td style="border-color: navy; border-style: solid">The '''Execute''' directive is used to execute an dynamic SQL statement prepared via the '''Prepare''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">EXECUTE IMMEDIATE</th><br />
<td style="border-color: navy; border-style: solid">The '''Execute Immediate''' directive is used to execute an SQL statement directly & does not require a '''Prepare''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">DELETE</th><br />
<td style="border-color: navy; border-style: solid">The '''Delete''' directive is used to delete data from a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">DROP TABLE</th><br />
<td style="border-color: navy; border-style: solid">The '''Drop Table''' directive is used to delete a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">CREATE TABLE</th><br />
<td style="border-color: navy; border-style: solid">The '''Create Table''' directive is used to create a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">ALTER TABLE</th><br />
<td style="border-color: navy; border-style: solid">The '''Alter Table''' directive is used to change file & field attributes in a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">UPDATE</th><br />
<td style="border-color: navy; border-style: solid">The '''Update''' directive is used to update data from a Physical file or Table</td><br />
</tr><br />
<br />
</table></div>TomHoldenhttps://wiki.midrange.com/index.php?title=SQLRPGLE&diff=4270SQLRPGLE2005-06-29T18:12:40Z<p>TomHolden: /* Introduction to RPG IV with Embedded SQL */</p>
<hr />
<div>[[Category:RPG]]<br />
[[Category:SQL]]<br />
[[Category:SQL]]<br />
[[Category:RPG]]<br />
= RPG IV with Embedded SQL =<br />
== Introduction to RPG IV with Embedded SQL==<br />
SQL is a powerful tool in any programmer's skill set. It is possible to leverage this tool from within RPG (& other languages). The source member type for these programs is SQLRPGLE.<br />
Here is an example of an embedded SQL statement:<br />
<pre><br />
C/EXEC SQL<br />
C+ SELECT * FROM mylib/myfile<br />
C/END-EXEC<br />
</pre><br />
== SQL Directives ==<br />
<table style="table-layout: auto; border-width: thin; border-color: navy; border-style: ridge inset"><br />
<tr><th colspan=3 style="color: WHITE; background-color: NAVY">SQL Directives</th></tr><br />
<tr><br />
<th style="color: WHITE; background-color: NAVY;">Directive</th><br />
<th style="color: WHITE; background-color: NAVY;">Function performed</th><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">SELECT</th><br />
<td style="border-color: navy; border-style: solid">The '''Select''' directive is used to extract data from a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">DECLARE</th><br />
<td style="border-color: navy; border-style: solid">The '''Declare Cursor''' directive is used to define a data path in your program</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">OPEN</th><br />
<td style="border-color: navy; border-style: solid">The '''Open Cursor''' directive is used to open a data path defined by a '''Declare Cursor''' directive.</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">CLOSE</th><br />
<td style="border-color: navy; border-style: solid">The '''Close Cursor''' directive is used to close a data path opened by a '''Open cursor''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">FETCH</th><br />
<td style="border-color: navy; border-style: solid">The '''Fetch''' directive is used to extract records from a data path opened via the '''Open Cursor''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">PREPARE</th><br />
<td style="border-color: navy; border-style: solid">The '''Prepare''' directive is used to prepare an dynamic SQL statement for execution</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">EXECUTE</th><br />
<td style="border-color: navy; border-style: solid">The '''Execute''' directive is used to execute an dynamic SQL statement prepared via the '''Prepare''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">EXECUTE IMMEDIATE</th><br />
<td style="border-color: navy; border-style: solid">The '''Execute Immediate''' directive is used to execute an SQL statement directly & does not require a '''Prepare''' directive</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">DELETE</th><br />
<td style="border-color: navy; border-style: solid">The '''Delete''' directive is used to delete data from a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">DROP TABLE</th><br />
<td style="border-color: navy; border-style: solid">The '''Drop Table''' directive is used to delete a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">CREATE TABLE</th><br />
<td style="border-color: navy; border-style: solid">The '''Create Table''' directive is used to create a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">ALTER TABLE</th><br />
<td style="border-color: navy; border-style: solid">The '''Alter Table''' directive is used to change file & field attributes in a Physical file or Table</td><br />
</tr><br />
<tr><br />
<th style="border-color: navy; border-style: solid">UPDATE</th><br />
<td style="border-color: navy; border-style: solid">The '''Update''' directive is used to update data from a Physical file or Table</td><br />
</tr><br />
<br />
</table></div>TomHoldenhttps://wiki.midrange.com/index.php?title=SQLRPGLE&diff=4269SQLRPGLE2005-06-29T16:48:46Z<p>TomHolden: /* RPG IV with Embedded SQL */</p>
<hr />
<div>[[Category:RPG]]<br />
[[Category:SQL]]<br />
[[Category:SQL]]<br />
[[Category:RPG]]<br />
= RPG IV with Embedded SQL =<br />
== Introduction to RPG IV with Embedded SQL==<br />
SQL is a powerful tool in any programmer's skill set. It is possible to leverage this tool from within RPG (& other languages). The source member type for these programs is SQLRPGLE.<br />
Here is an example of an embedded SQL statement:<br />
<pre><br />
C/EXEC SQL<br />
C+ SELECT * FROM mylib/myfile<br />
C/END-EXEC<br />
</pre><br />
<br />
<table style="table-layout: auto; border-width: thin; border-color: navy; border-style: ridge inset"><br />
<tr><th colspan=3 style="color: WHITE; background-color: NAVY">SQL Directives</th></tr><br />
<tr><br />
<th style="color: WHITE; background-color: NAVY;">Directive</th><br />
<th style="color: WHITE; background-color: NAVY;">Function performed</th><br />
</tr><br />
<tr><br />
<th>SELECT</th><br />
<td>The '''Select''' directive is used to extract data from a Physical file or Table</td><br />
</tr><br />
</table></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Category:SQL&diff=5695Category:SQL2005-06-29T16:46:48Z<p>TomHolden: </p>
<hr />
<div>= SQL (Structured Query Language) =</div>TomHoldenhttps://wiki.midrange.com/index.php?title=Main_Page&diff=4271Main Page2005-06-29T16:46:16Z<p>TomHolden: /* Programming */</p>
<hr />
<div>= '''Welcome to the MidrangeWiki!''' =<br />
<br />
<br />
We're just getting started with this wiki so don't expect much.<br />
<br />
The goal of this site is to provide information on the [[IBM]] [[eServer]] [[iSeries]] / [[i5]] / [[AS/400]] system (yes, it has had a number of [[names]]).<br />
<br />
All categories can be found in [[:Special:Categories]].<br />
<br />
== Overview ==<br />
<br />
* [[Iseries|iSeries Hardware]]<br />
* [[OS/400|OS/400]]<br />
<br />
== Operations ==<br />
<br />
* [[:Category:Commands|Commands]]<br />
* [[:Category:Security|Security]]<br />
* [[:Category:Quick Reference| Quick References]]<br />
<br />
== Programming ==<br />
<br />
* [[:Category:CLP|CLP]]<br />
* [[:Category:RPG|RPG]]<br />
* [[:Category:COBOL|COBOL]]<br />
* [[:Category:Java|Java]]<br />
* [[:Category:SQL|SQL]]<br />
<br />
== Other Information ==<br />
One of the goals of this Wiki is to replace the current Midrange FAQ with a somewhat more robust system. The current effort can be found in [[:Category:FAQ | here]].<br />
<br />
The primary administrator for this site is [[User:David|David Gibbs]].</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SQLRPGLE&diff=4268SQLRPGLE2005-06-29T16:44:42Z<p>TomHolden: </p>
<hr />
<div>[[Category:RPG]]<br />
[[Category:SQL]]<br />
= RPG IV with Embedded SQL =<br />
== Introduction to RPG IV with Embedded SQL==<br />
SQL is a powerful tool in any programmer's skill set. It is possible to leverage this tool from within RPG (& other languages). The source member type for these programs is SQLRPGLE.<br />
Here is an example of an embedded SQL statement:<br />
<pre><br />
C/EXEC SQL<br />
C+ SELECT * FROM mylib/myfile<br />
C/END-EXEC<br />
</pre><br />
<br />
<table style="table-layout: auto; border-width: thin; border-color: navy; border-style: ridge inset"><br />
<tr><th colspan=3 style="color: WHITE; background-color: NAVY">SQL Directives</th></tr><br />
<tr><br />
<th style="color: WHITE; background-color: NAVY;">Directive</th><br />
<th style="color: WHITE; background-color: NAVY;">Function performed</th><br />
</tr><br />
<tr><br />
<th>SELECT</th><br />
<td>The '''Select''' directive is used to extract data from a Physical file or Table</td><br />
</tr><br />
</table></div>TomHoldenhttps://wiki.midrange.com/index.php?title=SQLRPGLE&diff=4265SQLRPGLE2005-06-28T21:43:33Z<p>TomHolden: </p>
<hr />
<div>= RPG IV with Embedded SQL =<br />
<table style="table-layout: auto; border-width: thin; border-color: navy; border-style: ridge inset"><br />
<tr><th colspan=3 style="color: WHITE; background-color: NAVY">SQL Directives</th></tr><br />
<tr><br />
<th style="color: WHITE; background-color: NAVY;">Directive</th><br />
<th style="color: WHITE; background-color: NAVY;">Function performed</th><br />
</tr><br />
<tr><br />
<th>SELECT</th><br />
<td>The '''Select''' directive is used to extract data from a Physical file or Table</td><br />
</tr><br />
</table></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Main_Page&diff=4264Main Page2005-06-28T21:04:12Z<p>TomHolden: /* Programming */</p>
<hr />
<div>= '''Welcome to the MidrangeWiki!''' =<br />
<br />
<br />
We're just getting started with this wiki so don't expect much.<br />
<br />
The goal of this site is to provide information on the [[IBM]] [[eServer]] [[iSeries]] / [[i5]] / [[AS/400]] system (yes, it has had a number of [[names]]).<br />
<br />
All categories can be found in [[:Special:Categories]].<br />
<br />
== Overview ==<br />
<br />
* [[Iseries|iSeries Hardware]]<br />
* [[OS/400|OS/400]]<br />
<br />
== Operations ==<br />
<br />
* [[:Category:Commands|Commands]]<br />
* [[:Category:Security|Security]]<br />
* [[:Category:Quick Reference| Quick References]]<br />
<br />
== Programming ==<br />
<br />
* [[:Category:CLP|CLP]]<br />
* [[:Category:RPG|RPG]]<br />
* [[SQLRPGLE|RPG IV with Embedded SQL]]<br />
* [[:Category:COBOL|COBOL]]<br />
* [[:Category:Java|Java]]<br />
<br />
== Other Information ==<br />
One of the goals of this Wiki is to replace the current Midrange FAQ with a somewhat more robust system. The current effort can be found in [[:Category:FAQ | here]].<br />
<br />
The primary administrator for this site is [[User:David|David Gibbs]].</div>TomHoldenhttps://wiki.midrange.com/index.php?title=Security_Basics&diff=5651Security Basics2005-06-28T20:57:45Z<p>TomHolden: /* Adopted Authority */</p>
<hr />
<div>[[Category:Security]]<br />
See [[General Computer Security]] for info and links about Security outside of the 400.<br />
== Security Tools ==<br />
* GO SECTOOLS<br />
* GO SECBATCH<br />
== Security Wizard ==<br />
* Access via [[Operations Navigator]]<br />
** Warning ... while this is for administrators new to AS/400 or Security, before changing any security settings, it is advisable to consult with the most experienced AS/400 security professional on-site.<br />
** You can change security settings, but while they are changed, they affect how objects function, including how they function after you change settings back again.<br />
== Security [[Commands]] ==<br />
* Most functions of Security Commands, can also be done with [[Operations Navigator]]<br />
=== User Profile ===<br />
* GO CMDPRF<br />
* GO CMDUSR<br />
* [[CHGPRF]]<br />
* [[CHGUSRPRF]]<br />
* [[CRTUSRPRF]]<br />
* [[DSPUSRPRF]]<br />
* [[DSPAUTUSR]]<br />
* [[WRKUSRPRF]]<br />
<br />
=== Password ===<br />
* GO CMDPWD<br />
* [[CHGPWD]] change password<br />
* [[CHKPWD]] makes user re-enter password that was used to sign onto the 400<br />
<br />
=== Object Authority ===<br />
* GO CMDAUT<br />
* [[GRTOBJAUT]]<br />
* [[RVKOBJAUT]]<br />
* [[GRTUSRAUT]]<br />
* [[EDTOBJAUT]]<br />
<br />
=== Objects Owned ===<br />
* GO CMDOWN<br />
* [[CHGOBJOWN]]<br />
* [[WRKOBJOWN]]<br />
<br />
=== Authorization List ===<br />
* GO CMDAUTL<br />
* [[ADDAUTLE]]<br />
* [[CRTAUTL]]<br />
* [[DLTAUTL]]<br />
* [[DSPAUTL]]<br />
* [[DSPAUTLOBJ]]<br />
* [[EDTAUTL]]<br />
* [[RMVAUTLE]]<br />
* [[WRKAUTL]]<br />
<br />
=== Adopted Authority ===<br />
* [[DSPPGMADP]] Display Program Adopt<br />
** Specify a user profile and get a list of the programs that adopt that user's authority.<br />
* [[PRTADJOBJ]] Print Adopting Objects<br />
** Specify a user profile, *ALL or generic user(QP*) and get a printout of objects that adopt user's authority.</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SDA&diff=5572SDA2005-06-27T17:51:47Z<p>TomHolden: /* SDA Features */</p>
<hr />
<div>[[Category:Editors]]<br />
[[Category:Displays Programming]]<br />
'''SDA''', or ''Screen Design Aid'', is a [[DDS]] editing tool that lets you do quasi-WYSWIG design & maintenance of DDS for display files. It comes with [[OS/400]] as part of [[ADTS/400]] and it was also available on [[S/36]] [[SSP]]. The kinds of objects created with SDA are conceptually similar to many from [[DDS]] and [[UIM]]. Some of what SDA can edit can also be updated by [[PDM]] and [[SEU]].<br />
<br />
[[Category:Editors]]<br />
[[Category:Quick Reference]]<br />
== SDA Features ==<br />
<br />
Design and/or modify<br />
* Display Record Formats <br />
* Application Menus<br />
* Subfiles<br />
<br />
Fill in the blank format<br />
<br />
Generates DDS specifications, menu, display file source, message file for menus<br />
<br />
Some knowledge of [[DDS]] keywords needed.<br />
<br />
Extensive support for testing displays and individual indicators, without running the actual program that the screens are to be used with.</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SEU&diff=4298SEU2005-06-27T17:49:04Z<p>TomHolden: /* Introduction To SEU */</p>
<hr />
<div>[[Category:Editors]]<br />
[[Category:Editors]]<br />
[[Category:Quick Reference]]<br />
= Introduction To SEU =<br />
SEU or Source Entry Utility is included as part of [[OS400]], is inside of [[PDM]], and also was the main editor for [[S/36]] [[SSP]].<br />
<br />
== SEU Commands ==<br />
SEU contains User Exits (or commands) which can be used to assist with code editing. To utilize these exits you can typeover the source sequence numbers & press Enter. Below is a "work-in-progress" list of some of the SEU Commands.<br />
<br />
=== Source Editing Prompt - IPxx (Input Prompt) ===<br />
<table border='normal'><br />
<tr><th colspan=2>General Help</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IP?</th><br />
<td>Provides a list of all available editing prompts within SEU.</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>RPG/400 and RPG/ILE Prompt Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPH</th><br />
<td>Provides a prompt for keying '''Header''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPF</th><br />
<td>Provides a prompt for keying '''File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPFX</th><br />
<td>Provides a prompt for keying '''File Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPI</th><br />
<td>Provides a prompt for keying '''Record Identification''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPIX</th><br />
<td>Provides a prompt for keying '''Record Identification Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPJ</th><br />
<td>Provides a prompt for keying '''Input Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPJX</th><br />
<td>Provides a prompt for keying '''Input Field Definition Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPD</th><br />
<td>Provides a prompt for keying '''Definition''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPDX</th><br />
<td>Provides a prompt for keying '''Definition Extended''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPC</th><br />
<td>Provides a prompt for keying '''Calculation''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPCX</th><br />
<td>Provides a prompt for keying '''Extended Calculation'''</td><br />
</tr><br />
<tr><br />
<th>IPOD</th><br />
<td>Provides a prompt for keying '''Output Disk File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPO</th><br />
<td>Provides a prompt for keying '''Output File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPP</th><br />
<td>Provides a prompt for keying '''Output File Detail''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPR</th><br />
<td>Provides a prompt for keying '''Procedure''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPX</th><br />
<td>Provides a prompt for keying '''Procedure Extended'''</td><br />
</tr><br />
<tr><br />
<th>IP*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying '''Compile Time Table''' Entries</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Cobol & Cobol/ILE Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPCB</th><br />
<td>Provides a prompt for keying '''Cobol Statement'''</td><br />
</tr><br />
<tr><br />
<th>IPC*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Reformat & Sort Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPRH</th><br />
<td>Provides a prompt for keying '''Reformat Header'''</td><br />
</tr><br />
<tr><br />
<th>IPRR</th><br />
<td>Provides a prompt for keying '''Reformat Record Type'''</td><br />
</tr><br />
<tr><br />
<th>IPRF</th><br />
<td>Provides a prompt for keying '''Reformat Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPRC</th><br />
<td>Provides a prompt for keying '''Reformat Constant'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th>[[DDS]] Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPPF</th><br />
<td>Provides a prompt for keying '''Physical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPLF</th><br />
<td>Provides a prompt for keying '''Logical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPBC</th>Provides a prompt for keying '''Interactive Communications Feature File''' (ICF)</td><br />
</tr><br />
<tr><br />
<th>IPDP</th><br />
<td>Provides a prompt for keying '''Display & Printer File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPA*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Menu Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPMS</th><br />
<td>Provides a prompt for keying '''Display Control Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMH</th><br />
<td>Provides a prompt for keying '''Help Definition Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMD</th><br />
<td>Provides a prompt for keying '''Field Definitions Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMC</th><br />
<td>Provides a prompt for keying '''Field Definitions Continuation Specifications'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Fortran Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPFT</th><br />
<td>Provides a prompt for keying '''Fortran Statements'''</td><br />
</tr><br />
<tr><br />
<th>IPF*</th><br />
<td>Provides a prompt for keying '''Fortran Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Other Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPNC</th><br />
<td>Provides a prompt for keying with no syntax checking</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying free format</td><br />
</tr><br />
</table><br />
<BR><br />
<br />
=== SEU Inline Editing ===<br />
* '''A''' - Place code sample '''After''' the line of code selected<br />
* '''An''' - Place code sample '''After''' the line of code selected for '''n'''umber of lines<br />
* '''B''' - Place code sample '''Before''' the line of code selected<br />
* '''Bn''' - Place code sample '''Before''' the line of code selected for '''n'''umber of lines<br />
* '''C''' - Copy line of code<br />
* '''Cn''' - Copy '''n'''umber of lines<br />
* '''CC''' - Block copy (Put CC at first & last line of code block to copy)<br />
* '''D''' - Delete line of code<br />
* '''Dn''' - Delete '''n'''umber of lines<br />
* '''DD''' - Block Delete (Put DD at first & last line of code block to delete)<br />
* '''I''' - Insert line<br />
* '''In''' - Insert '''n'''umber of lines<br />
* '''M''' - Move line of code<br />
* '''Mn''' - Move '''n'''umber of lines<br />
* '''MM''' - Block move (Put MM at first & last line of code block to move)<br />
* '''O''' - Overlay line of code<br />
* '''On''' - Overlay '''n'''umber of lines<br />
* '''OO''' - Block overlay (Put OO at first & last line of code block to overlay)<br />
* '''RP''' - Repeat line of code<br />
* '''RPn''' - Repeat '''n'''umber of lines<br />
* '''RPP''' - Block repeat (Put RPP at first & last line of code block to repeat)<br />
* '''X''' - Exclude line of code<br />
* '''Xn''' - Exclude '''n'''umber of lines<br />
* '''XX''' - Block Exclude (Put XX at first & last line of code block to exclude)<br />
<br><br />
=== SEU Command Line ===<br />
* '''FIND''' or '''F''' - find string in source member<br />
* '''SAVE''' - save current source member<br />
* '''HIDE''' - hide lines containing a string (i.e. HIDE 'C*' will hide all source lines containing the string C*)<br />
* '''TOP''' or '''T''' - Position to top of source member<br />
* '''BOTTOM''' or '''B''' - Position to bottom of source member</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SEU&diff=4220SEU2005-06-27T17:28:49Z<p>TomHolden: /* Introduction To SEU */</p>
<hr />
<div>[[Category:Editors]]<br />
= Introduction To SEU =<br />
SEU or Source Entry Utility is included as part of [[OS400]], is inside of [[PDM]], and also was the main editor for [[S/36]] [[SSP]].<br />
<br />
== SEU Commands ==<br />
SEU contains User Exits (or commands) which can be used to assist with code editing. To utilize these exits you can typeover the source sequence numbers & press Enter. Below is a "work-in-progress" list of some of the SEU Commands.<br />
<br />
=== Source Editing Prompt - IPxx (Input Prompt) ===<br />
<table border='normal'><br />
<tr><th colspan=2>General Help</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IP?</th><br />
<td>Provides a list of all available editing prompts within SEU.</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>RPG/400 and RPG/ILE Prompt Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPH</th><br />
<td>Provides a prompt for keying '''Header''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPF</th><br />
<td>Provides a prompt for keying '''File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPFX</th><br />
<td>Provides a prompt for keying '''File Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPI</th><br />
<td>Provides a prompt for keying '''Record Identification''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPIX</th><br />
<td>Provides a prompt for keying '''Record Identification Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPJ</th><br />
<td>Provides a prompt for keying '''Input Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPJX</th><br />
<td>Provides a prompt for keying '''Input Field Definition Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPD</th><br />
<td>Provides a prompt for keying '''Definition''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPDX</th><br />
<td>Provides a prompt for keying '''Definition Extended''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPC</th><br />
<td>Provides a prompt for keying '''Calculation''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPCX</th><br />
<td>Provides a prompt for keying '''Extended Calculation'''</td><br />
</tr><br />
<tr><br />
<th>IPOD</th><br />
<td>Provides a prompt for keying '''Output Disk File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPO</th><br />
<td>Provides a prompt for keying '''Output File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPP</th><br />
<td>Provides a prompt for keying '''Output File Detail''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPR</th><br />
<td>Provides a prompt for keying '''Procedure''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPX</th><br />
<td>Provides a prompt for keying '''Procedure Extended'''</td><br />
</tr><br />
<tr><br />
<th>IP*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying '''Compile Time Table''' Entries</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Cobol & Cobol/ILE Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPCB</th><br />
<td>Provides a prompt for keying '''Cobol Statement'''</td><br />
</tr><br />
<tr><br />
<th>IPC*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Reformat & Sort Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPRH</th><br />
<td>Provides a prompt for keying '''Reformat Header'''</td><br />
</tr><br />
<tr><br />
<th>IPRR</th><br />
<td>Provides a prompt for keying '''Reformat Record Type'''</td><br />
</tr><br />
<tr><br />
<th>IPRF</th><br />
<td>Provides a prompt for keying '''Reformat Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPRC</th><br />
<td>Provides a prompt for keying '''Reformat Constant'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th>[[DDS]] Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPPF</th><br />
<td>Provides a prompt for keying '''Physical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPLF</th><br />
<td>Provides a prompt for keying '''Logical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPBC</th>Provides a prompt for keying '''Interactive Communications Feature File''' (ICF)</td><br />
</tr><br />
<tr><br />
<th>IPDP</th><br />
<td>Provides a prompt for keying '''Display & Printer File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPA*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Menu Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPMS</th><br />
<td>Provides a prompt for keying '''Display Control Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMH</th><br />
<td>Provides a prompt for keying '''Help Definition Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMD</th><br />
<td>Provides a prompt for keying '''Field Definitions Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMC</th><br />
<td>Provides a prompt for keying '''Field Definitions Continuation Specifications'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Fortran Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPFT</th><br />
<td>Provides a prompt for keying '''Fortran Statements'''</td><br />
</tr><br />
<tr><br />
<th>IPF*</th><br />
<td>Provides a prompt for keying '''Fortran Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Other Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPNC</th><br />
<td>Provides a prompt for keying with no syntax checking</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying free format</td><br />
</tr><br />
</table><br />
<BR><br />
<br />
=== SEU Inline Editing ===<br />
* '''A''' - Place code sample '''After''' the line of code selected<br />
* '''An''' - Place code sample '''After''' the line of code selected for '''n'''umber of lines<br />
* '''B''' - Place code sample '''Before''' the line of code selected<br />
* '''Bn''' - Place code sample '''Before''' the line of code selected for '''n'''umber of lines<br />
* '''C''' - Copy line of code<br />
* '''Cn''' - Copy '''n'''umber of lines<br />
* '''CC''' - Block copy (Put CC at first & last line of code block to copy)<br />
* '''D''' - Delete line of code<br />
* '''Dn''' - Delete '''n'''umber of lines<br />
* '''DD''' - Block Delete (Put DD at first & last line of code block to delete)<br />
* '''I''' - Insert line<br />
* '''In''' - Insert '''n'''umber of lines<br />
* '''M''' - Move line of code<br />
* '''Mn''' - Move '''n'''umber of lines<br />
* '''MM''' - Block move (Put MM at first & last line of code block to move)<br />
* '''O''' - Overlay line of code<br />
* '''On''' - Overlay '''n'''umber of lines<br />
* '''OO''' - Block overlay (Put OO at first & last line of code block to overlay)<br />
* '''RP''' - Repeat line of code<br />
* '''RPn''' - Repeat '''n'''umber of lines<br />
* '''RPP''' - Block repeat (Put RPP at first & last line of code block to repeat)<br />
* '''X''' - Exclude line of code<br />
* '''Xn''' - Exclude '''n'''umber of lines<br />
* '''XX''' - Block Exclude (Put XX at first & last line of code block to exclude)<br />
<br><br />
=== SEU Command Line ===<br />
* '''FIND''' or '''F''' - find string in source member<br />
* '''SAVE''' - save current source member<br />
* '''HIDE''' - hide lines containing a string (i.e. HIDE 'C*' will hide all source lines containing the string C*)<br />
* '''TOP''' or '''T''' - Position to top of source member<br />
* '''BOTTOM''' or '''B''' - Position to bottom of source member</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SEU&diff=4219SEU2005-06-27T17:23:42Z<p>TomHolden: /* Source Editing Prompt - IPxxxx (Input Prompt) */</p>
<hr />
<div>[[Category:Editors]]<br />
= Introduction To SEU =<br />
SEU or Source Entry Utility is included as part of [[OS400]], is inside of [[PDM]], and also was the main editor for [[S/36]] [[SSP]].<br />
<br />
== SEU Commands ==<br />
SEU contains User Exits (or commands) which can be used to assist with code editing. To utilize these exits you can typeover the source sequence numbers & press Enter. Below is a "work-in-progress" list of some of the SEU Commands.<br />
<br />
== Source Editing Prompt - IPxx (Input Prompt) ==<br />
<table border='normal'><br />
<tr><th colspan=2>General Help</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IP?</th><br />
<td>Provides a list of all available editing prompts within SEU.</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>RPG/400 and RPG/ILE Prompt Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPH</th><br />
<td>Provides a prompt for keying '''Header''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPF</th><br />
<td>Provides a prompt for keying '''File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPFX</th><br />
<td>Provides a prompt for keying '''File Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPI</th><br />
<td>Provides a prompt for keying '''Record Identification''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPIX</th><br />
<td>Provides a prompt for keying '''Record Identification Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPJ</th><br />
<td>Provides a prompt for keying '''Input Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPJX</th><br />
<td>Provides a prompt for keying '''Input Field Definition Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPD</th><br />
<td>Provides a prompt for keying '''Definition''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPDX</th><br />
<td>Provides a prompt for keying '''Definition Extended''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPC</th><br />
<td>Provides a prompt for keying '''Calculation''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPCX</th><br />
<td>Provides a prompt for keying '''Extended Calculation'''</td><br />
</tr><br />
<tr><br />
<th>IPOD</th><br />
<td>Provides a prompt for keying '''Output Disk File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPO</th><br />
<td>Provides a prompt for keying '''Output File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPP</th><br />
<td>Provides a prompt for keying '''Output File Detail''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPR</th><br />
<td>Provides a prompt for keying '''Procedure''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPX</th><br />
<td>Provides a prompt for keying '''Procedure Extended'''</td><br />
</tr><br />
<tr><br />
<th>IP*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying '''Compile Time Table''' Entries</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Cobol & Cobol/ILE Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPCB</th><br />
<td>Provides a prompt for keying '''Cobol Statement'''</td><br />
</tr><br />
<tr><br />
<th>IPC*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Reformat & Sort Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPRH</th><br />
<td>Provides a prompt for keying '''Reformat Header'''</td><br />
</tr><br />
<tr><br />
<th>IPRR</th><br />
<td>Provides a prompt for keying '''Reformat Record Type'''</td><br />
</tr><br />
<tr><br />
<th>IPRF</th><br />
<td>Provides a prompt for keying '''Reformat Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPRC</th><br />
<td>Provides a prompt for keying '''Reformat Constant'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th>[[DDS]] Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPPF</th><br />
<td>Provides a prompt for keying '''Physical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPLF</th><br />
<td>Provides a prompt for keying '''Logical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPBC</th>Provides a prompt for keying '''Interactive Communications Feature File''' (ICF)</td><br />
</tr><br />
<tr><br />
<th>IPDP</th><br />
<td>Provides a prompt for keying '''Display & Printer File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPA*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Menu Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPMS</th><br />
<td>Provides a prompt for keying '''Display Control Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMH</th><br />
<td>Provides a prompt for keying '''Help Definition Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMD</th><br />
<td>Provides a prompt for keying '''Field Definitions Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMC</th><br />
<td>Provides a prompt for keying '''Field Definitions Continuation Specifications'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Fortran Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPFT</th><br />
<td>Provides a prompt for keying '''Fortran Statements'''</td><br />
</tr><br />
<tr><br />
<th>IPF*</th><br />
<td>Provides a prompt for keying '''Fortran Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Other Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPNC</th><br />
<td>Provides a prompt for keying with no syntax checking</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying free format</td><br />
</tr><br />
</table><br />
<BR><br />
<br />
== SEU Inline Editing ==<br />
** '''A''' - Place code sample '''After''' the line of code selected<br />
** '''An''' - Place code sample '''After''' the line of code selected for '''n'''umber of lines<br />
** '''B''' - Place code sample '''Before''' the line of code selected<br />
** '''Bn''' - Place code sample '''Before''' the line of code selected for '''n'''umber of lines<br />
** '''C''' - Copy line of code<br />
** '''Cn''' - Copy '''n'''umber of lines<br />
** '''CC''' - Block copy (Put CC at first & last line of code block to copy)<br />
** '''D''' - Delete line of code<br />
** '''Dn''' - Delete '''n'''umber of lines<br />
** '''DD''' - Block Delete (Put DD at first & last line of code block to delete)<br />
** '''I''' - Insert line<br />
** '''In''' - Insert '''n'''umber of lines<br />
** '''M''' - Move line of code<br />
** '''Mn''' - Move '''n'''umber of lines<br />
** '''MM''' - Block move (Put MM at first & last line of code block to move)<br />
** '''O''' - Overlay line of code<br />
** '''On''' - Overlay '''n'''umber of lines<br />
** '''OO''' - Block overlay (Put OO at first & last line of code block to overlay)<br />
** '''RP''' - Repeat line of code<br />
** '''RPn''' - Repeat '''n'''umber of lines<br />
** '''RPP''' - Block repeat (Put RPP at first & last line of code block to repeat)<br />
** '''X''' - Exclude line of code<br />
** '''Xn''' - Exclude '''n'''umber of lines<br />
** '''XX''' - Block Exclude (Put XX at first & last line of code block to exclude)<br />
<br><br />
== SEU Command Line ==<br />
** '''FIND''' or '''F''' - find string in source member<br />
** '''SAVE''' - save current source member<br />
** '''HIDE''' - hide lines containing a string (i.e. HIDE 'C*' will hide all source lines containing the string C*)<br />
** '''TOP''' or '''T''' - Position to top of source member<br />
** '''BOTTOM''' or '''B''' - Position to bottom of source member</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SEU&diff=4217SEU2005-06-27T17:22:14Z<p>TomHolden: /* Source Editing Prompt - IPxxxx */</p>
<hr />
<div>[[Category:Editors]]<br />
= Introduction To SEU =<br />
SEU or Source Entry Utility is included as part of [[OS400]], is inside of [[PDM]], and also was the main editor for [[S/36]] [[SSP]].<br />
<br />
== SEU Commands ==<br />
SEU contains User Exits (or commands) which can be used to assist with code editing. To utilize these exits you can typeover the source sequence numbers & press Enter. Below is a "work-in-progress" list of some of the SEU Commands.<br />
<br />
== Source Editing Prompt - IPxxxx (Input Prompt) ==<br />
<table border='normal'><br />
<tr><th colspan=2>General Help</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IP?</th><br />
<td>Provides a list of all available editing prompts within SEU.</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>RPG/400 and RPG/ILE Prompt Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPH</th><br />
<td>Provides a prompt for keying '''Header''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPF</th><br />
<td>Provides a prompt for keying '''File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPFX</th><br />
<td>Provides a prompt for keying '''File Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPI</th><br />
<td>Provides a prompt for keying '''Record Identification''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPIX</th><br />
<td>Provides a prompt for keying '''Record Identification Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPJ</th><br />
<td>Provides a prompt for keying '''Input Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPJX</th><br />
<td>Provides a prompt for keying '''Input Field Definition Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPD</th><br />
<td>Provides a prompt for keying '''Definition''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPDX</th><br />
<td>Provides a prompt for keying '''Definition Extended''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPC</th><br />
<td>Provides a prompt for keying '''Calculation''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPCX</th><br />
<td>Provides a prompt for keying '''Extended Calculation'''</td><br />
</tr><br />
<tr><br />
<th>IPOD</th><br />
<td>Provides a prompt for keying '''Output Disk File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPO</th><br />
<td>Provides a prompt for keying '''Output File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPP</th><br />
<td>Provides a prompt for keying '''Output File Detail''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPR</th><br />
<td>Provides a prompt for keying '''Procedure''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPX</th><br />
<td>Provides a prompt for keying '''Procedure Extended'''</td><br />
</tr><br />
<tr><br />
<th>IP*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying '''Compile Time Table''' Entries</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Cobol & Cobol/ILE Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPCB</th><br />
<td>Provides a prompt for keying '''Cobol Statement'''</td><br />
</tr><br />
<tr><br />
<th>IPC*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Reformat & Sort Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPRH</th><br />
<td>Provides a prompt for keying '''Reformat Header'''</td><br />
</tr><br />
<tr><br />
<th>IPRR</th><br />
<td>Provides a prompt for keying '''Reformat Record Type'''</td><br />
</tr><br />
<tr><br />
<th>IPRF</th><br />
<td>Provides a prompt for keying '''Reformat Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPRC</th><br />
<td>Provides a prompt for keying '''Reformat Constant'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th>[[DDS]] Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPPF</th><br />
<td>Provides a prompt for keying '''Physical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPLF</th><br />
<td>Provides a prompt for keying '''Logical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPBC</th>Provides a prompt for keying '''Interactive Communications Feature File''' (ICF)</td><br />
</tr><br />
<tr><br />
<th>IPDP</th><br />
<td>Provides a prompt for keying '''Display & Printer File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPA*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Menu Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPMS</th><br />
<td>Provides a prompt for keying '''Display Control Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMH</th><br />
<td>Provides a prompt for keying '''Help Definition Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMD</th><br />
<td>Provides a prompt for keying '''Field Definitions Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMC</th><br />
<td>Provides a prompt for keying '''Field Definitions Continuation Specifications'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Fortran Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPFT</th><br />
<td>Provides a prompt for keying '''Fortran Statements'''</td><br />
</tr><br />
<tr><br />
<th>IPF*</th><br />
<td>Provides a prompt for keying '''Fortran Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Other Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPNC</th><br />
<td>Provides a prompt for keying with no syntax checking</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying free format</td><br />
</tr><br />
</table><br />
<BR><br />
<br />
== SEU Inline Editing ==<br />
** '''A''' - Place code sample '''After''' the line of code selected<br />
** '''An''' - Place code sample '''After''' the line of code selected for '''n'''umber of lines<br />
** '''B''' - Place code sample '''Before''' the line of code selected<br />
** '''Bn''' - Place code sample '''Before''' the line of code selected for '''n'''umber of lines<br />
** '''C''' - Copy line of code<br />
** '''Cn''' - Copy '''n'''umber of lines<br />
** '''CC''' - Block copy (Put CC at first & last line of code block to copy)<br />
** '''D''' - Delete line of code<br />
** '''Dn''' - Delete '''n'''umber of lines<br />
** '''DD''' - Block Delete (Put DD at first & last line of code block to delete)<br />
** '''I''' - Insert line<br />
** '''In''' - Insert '''n'''umber of lines<br />
** '''M''' - Move line of code<br />
** '''Mn''' - Move '''n'''umber of lines<br />
** '''MM''' - Block move (Put MM at first & last line of code block to move)<br />
** '''O''' - Overlay line of code<br />
** '''On''' - Overlay '''n'''umber of lines<br />
** '''OO''' - Block overlay (Put OO at first & last line of code block to overlay)<br />
** '''RP''' - Repeat line of code<br />
** '''RPn''' - Repeat '''n'''umber of lines<br />
** '''RPP''' - Block repeat (Put RPP at first & last line of code block to repeat)<br />
** '''X''' - Exclude line of code<br />
** '''Xn''' - Exclude '''n'''umber of lines<br />
** '''XX''' - Block Exclude (Put XX at first & last line of code block to exclude)<br />
<br><br />
== SEU Command Line ==<br />
** '''FIND''' or '''F''' - find string in source member<br />
** '''SAVE''' - save current source member<br />
** '''HIDE''' - hide lines containing a string (i.e. HIDE 'C*' will hide all source lines containing the string C*)<br />
** '''TOP''' or '''T''' - Position to top of source member<br />
** '''BOTTOM''' or '''B''' - Position to bottom of source member</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SEU&diff=4216SEU2005-06-27T17:21:00Z<p>TomHolden: /* SEU Commands */</p>
<hr />
<div>[[Category:Editors]]<br />
= Introduction To SEU =<br />
SEU or Source Entry Utility is included as part of [[OS400]], is inside of [[PDM]], and also was the main editor for [[S/36]] [[SSP]].<br />
<br />
== SEU Commands ==<br />
SEU contains User Exits (or commands) which can be used to assist with code editing. To utilize these exits you can typeover the source sequence numbers & press Enter. Below is a "work-in-progress" list of some of the SEU Commands.<br />
<br />
== Source Editing Prompt - IPxxxx ==<br />
<table border='normal'><br />
<tr><th colspan=2>General Help</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IP?</th><br />
<td>Provides a list of all available editing prompts within SEU.</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>RPG/400 and RPG/ILE Prompt Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPH</th><br />
<td>Provides a prompt for keying '''Header''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPF</th><br />
<td>Provides a prompt for keying '''File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPFX</th><br />
<td>Provides a prompt for keying '''File Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPI</th><br />
<td>Provides a prompt for keying '''Record Identification''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPIX</th><br />
<td>Provides a prompt for keying '''Record Identification Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPJ</th><br />
<td>Provides a prompt for keying '''Input Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPJX</th><br />
<td>Provides a prompt for keying '''Input Field Definition Continuation'''</td><br />
</tr><br />
<tr><br />
<th>IPD</th><br />
<td>Provides a prompt for keying '''Definition''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPDX</th><br />
<td>Provides a prompt for keying '''Definition Extended''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPC</th><br />
<td>Provides a prompt for keying '''Calculation''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPCX</th><br />
<td>Provides a prompt for keying '''Extended Calculation'''</td><br />
</tr><br />
<tr><br />
<th>IPOD</th><br />
<td>Provides a prompt for keying '''Output Disk File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPO</th><br />
<td>Provides a prompt for keying '''Output File''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPP</th><br />
<td>Provides a prompt for keying '''Output File Detail''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPR</th><br />
<td>Provides a prompt for keying '''Procedure''' Specification</td><br />
</tr><br />
<tr><br />
<th>IPPX</th><br />
<td>Provides a prompt for keying '''Procedure Extended'''</td><br />
</tr><br />
<tr><br />
<th>IP*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying '''Compile Time Table''' Entries</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Cobol & Cobol/ILE Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPCB</th><br />
<td>Provides a prompt for keying '''Cobol Statement'''</td><br />
</tr><br />
<tr><br />
<th>IPC*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Reformat & Sort Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPRH</th><br />
<td>Provides a prompt for keying '''Reformat Header'''</td><br />
</tr><br />
<tr><br />
<th>IPRR</th><br />
<td>Provides a prompt for keying '''Reformat Record Type'''</td><br />
</tr><br />
<tr><br />
<th>IPRF</th><br />
<td>Provides a prompt for keying '''Reformat Field Definition'''</td><br />
</tr><br />
<tr><br />
<th>IPRC</th><br />
<td>Provides a prompt for keying '''Reformat Constant'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th>[[DDS]] Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPPF</th><br />
<td>Provides a prompt for keying '''Physical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPLF</th><br />
<td>Provides a prompt for keying '''Logical File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPBC</th>Provides a prompt for keying '''Interactive Communications Feature File''' (ICF)</td><br />
</tr><br />
<tr><br />
<th>IPDP</th><br />
<td>Provides a prompt for keying '''Display & Printer File Definitions'''</td><br />
</tr><br />
<tr><br />
<th>IPA*</th><br />
<td>Provides a prompt for keying '''Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Menu Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPMS</th><br />
<td>Provides a prompt for keying '''Display Control Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMH</th><br />
<td>Provides a prompt for keying '''Help Definition Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMD</th><br />
<td>Provides a prompt for keying '''Field Definitions Specifications'''</td><br />
</tr><br />
<tr><br />
<th>IPMC</th><br />
<td>Provides a prompt for keying '''Field Definitions Continuation Specifications'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Fortran Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPFT</th><br />
<td>Provides a prompt for keying '''Fortran Statements'''</td><br />
</tr><br />
<tr><br />
<th>IPF*</th><br />
<td>Provides a prompt for keying '''Fortran Comments'''</td><br />
</tr><br />
</table><br />
<br><br />
<table border='normal'><br />
<tr><th colspan=2>Other Commands/Syntax</th></tr><br />
<tr><br />
<th>Command</th><br />
<th>Function</th><br />
</tr><br />
<tr><br />
<th>IPNC</th><br />
<td>Provides a prompt for keying with no syntax checking</td><br />
</tr><br />
<tr><br />
<th>IP**</th><br />
<td>Provides a prompt for keying free format</td><br />
</tr><br />
</table><br />
<BR><br />
== SEU Inline Editing ==<br />
** '''A''' - Place code sample '''After''' the line of code selected<br />
** '''An''' - Place code sample '''After''' the line of code selected for '''n'''umber of lines<br />
** '''B''' - Place code sample '''Before''' the line of code selected<br />
** '''Bn''' - Place code sample '''Before''' the line of code selected for '''n'''umber of lines<br />
** '''C''' - Copy line of code<br />
** '''Cn''' - Copy '''n'''umber of lines<br />
** '''CC''' - Block copy (Put CC at first & last line of code block to copy)<br />
** '''D''' - Delete line of code<br />
** '''Dn''' - Delete '''n'''umber of lines<br />
** '''DD''' - Block Delete (Put DD at first & last line of code block to delete)<br />
** '''I''' - Insert line<br />
** '''In''' - Insert '''n'''umber of lines<br />
** '''M''' - Move line of code<br />
** '''Mn''' - Move '''n'''umber of lines<br />
** '''MM''' - Block move (Put MM at first & last line of code block to move)<br />
** '''O''' - Overlay line of code<br />
** '''On''' - Overlay '''n'''umber of lines<br />
** '''OO''' - Block overlay (Put OO at first & last line of code block to overlay)<br />
** '''RP''' - Repeat line of code<br />
** '''RPn''' - Repeat '''n'''umber of lines<br />
** '''RPP''' - Block repeat (Put RPP at first & last line of code block to repeat)<br />
** '''X''' - Exclude line of code<br />
** '''Xn''' - Exclude '''n'''umber of lines<br />
** '''XX''' - Block Exclude (Put XX at first & last line of code block to exclude)<br />
<br><br />
== SEU Command Line ==<br />
** '''FIND''' or '''F''' - find string in source member<br />
** '''SAVE''' - save current source member<br />
** '''HIDE''' - hide lines containing a string (i.e. HIDE 'C*' will hide all source lines containing the string C*)<br />
** '''TOP''' or '''T''' - Position to top of source member<br />
** '''BOTTOM''' or '''B''' - Position to bottom of source member</div>TomHoldenhttps://wiki.midrange.com/index.php?title=SEU&diff=4215SEU2005-06-27T16:09:55Z<p>TomHolden: </p>
<hr />
<div>[[Category:Editors]]<br />
= Introduction To SEU =<br />
SEU or Source Entry Utility is included as part of [[OS400]], is inside of [[PDM]], and also was the main editor for [[S/36]] [[SSP]].<br />
<br />
== SEU Commands ==<br />
SEU contains User Exits (or commands) which can be used to assist with code editing. To utilize these exits you can typeover the source sequence numbers & press Enter. Below is a "work-in-progress" list of some of the SEU Commands.<br />
<br />
* '''Source Editing Prompt - IPxxxx'''<br><br />
** '''General Help'''<br />
***'''IP?''' - Provides a list of all available editing prompts within SEU.<br />
<br><br />
** '''RPG/400 and RPG/ILE IP Commands/Syntax'''<br />
*** '''IPH''' - Provides a prompt for keying '''Header''' Specification entries<br />
*** '''IPF''' - Provides a prompt for keying '''File''' Specification entries<br />
*** '''IPFX''' - Provides a prompt for keying '''File Continuation''' entries<br />
*** '''IPI''' - Provides a prompt for keying '''Record Identification''' Specification entries<br />
*** '''IPIX''' - Provides a prompt for keying '''Record Identification Continuation''' entries<br />
*** '''IPJ''' - Provides a prompt for keying '''Input Field Definition''' entries<br />
*** '''IPJX''' - Provides a prompt for keying '''Input Field Definition Continuation''' entries<br />
*** '''IPD''' - Provides a prompt for keying '''Definition''' Specification entries<br />
*** '''IPDX''' - Provides a prompt for keying '''Definition Extended''' Specification entries<br />
*** '''IPC''' - Provides a prompt for keying '''Calculation''' Specification entries<br />
*** '''IPCX''' - Provides a prompt for keying '''Extended Calculation''' entries<br />
*** '''IPOD''' - Provides a prompt for keying '''Output Disk File''' Specification entries<br />
*** '''IPO''' - Provides a prompt for keying '''Output File''' Specification entries<br />
*** '''IPP''' - Provides a prompt for keying '''Output File Detail''' Specification entries<br />
*** '''IPPR''' - Provides a prompt for keying '''Procedure''' Specification entries<br />
*** '''IPPX''' - Provides a prompt for keying '''Procedure Extended''' entries<br />
*** '''IP*''' - Provides a prompt for keying '''Comment''' entries<br />
*** '''IP**''' - Provides a prompt for keying '''Compile Time Table''' Entries<br />
<br><br />
** '''Cobol & Cobol/ILE Commands/Syntax'''<br />
*** '''IPCB''' - Provides a prompt for keying '''Cobol Statement''' entries<br />
*** '''IPC*''' - Provides a prompt for keying '''Comments''' entries<br />
<br><br />
** '''Reformat & Sort Commands/Syntax'''<br />
*** '''IPRH''' - Provides a prompt for keying '''Reformat Header''' entries<br />
*** '''IPRR''' - Provides a prompt for keying '''Reformat Record Type''' entries<br />
*** '''IPRF''' - Provides a prompt for keying '''Reformat Field Definition''' entries<br />
*** '''IPRC''' - Provides a prompt for keying '''Reformat Constant''' entries<br />
** '''[[DDS]] Commands/Syntax'''<br />
*** '''IPPF''' - Provides a prompt for keying '''Physical File Definition''' entries<br />
*** '''IPLF''' - Provides a prompt for keying '''Logical File Definition''' entries<br />
*** '''IPBC''' - Provides a prompt for keying '''Interactive Communications Feature File''' (ICF) entries<br />
*** '''IPDP''' - Provides a prompt for keying '''Display & Printer File Definition''' entries<br />
*** '''IPA*''' - Provides a prompt for keying '''Comment''' entries<br />
<br><br />
** '''Menu Commands/Syntax'''<br />
*** '''IPMS''' - Provides a prompt for keying '''Display Control''' Specificaion Entries<br />
*** '''IPMH''' - Provides a prompt for keying '''Help Definition''' Specification entries<br />
*** '''IPMD''' - Provides a prompt for keying '''Field Definitions''' Specification entries<br />
*** '''IPMC''' - Provides a prompt for keying '''Field Definitions Continuation''' Specification entries<br />
<br><br />
** '''Fortran Commands/Syntax'''<br />
*** '''IPFT''' - Provides a prompt for keying '''Fortran Statement''' entries<br />
*** '''IPF*''' - Provides a prompt for keying '''Fortran Comments''' entries<br />
<br><br />
** '''Other Commands/Syntax'''<br />
*** '''IPNC''' - Provides a prompt for keying with no syntax checking<br />
*** '''IP**''' - Provides a prompt for keying free format<br />
<BR><br />
* SEU Inline Editing<br />
** '''A''' - Place code sample '''After''' the line of code selected<br />
** '''An''' - Place code sample '''After''' the line of code selected for '''n'''umber of lines<br />
** '''B''' - Place code sample '''Before''' the line of code selected<br />
** '''Bn''' - Place code sample '''Before''' the line of code selected for '''n'''umber of lines<br />
** '''C''' - Copy line of code<br />
** '''Cn''' - Copy '''n'''umber of lines<br />
** '''CC''' - Block copy (Put CC at first & last line of code block to copy)<br />
** '''D''' - Delete line of code<br />
** '''Dn''' - Delete '''n'''umber of lines<br />
** '''DD''' - Block Delete (Put DD at first & last line of code block to delete)<br />
** '''I''' - Insert line<br />
** '''In''' - Insert '''n'''umber of lines<br />
** '''M''' - Move line of code<br />
** '''Mn''' - Move '''n'''umber of lines<br />
** '''MM''' - Block move (Put MM at first & last line of code block to move)<br />
** '''O''' - Overlay line of code<br />
** '''On''' - Overlay '''n'''umber of lines<br />
** '''OO''' - Block overlay (Put OO at first & last line of code block to overlay)<br />
** '''RP''' - Repeat line of code<br />
** '''RPn''' - Repeat '''n'''umber of lines<br />
** '''RPP''' - Block repeat (Put RPP at first & last line of code block to repeat)<br />
** '''X''' - Exclude line of code<br />
** '''Xn''' - Exclude '''n'''umber of lines<br />
** '''XX''' - Block Exclude (Put XX at first & last line of code block to exclude)<br />
<br><br />
* SEU Command Line<br />
** '''FIND''' or '''F''' - find string in source member<br />
** '''SAVE''' - save current source member<br />
** '''HIDE''' - hide lines containing a string (i.e. HIDE 'C*' will hide all source lines containing the string C*)<br />
** '''TOP''' or '''T''' - Position to top of source member<br />
** '''BOTTOM''' or '''B''' - Position to bottom of source member</div>TomHoldenhttps://wiki.midrange.com/index.php?title=FKey_AID_Bytes&diff=5614FKey AID Bytes2005-06-10T19:34:40Z<p>TomHolden: </p>
<hr />
<div>[[Category:Quick Reference]]<br />
= Function Key Attention Identifier Bytes =<br />
== Introduction To Function Key AID Bytes ==<br />
Function Key AID bytes can be used to determine which key was pressed in an interactive program. Using the [[Workstation Data Structure]] the function key pressed can be retrieved from 369 position. The AID byte will help you determine which actual key was pressed. Using the AID bytes also allows you to perform any things without using indicators.<br />
<br />
== Examples of AID Byte Usage ==<br />
For example, using a display file with the F3 key defined as an exit key, we can define the CF function like this:<br><br />
<pre><br />
A CF03 <br />
</pre><br />
<br />
Inside the RPG program we can use the AID bytes to determine if the key pressed was in fact F3.<br />
<pre><br />
Dwsds ds <br />
D fkey 369 369a<br />
/free<br />
DoU FKey=x'33';<br />
// do more stuff<br />
If FKey=x'33';<br />
Leave;<br />
EndIf;<br />
EndDo;<br />
/end-free<br />
</pre><br />
<br />
Even better would be to define F3 as a named constant:<br />
<pre><br />
Dwsds ds <br />
D fkey 369 369a<br />
D F3 c Const(x'33') <br />
/free<br />
DoU FKey=F3;<br />
// do more stuff<br />
If FKey=F3;<br />
Leave;<br />
EndIf;<br />
EndDo;<br />
/end-free<br />
</pre><br />
<br />
== Sample Named Constants ==<br />
Here is a list of Function Key AID Bytes:<br />
<br />
<pre><br />
D F1 C CONST(X'31')<br />
D F2 C CONST(X'32')<br />
D F3 C CONST(X'33')<br />
D F4 C CONST(X'34')<br />
D F5 C CONST(X'35')<br />
D F6 C CONST(X'36')<br />
D F7 C CONST(X'37')<br />
D F8 C CONST(X'38')<br />
D F9 C CONST(X'39')<br />
D F10 C CONST(X'3A')<br />
D F11 C CONST(X'3B')<br />
D F12 C CONST(X'3C')<br />
D F13 C CONST(X'B1')<br />
D F14 C CONST(X'B2')<br />
D F15 C CONST(X'B3')<br />
D F16 C CONST(X'B4')<br />
D F17 C CONST(X'B5')<br />
D F18 C CONST(X'B6')<br />
D F19 C CONST(X'B7')<br />
D F20 C CONST(X'B8')<br />
D F21 C CONST(X'B9')<br />
D F22 C CONST(X'BA')<br />
D F23 C CONST(X'BB')<br />
D F24 C CONST(X'BC')<br />
* Page Down/Roll Up <br />
D RollUp C CONST(X'F5')<br />
D PageDown C CONST(X'F5')<br />
* Page Up/Roll Down <br />
D RollDown C CONST(X'F4')<br />
D PageUp C CONST(X'F4')<br />
* Enter <br />
D Enter C CONST(X'F1')<br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=5634Program To System Fields2005-06-10T19:04:28Z<p>TomHolden: </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. These can be used as an alternative to using indicator controlled display attributes. P fields are one-byte codes passed to the display file at run-time. Indicator controlled attributes must be determined at compile time. 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 wished to display the contents of <i>myfield</i> in Red with underlines, 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>TomHoldenhttps://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=3750Program To System Fields2005-06-10T19:02:31Z<p>TomHolden: </p>
<hr />
<div>[[Category:Quick Reference]]<br />
[[Category:RPG]]<br />
== Program To System Fields ==<br />
Program to system fields (referenced from here out as P fields) can be used to emphasize field data on display files. These can be used as an alternative to using indicator controlled display attributes. P fields are one-byte codes passed to the display file at run-time. Indicator controlled attributes must be determined at compile time. 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 wished to display the contents of <i>myfield</i> in Red with underlines, 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>TomHoldenhttps://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=3749Program To System Fields2005-06-10T18:47:08Z<p>TomHolden: </p>
<hr />
<div>[[Category:Quick Reference]]<br />
[[Category:RPG]]<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>TomHoldenhttps://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=3743Program To System Fields2005-06-10T18:44:56Z<p>TomHolden: </p>
<hr />
<div>[[Category:Quick Reference]]<br />
[[Category:RPG]]<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>TomHoldenhttps://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=3742Program To System Fields2005-06-10T18:41:35Z<p>TomHolden: </p>
<hr />
<div>[[Category:Quick Reference]]<br />
[[Category:RPG]]<br />
=Program To System Fields List=<br />
Here is a work-in-progress list of constant names for the various program-to-system field (P-field) values:<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>TomHoldenhttps://wiki.midrange.com/index.php?title=RPG_4&diff=3840RPG 42005-06-10T17:51:55Z<p>TomHolden: /* References */</p>
<hr />
<div>[[Category:Programming]]<br />
[[Category:RPG]]<br />
Note that '''RPG 4''' can do just about anything that could be done by earlier versions of [[RPG]] such as [[RPG/400]] and an enormous volume of additional capabilities.<br />
== References ==<br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508402.htm RPG IV with free format op codes]<br><br />
[[Built In Functions]]<br><br />
[[Program To System Fields]]<br><br />
[[FKey AID Bytes| Function Key AID Bytes]]<br><br />
<br />
== Data Structure Information ==<br />
[[Program Status Data Structure]]<br><br />
[[Workstation Data Structure]]<br><br />
<br />
== Code Samples ==<br />
[[Locate field value field name]]<br><br />
[[SQLSTATE Constants]]<br><br />
<br />
<br />
<br />
== FAQ ==<br />
<br />
[[What does BINARY(4) mean in API documentation?]]</div>TomHoldenhttps://wiki.midrange.com/index.php?title=RPG_4&diff=3728RPG 42005-06-10T17:50:42Z<p>TomHolden: /* References */</p>
<hr />
<div>[[Category:Programming]]<br />
[[Category:RPG]]<br />
Note that '''RPG 4''' can do just about anything that could be done by earlier versions of [[RPG]] such as [[RPG/400]] and an enormous volume of additional capabilities.<br />
== References ==<br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508402.htm RPG IV with free format op codes]<br><br />
[[Built In Functions]]<br><br />
[[Program To System Fields]]<br><br />
<br />
== Data Structure Information ==<br />
[[Program Status Data Structure]]<br><br />
[[Workstation Data Structure]]<br><br />
<br />
== Code Samples ==<br />
[[Locate field value field name]]<br><br />
[[SQLSTATE Constants]]<br><br />
<br />
<br />
<br />
== FAQ ==<br />
<br />
[[What does BINARY(4) mean in API documentation?]]</div>TomHoldenhttps://wiki.midrange.com/index.php?title=RPG_4&diff=3727RPG 42005-06-10T17:49:03Z<p>TomHolden: </p>
<hr />
<div>[[Category:Programming]]<br />
[[Category:RPG]]<br />
Note that '''RPG 4''' can do just about anything that could be done by earlier versions of [[RPG]] such as [[RPG/400]] and an enormous volume of additional capabilities.<br />
== References ==<br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508402.htm RPG IV with free format op codes]<br><br />
[[Built In Functions]]<br><br />
<br />
== Data Structure Information ==<br />
[[Program Status Data Structure]]<br><br />
[[Workstation Data Structure]]<br><br />
<br />
== Code Samples ==<br />
[[Locate field value field name]]<br><br />
[[SQLSTATE Constants]]<br><br />
<br />
<br />
<br />
== FAQ ==<br />
<br />
[[What does BINARY(4) mean in API documentation?]]</div>TomHoldenhttps://wiki.midrange.com/index.php?title=RPG_4&diff=3726RPG 42005-06-10T17:44:55Z<p>TomHolden: </p>
<hr />
<div>[[Category:Programming]]<br />
[[Category:RPG]]<br />
Note that '''RPG 4''' can do just about anything that could be done by earlier versions of [[RPG]] such as [[RPG/400]] and an enormous volume of additional capabilities.<br />
== Data Structure Information ==<br />
[[Program Status Data Structure]]<br><br />
[[Workstation Data Structure]]<br><br />
<br />
== Code Samples ==<br />
[[Locate field value field name]]<br><br />
[[SQLSTATE Constants]]<br><br />
<br />
<br />
<br />
== FAQ ==<br />
<br />
[[What does BINARY(4) mean in API documentation?]]</div>TomHoldenhttps://wiki.midrange.com/index.php?title=Workstation_Data_Structure&diff=5613Workstation Data Structure2005-06-10T17:40:06Z<p>TomHolden: </p>
<hr />
<div>[[Category:RPG]]<br />
[[Category:Quick Reference]]<br />
==Using RPG III Style data structures:==<br />
<br />
<pre><br />
Dwsds ds <br />
d dspf 1 8a <br />
D openflag 9 9a <br />
D eof 10 10a <br />
D status 11 15s 0<br />
D opcode 16 21a <br />
D routine 22 29a <br />
D srcstmt 30 37a <br />
D rcdfmt 38 45a <br />
D msgid 46 52a <br />
D mi# 53 56a <br />
D scrsize 67 70s 0<br />
D rows 152 153b 0<br />
D columns 154 155b 0<br />
D fkey 369 369 <br />
</pre><br />
<br />
==Using RPG IV Style Data Structures:==<br />
<pre><br />
Dwsds ds <br />
d dspf 8a <br />
D openflag 1a <br />
D eof 1a <br />
D status 5s 0 <br />
D opcode 5a <br />
D routine 8a <br />
D srcstmt 8a <br />
D rcdfmt 8a <br />
D msgid 7a <br />
D mi# 4a <br />
D scrsize 4s 0 <br />
D rows 5i 0 <br />
D columns 5i 0 <br />
D fkey 1a <br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Program_Status_Data_Structure&diff=5619Program Status Data Structure2005-06-10T17:39:10Z<p>TomHolden: </p>
<hr />
<div>[[Category:RPG]]<br />
[[Category:Quick Reference]]<br />
== Program Status Data Structure ==<br />
This structure contains subfields that hold a lot of information about the current program and the job it's running in. It provides the easiest way to get the program name, the job name, user ID, exception information and more.<br />
<br />
You declare it in the data definition section of the program like this:<br />
<br />
* Program Status Data Structure<br />
D SDS<br />
<br />
List the sub-fields you need below that. They're described in the [http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/books/c092508409.htm#HDRPSDSDT9 ILE RPG language reference].<br />
<br />
Declaring an externally described data structure allows you to use any of the information in the program status data structure without worrying about sub-field locations. You just add a declaration like this to your program:<br />
<br />
* Program Status Data Structure<br />
D PSDS ESDS<br />
<br />
Place the data structure template file in the library list during the compile. Create the template file by compiling PSDS from the [ftp://ftp.pbhall.us/pub/psds.txt source] as a normal data file with no members. Use the subfields as you would any other variable in your program.<br />
<br />
==Program Status Data Structure Available Information==<br />
Numeric Data Length column contains the decimal places after the ",".<br />
<table border="normal"><br />
<tr><br />
<th>Value Contained</th><br />
<th>Data Type</th><br />
<th>Data Length</th><br />
<th>Beginning Buffer Position</th><br />
<th>Ending Buffer Position</th><br />
</tr><br />
<tr><br />
<td>Program Name</td><br />
<td>Character</td><br />
<td align="right">10</td><br />
<td align="right">1</td><br />
<td align="right">10</td><br />
</tr><br />
<tr><br />
<td>Program Status</td><br />
<td>Zoned Decimal</td><br />
<td align="right">5,0</td><br />
<td align="right">11</td><br />
<td align="right">15</td><br />
</tr><br />
<tr><br />
<td>Program Previous Status</td><br />
<td>Zoned Decimal</td><br />
<td align="right">5,0</td><br />
<td align="right">16</td><br />
<td align="right">20</td><br />
</tr><br />
<tr><br />
<td>Program Source Statement</td><br />
<td>Character</td><br />
<td align="right">8</td><br />
<td align="right">21</td><br />
<td align="right">28</td><br />
</tr><br />
<tr><br />
<td>Program Routine</td><br />
<td>Character</td><br />
<td align="right">8</td><br />
<td align="right">29</td><br />
<td align="right">36</td><br />
</tr><br />
<tr><br />
<td>Program Number Of Parameters</td><br />
<td>Zoned Decimal</td><br />
<td align="right">3,0</td><br />
<td align="right">37</td><br />
<td align="right">39</td><br />
</tr><br />
<tr><br />
<td>Program Message ID</td><br />
<td>Character</td><br />
<td align="right">7</td><br />
<td align="right">40</td><br />
<td align="right">46</td><br />
</tr><br />
<tr><br />
<td>Program MI Instruction Code</td><br />
<td>Character</td><br />
<td align="right">4</td><br />
<td align="right">47</td><br />
<td align="right">50</td><br />
</tr><br />
<tr><br />
<td>Program Work</td><br />
<td>Character</td><br />
<td align="right">30</td><br />
<td align="right">51</td><br />
<td align="right">80</td><br />
</tr><br />
<tr><br />
<td>Program Library</td><br />
<td>Character</td><br />
<td align="right">10</td><br />
<td align="right">81</td><br />
<td align="right">90</td><br />
</tr><br />
<tr><br />
<td>Program Error Data</td><br />
<td>Character</td><br />
<td align="right">80</td><br />
<td align="right">91</td><br />
<td align="right">170</td><br />
</tr><br />
<tr><br />
<td>Program RPG Message</td><br />
<td>Character</td><br />
<td align="right">4</td><br />
<td align="right">171</td><br />
<td align="right">174</td><br />
</tr><br />
<tr><br />
<td>Program Job Name</td><br />
<td>Character</td><br />
<td align="right">10</td><br />
<td align="right">244</td><br />
<td align="right">253</td><br />
</tr><br />
<tr><br />
<td>Program User ID</td><br />
<td>Character</td><br />
<td align="right">10</td><br />
<td align="right">254</td><br />
<td align="right">263</td><br />
</tr><br />
<tr><br />
<td>Program Job Number</td><br />
<td>Zoned Decimal</td><br />
<td align="right">6,0</td><br />
<td align="right">264</td><br />
<td align="right">269</td><br />
</tr><br />
<tr><br />
<td>Program Job Date</td><br />
<td>Zoned Decimal</td><br />
<td align="right">6</td><br />
<td align="right">270</td><br />
<td align="right">275</td><br />
</tr><br />
<tr><br />
<td>Program Run Date</td><br />
<td>Zoned Decimal</td><br />
<td align="right">6</td><br />
<td align="right">276</td><br />
<td align="right">281</td><br />
</tr><br />
<tr><br />
<td>Program Run Time</td><br />
<td>Zoned Decimal</td><br />
<td align="right">6</td><br />
<td align="right">282</td><br />
<td align="right">287</td><br />
</tr><br />
</table><br />
<br><br><br />
==Here is a Sample Program Status Data Structure in RPG III Style:==<br />
<pre><br />
Dpsds sds <br />
D pgmname 1 10a <br />
D pgmsts 11 15s 0 <br />
D pgmprvsts 16 20s 0 <br />
D pgmsrcstmt 21 28a <br />
D pgmroutine 29 36a <br />
D pgmparms 37 39s 0 <br />
D pgmmsgid 40 46a <br />
D pgmmi# 47 50a <br />
D pgmwork 51 80a <br />
D pgmlib 81 90a <br />
D pgmerrdta 91 170a <br />
D pgmrpgmsg 171 174a <br />
D pgmjob 244 253a <br />
D pgmuser 254 263a <br />
D pgmjobnum 264 269s 0 <br />
D pgmjobdate 270 275s 0 <br />
D pgmrundate 276 281s 0 <br />
D pgmruntime 282 287s 0 <br />
</pre><br />
<br><br><br />
==Here is a Sample Program Status Data Structure in RPG IV Style:==<br />
<pre><br />
Dpsds sds <br />
D pgmname 10a <br />
D pgmsts 5s 0 <br />
D pgmprvsts 5s 0 <br />
D pgmsrcstmt 8a <br />
D pgmroutine 8a <br />
D pgmparms 3s 0 <br />
D pgmmsgid 7a <br />
D pgmmi# 4a <br />
D pgmwork 30a <br />
D pgmlib 10a <br />
D pgmerrdta 80a <br />
D pgmrpgmsg 4a <br />
D pgmjob 10a <br />
D pgmuser 10a <br />
D pgmjobnum 5s 0 <br />
D pgmjobdate 6s 0 <br />
D pgmrundate 6s 0 <br />
D pgmruntime 6s 0 <br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Workstation_Data_Structure&diff=3724Workstation Data Structure2005-06-10T17:36:34Z<p>TomHolden: /* Using RPG III type data structures: */</p>
<hr />
<div>[[Category:Quick Reference]]<br />
==Using RPG III Style data structures:==<br />
<br />
<pre><br />
Dwsds ds <br />
d dspf 1 8a <br />
D openflag 9 9a <br />
D eof 10 10a <br />
D status 11 15s 0<br />
D opcode 16 21a <br />
D routine 22 29a <br />
D srcstmt 30 37a <br />
D rcdfmt 38 45a <br />
D msgid 46 52a <br />
D mi# 53 56a <br />
D scrsize 67 70s 0<br />
D rows 152 153b 0<br />
D columns 154 155b 0<br />
D fkey 369 369 <br />
</pre><br />
<br />
==Using RPG IV Style Data Structures:==<br />
<pre><br />
Dwsds ds <br />
d dspf 8a <br />
D openflag 1a <br />
D eof 1a <br />
D status 5s 0 <br />
D opcode 5a <br />
D routine 8a <br />
D srcstmt 8a <br />
D rcdfmt 8a <br />
D msgid 7a <br />
D mi# 4a <br />
D scrsize 4s 0 <br />
D rows 5i 0 <br />
D columns 5i 0 <br />
D fkey 1a <br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Main_Page&diff=4258Main Page2005-06-10T16:53:46Z<p>TomHolden: </p>
<hr />
<div>== '''Welcome to the MidrangeWiki!''' ==<br />
<br />
<br />
We're just getting started with this wiki so don't expect much.<br />
<br />
The goal of this site is to provide information on the [[IBM]] [[eServer]] [[iSeries]] / [[i5]] / [[AS/400]] system (yes, it has had a number of [[names]]).<br />
<br />
All categories can be found in [[:Special:Categories]].<br />
<br />
Programming resources can be found in [[:Category:Programming | programming]] category.<br />
<br />
Administration resource can be found in [[:Category:Administration | administration]] category.<br />
<br />
Quick Reference Charts can be found in [[:Category:Quick Reference| Quick References]] category.<br />
<br />
One of the goals of this Wiki is to replace the current Midrange FAQ with a somewhat more robust system. The current effort can be found in [[:Category:FAQ | here]].<br />
<br />
The primary administrator for this site is [[User:David|David Gibbs]].</div>TomHoldenhttps://wiki.midrange.com/index.php?title=RPG_Built_In_Functions&diff=3730RPG Built In Functions2005-06-10T16:50:44Z<p>TomHolden: </p>
<hr />
<div>[[Category: Quick Reference]]<br />
=Built-in Functions=<br />
<br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBABS %ABS (Absolute Value of Expression) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBADDR %ADDR (Get Address of Variable)] <br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBALLOC %ALLOC (Allocate Storage) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBAND %BITAND (Bitwise AND Operation)]<br> <br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBNOT %BITNOT (Invert Bits) ] <br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBOR %BITOR (Bitwise OR Operation) ] <br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBXOR %BITXOR (Bitwise Exclusive-OR Operation) ] <br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#Header_720 Examples of Bit Operations ] <br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBCHAR %CHAR (Convert to Character Data) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBCHK %CHECK (Check Characters) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBCHKR %CHECKR (Check Reverse) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBDATE %DATE (Convert to Date) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBDAY %DAYS (Number of Days) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBDEC %DEC (Convert to Packed Decimal Format) ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBDECH %DECH (Convert to Packed Decimal Format with Half Adjust) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBDECP %DECPOS (Get Number of Decimal Positions) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBDIF %DIFF (Difference Between Two Date, Time, or Timestamp Values) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBDIV %DIV (Return Integer Portion of Quotient) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBEDITC %EDITC (Edit Value Using an Editcode) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBEDITF %EDITFLT (Convert to Float External Representation) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBEDITW %EDITW (Edit Value Using an Editword) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBELEM %ELEM (Get Number of Elements) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBEOF %EOF (Return End or Beginning of File Condition) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBEQUAL %EQUAL (Return Exact Match Condition) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBERROR %ERROR (Return Error Condition) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBFIELDS %FIELDS (Fields to update) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBFLOAT %FLOAT (Convert to Floating Format) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBFOUND %FOUND (Return Found Condition) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBGRAPH %GRAPH (Convert to Graphic Value) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBHOU %HOURS (Number of Hours) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBINT %INT (Convert to Integer Format) ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBINTH %INTH (Convert to Integer Format with Half Adjust) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBKDS %KDS (Search Arguments in Data Structure) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBLEN %LEN (Get or Set Length) ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRLNRIGHT %LEN Used for its Value ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRLENLEFT %LEN Used to Set the Length of Variable-Length Fields ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBLOO %LOOKUPxx (Look Up an Array Element) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBMIN %MINUTES (Number of Minutes) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBMON %MONTHS (Number of Months) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBMSEC %MSECONDS (Number of Microseconds) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBNULL %NULLIND (Query or Set Null Indicator) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBOCCUR %OCCUR (Set/Get Occurrence of a Data Structure) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBOPEN %OPEN (Return File Open Condition) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBPADDR %PADDR (Get Procedure Address) ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#Header_758 %PADDR Used with a Prototype ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBPARM %PARMS (Return Number of Parameters) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBREALL %REALLOC (Reallocate Storage) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBREM %REM (Return Integer Remainder) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBREPL %REPLACE (Replace Character String) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSCAN %SCAN (Scan for Characters) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSEC %SECONDS (Number of Seconds) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSHUT %SHTDN (Shut Down) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSIZE %SIZE (Get Size in Bytes) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSQRT %SQRT (Square Root of Expression) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSTAT %STATUS (Return File or Program Status) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSTR %STR (Get or Store Null-Terminated String) ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSTRR %STR Used to Get Null-Terminated String ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSTRL %STR Used to Store Null-Terminated String ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSUBD %SUBDT (Extract a Portion of a Date, Time, or Timestamp) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSUBS9 %SUBST (Get Substring) ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSUBSV %SUBST Used for its Value ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBSUBSA %SUBST Used as the Result of an Assignment ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBTHIS %THIS (Return Class Instance for Native Method) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBTIME %TIME (Convert to Time) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBTMST %TIMESTAMP (Convert to Timestamp) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBTLOO %TLOOKUPxx (Look Up a Table Element) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBTRIM %TRIM (Trim Blanks at Edges) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBTRIML %TRIML (Trim Leading Blanks) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBTRIMR %TRIMR (Trim Trailing Blanks) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBUCS2 %UCS2 (Convert to UCS-2 Value) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBUNS %UNS (Convert to Unsigned Format) ]<br><br />
*[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBUNSH %UNSH (Convert to Unsigned Format with Half Adjust) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBXFOOT %XFOOT (Sum Array Expression Elements) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBXLAT %XLATE (Translate) ]<br><br />
[http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508429.htm#HDRBBYEAR %YEARS (Number of Years)]<br></div>TomHoldenhttps://wiki.midrange.com/index.php?title=User:TomHolden&diff=5633User:TomHolden2005-06-08T20:21:02Z<p>TomHolden: </p>
<hr />
<div>Tommy Holden is a Computer Programmer with 9 years of experience on the AS/400,iSeries, i5 platform. <br />
<br />
Some favorite haunting grounds on the web:<br><br />
[http://www.iseriesnetwork.com iSeries Network]<br><br />
[http://www.everquestlive.com Everquest Live] i gotta have some time for stress relief!!!!<br><br />
& here, of course!!!</div>TomHoldenhttps://wiki.midrange.com/index.php?title=Program_To_System_Fields&diff=3740Program To System Fields2005-06-08T19:48:01Z<p>TomHolden: </p>
<hr />
<div>[[Category:Quick Reference]]<br />
=Program To System Fields List=<br />
Here is a work-in-progress list of constant names for the various program-to-system field (P-field) values:<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>TomHoldenhttps://wiki.midrange.com/index.php?title=FKey_AID_Bytes&diff=3470FKey AID Bytes2005-06-07T22:39:06Z<p>TomHolden: </p>
<hr />
<div>Here is a list of Function Key AID Bytes:<br />
<br />
<pre><br />
D F1 C CONST(X'31')<br />
D F2 C CONST(X'32')<br />
D F3 C CONST(X'33')<br />
D F4 C CONST(X'34')<br />
D F5 C CONST(X'35')<br />
D F6 C CONST(X'36')<br />
D F7 C CONST(X'37')<br />
D F8 C CONST(X'38')<br />
D F9 C CONST(X'39')<br />
D F10 C CONST(X'3A')<br />
D F11 C CONST(X'3B')<br />
D F12 C CONST(X'3C')<br />
D F13 C CONST(X'B1')<br />
D F14 C CONST(X'B2')<br />
D F15 C CONST(X'B3')<br />
D F16 C CONST(X'B4')<br />
D F17 C CONST(X'B5')<br />
D F18 C CONST(X'B6')<br />
D F19 C CONST(X'B7')<br />
D F20 C CONST(X'B8')<br />
D F21 C CONST(X'B9')<br />
D F22 C CONST(X'BA')<br />
D F23 C CONST(X'BB')<br />
D F24 C CONST(X'BC')<br />
* Page Down/Roll Up <br />
D RollUp C CONST(X'F5')<br />
D PageDown C CONST(X'F5')<br />
* Page Up/Roll Down <br />
D RollDown C CONST(X'F4')<br />
D PageUp C CONST(X'F4')<br />
* Enter <br />
D Enter C CONST(X'F1')<br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=SQLSTATE_Constants&diff=3468SQLSTATE Constants2005-06-07T22:29:15Z<p>TomHolden: </p>
<hr />
<div>Here is a work-in-progress list of constant names for the SQLSTATE codes in RPG.<br />
<pre><br />
D*? General Constants<br />
D SQL_FALSE C 0<br />
D SQL_TRUE C 1<br />
D SQL_NTS C -3<br />
D SQL_STATE_SIZE C 5<br />
D SQL_MAX_MESSAGE_LENGTH...<br />
D C 512<br />
D*?<br />
D*? Return Code Values<br />
D SQL_SUCCESS C 0<br />
D SQL_SUCCESS_WITH_INFO...<br />
D C 1<br />
D SQL_NO_DATA_FOUND...<br />
D C 100<br />
D SQL_NEED_DATA C 99<br />
D SQL_NO_DATA C 100<br />
D SQL_ERROR C -1<br />
D SQL_INVALID_HANDLE...<br />
D C -2<br />
D*?<br />
D*? Standard SQL data types<br />
D SQL_ALL_TYPES C 0<br />
D SQL_CHAR C 1<br />
D SQL_NUMERIC C 2<br />
D SQL_DECIMAL C 3<br />
D SQL_INTEGER C 4<br />
D SQL_SMALLINT C 5<br />
D SQL_FLOAT C 6<br />
D SQL_REAL C 7<br />
D SQL_DOUBLE C 8<br />
D SQL_DATETIME C 9<br />
D SQL_VARCHAR C 12<br />
D SQL_LONGVARCHAR...<br />
D C 12<br />
D SQL_BLOB C 13<br />
D SQL_CLOB C 14<br />
D SQL_DBCLOB C 15<br />
D SQL_DATALINK C 16<br />
D SQL_WCHAR C 17<br />
D SQL_WVARCHAR C 18<br />
D SQL_WLONGVARCHAR...<br />
D C 18<br />
D SQL_BIGINT C 19<br />
D SQL_BLOB_LOCATOR...<br />
D C 20<br />
D SQL_CLOB_LOCATOR...<br />
D C 21<br />
D SQL_DBCLOB_LOCATOR...<br />
D C 22<br />
D SQL_DATE C 91<br />
D SQL_TYPE_DATE C 91<br />
D SQL_CODE_DATE C 1<br />
D SQL_TIME C 92<br />
D SQL_TYPE_TIME C 92<br />
D SQL_CODE_TIME C 2<br />
D SQL_TIMESTAMP C 93<br />
D SQL_TYPE_TIMESTAMP...<br />
D C 93<br />
D SQL_CODE_TIMESTAMP...<br />
D C 3<br />
D SQL_GRAPHIC C 95<br />
D SQL_VARGRAPHIC C 96<br />
D SQL_LONGVARGRAPHIC...<br />
D C 96<br />
D SQL_BINARY C 97<br />
D SQL_VARBINARY C 98<br />
D SQL_LONGVARBINARY...<br />
D C 98<br />
D*?<br />
D*? Valid values for type in GetCol and BindToCol<br />
D SQL_DEFAULT C 99<br />
D SQL_ARD_TYPE C -99<br />
D*?<br />
D*? Null status defines<br />
D SQL_UNUSED C 0<br />
D SQL_HANDLE_ENV C 1<br />
D SQL_HANDLE_DBC C 2<br />
D SQL_HANDLE_STMT...<br />
D C 3<br />
D SQL_HANDLE_DESC...<br />
D C 4<br />
D SQL_NULL_HANDLE...<br />
D C 0<br />
D SQL_NO_NULLS C 0<br />
D SQL_NULLABLE C 1<br />
D SQL_NULLABLE_UNKNOWN...<br />
D C 2<br />
D*?<br />
D*? Special length values<br />
D SQL_NULL_DATA C -1<br />
D SQL_DATA_AT_EXEC...<br />
D C -2<br />
D SQL_BIGINT_PREC...<br />
D C 19<br />
D SQL_INTEGER_PREC...<br />
D C 10<br />
D SQL_SMALLINT_PREC...<br />
D C 5<br />
D*?<br />
D*? Valid environment attributes<br />
D SQL_ATTR_OUTPUT_NTS...<br />
D C 10001<br />
D SQL_ATTR_SYS_NAMING...<br />
D C 10002<br />
D SQL_ATTR_DEFAULT_LIB...<br />
D C 10003<br />
D SQL_ATTR_SERVER_MODE...<br />
D C 10004<br />
D SQL_ATTR_JOB_SORT_SEQUENCE...<br />
D C 10005<br />
D SQL_ATTR_ENVHNDL_COUNTER...<br />
D C 10009<br />
D SQL_ATTR_ESCAPE_CHAR...<br />
D C 10010<br />
D*?<br />
D*? Valid environment/connection attributes<br />
D SQL_ATTR_DATE_FMT...<br />
D C 10020<br />
D SQL_ATTR_DATE_SEP...<br />
D C 10021<br />
D SQL_ATTR_TIME_FMT...<br />
D C 10022<br />
D SQL_ATTR_TIME_SEP...<br />
D C 10023<br />
D SQL_ATTR_DECIMAL_SEP...<br />
D C 10024<br />
D*?<br />
D*? Valid environment/connection attributes<br />
D SQL_FMT_ISO C 1<br />
D SQL_FMT_USA C 2<br />
D SQL_FMT_EUR C 3<br />
D SQL_FMT_JIS C 4<br />
D SQL_FMT_MDY C 5<br />
D SQL_FMT_DMY C 6<br />
D SQL_FMT_YMD C 7<br />
D SQL_FMT_JUL C 8<br />
D SQL_FMT_HMS C 9<br />
D SQL_FMT_JOB C 10<br />
D SQL_SEP_SLASH C 1<br />
D SQL_SEP_DASH C 2<br />
D SQL_SEP_PERIOD C 3<br />
D SQL_SEP_COMMA C 4<br />
D SQL_SEP_BLANK C 5<br />
D SQL_SEP_COLON C 6<br />
D SQL_SEP_JOB C 7<br />
D*?<br />
D*? Connection attributes<br />
D SQL_ATTR_AUTO_IPD...<br />
D C 10001<br />
D SQL_ATTR_ACCESS_MODE...<br />
D C 10002<br />
D SQL_ACCESS_MODE...<br />
D C 10002<br />
D SQL_ATTR_AUTOCOMMIT...<br />
D C 10003<br />
D SQL_AUTOCOMMIT...<br />
D C 10003<br />
D SQL_ATTR_DBC_SYS_NAMING...<br />
D C 10004<br />
D SQL_ATTR_DBC_DEFAULT_LIBRARY...<br />
D C 10005<br />
D SQL_ATTR_COMMIT...<br />
D C 0<br />
D SQL_MODE_READ_ONLY...<br />
D C 0<br />
D SQL_AUTOCOMMIT_OFF...<br />
D C 0<br />
D SQL_TXN_ISOLATION...<br />
D C 0<br />
D SQL_MODE_READ_WRITE...<br />
D C 1<br />
D SQL_MODE_DEFAULT...<br />
D C 1<br />
D SQL_AUTOCOMMIT_ON...<br />
D C 1<br />
D SQL_COMMIT_NONE...<br />
D C 1<br />
D SQL_TXN_NO_COMMIT...<br />
D C 1<br />
D SQL_TXN_NOCOMMIT...<br />
D C 1<br />
D SQL_COMMIT_CHG...<br />
D C 2<br />
D SQL_COMMIT_UR...<br />
D C 2<br />
D SQL_TXN_READ_UNCOMMITED...<br />
D C 2<br />
D SQL_COMMIT_CS...<br />
D C 3<br />
D SQL_TXN_READ_COMMITED...<br />
D C 3<br />
D SQL_COMMIT_ALL...<br />
D C 4<br />
D SQL_COMMIT_RS...<br />
D C 4<br />
D SQL_TXN_REPEATABLE_READ...<br />
D C 4<br />
D SQL_COMMIT_RR...<br />
D C 5<br />
D SQL_TXN_SERIALIZABLE...<br />
D C 5<br />
D*?<br />
D*? Statement attributes<br />
D SQL_ATTR_APP_ROW_DESC...<br />
D C 10010<br />
D SQL_ATTR_APP_PARAM_DESC...<br />
D C 10011<br />
D SQL_ATTR_IMP_ROW_DESC...<br />
D C 10012<br />
D SQL_ATTR_IMP_PARAM_DESC...<br />
D C 10013<br />
D SQL_ATTR_FOR_FETCH_ONLY...<br />
D C 10014<br />
D SQL_ATTR_CONCURRENCY...<br />
D C 10014<br />
D SQL_CONCURRENCY...<br />
D C 10014<br />
D SQL_ATTR_CURSOR_SCROLLABLE...<br />
D C 10015<br />
D SQL_ATTR_ROWSET_SIZE...<br />
D C 10016<br />
D SQL_ROWSET_SIZE...<br />
D C 10016<br />
D*?<br />
D*? Null handles<br />
D SQL_NULL_HENV C 0<br />
D SQL_NULL_HDBC C 0<br />
D SQL_NULL_HSTMT C 0<br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Workstation_Data_Structure&diff=3469Workstation Data Structure2005-06-07T22:05:30Z<p>TomHolden: /* Workstation Data Structures */</p>
<hr />
<div>==Using RPG III type data structures:==<br />
<br />
<pre><br />
Dwsds ds <br />
d dspf 1 8a <br />
D openflag 9 9a <br />
D eof 10 10a <br />
D status 11 15s 0<br />
D opcode 16 21a <br />
D routine 22 29a <br />
D srcstmt 30 37a <br />
D rcdfmt 38 45a <br />
D msgid 46 52a <br />
D mi# 53 56a <br />
D scrsize 67 70s 0<br />
D rows 152 153b 0<br />
D columns 154 155b 0<br />
D fkey 369 369 <br />
</pre><br />
<br />
==Using RPG IV Style Data Structures:==<br />
<pre><br />
Dwsds ds <br />
d dspf 8a <br />
D openflag 1a <br />
D eof 1a <br />
D status 5s 0 <br />
D opcode 5a <br />
D routine 8a <br />
D srcstmt 8a <br />
D rcdfmt 8a <br />
D msgid 7a <br />
D mi# 4a <br />
D scrsize 4s 0 <br />
D rows 5i 0 <br />
D columns 5i 0 <br />
D fkey 1a <br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Workstation_Data_Structure&diff=3464Workstation Data Structure2005-06-07T21:27:30Z<p>TomHolden: </p>
<hr />
<div>=Workstation Data Structures=<br />
==Using RPG III type data structures:==<br />
<br />
<pre><br />
Dwsds ds <br />
d dspf 1 8a <br />
D openflag 9 9a <br />
D eof 10 10a <br />
D status 11 15s 0<br />
D opcode 16 21a <br />
D routine 22 29a <br />
D srcstmt 30 37a <br />
D rcdfmt 38 45a <br />
D msgid 46 52a <br />
D mi# 53 56a <br />
D scrsize 67 70s 0<br />
D rows 152 153b 0<br />
D columns 154 155b 0<br />
D fkey 369 369 <br />
</pre><br />
<br />
==Using RPG IV Style Data Structures:==<br />
<pre><br />
Dwsds ds <br />
d dspf 8a <br />
D openflag 1a <br />
D eof 1a <br />
D status 5s 0 <br />
D opcode 5a <br />
D routine 8a <br />
D srcstmt 8a <br />
D rcdfmt 8a <br />
D msgid 7a <br />
D mi# 4a <br />
D scrsize 4s 0 <br />
D rows 5i 0 <br />
D columns 5i 0 <br />
D fkey 1a <br />
</pre></div>TomHoldenhttps://wiki.midrange.com/index.php?title=Main_Page&diff=3708Main Page2005-06-07T21:09:03Z<p>TomHolden: /* '''Welcome to the MidrangeWiki!''' */</p>
<hr />
<div>== '''Welcome to the MidrangeWiki!''' ==<br />
<br />
<br />
We're just getting started with this wiki so don't expect much.<br />
<br />
The goal of this site is to provide information on the [[IBM]] [[eServer]] [[iSeries]] / [[i5]] / [[AS/400]] system (yes, it has had a number of [[names]]).<br />
<br />
All categories can be found in [[:Special:Categories]].<br />
<br />
Programming resources can be found in [[:Category:Programming | programming]] category.<br />
<br />
Administration resource can be found in [[:Category:Administration | administration]] category.<br />
<br />
Quick Reference Charts can be found in [[Quick_Reference_Charts | Quick References]] category.<br />
<br />
One of the goals of this Wiki is to replace the current Midrange FAQ with a somewhat more robust system. The current effort can be found in [[:Category:FAQ | here]].<br />
<br />
The primary administrator for this site is [[User:David|David Gibbs]].</div>TomHolden