View source for Program Status Data Structure

[[Category:RPG]]
[[Category:Quick Reference]]
== Program Status Data Structure ==
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.

You declare it in the data definition section of the program like this:

      * Program Status Data Structure
     D                SDS

List the sub-fields you need below that. They're described in the [http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/books/sc092508.pdf ILE RPG language reference].

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:

      * Program Status Data Structure
     D PSDS          ESDS

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.

==Program Status Data Structure Available Information==
Numeric Data Length column contains the decimal places after the ",".
<table border="normal" class="sortable">
  <tr>
    <th>Seq</th>
    <th>Value Contained</th>
    <th>Data Type</th>
    <th>Data Length</th>
    <th>Beginning Buffer Position</th>
    <th>Ending Buffer Position</th>
  </tr>
  <tr>
    <td>1</td>
    <td>Program Name</td>
    <td>Character</td>
    <td align="right">10</td>
    <td align="right">1</td>
    <td align="right">10</td>
  </tr>
  <tr>
    <td>2</td>    
    <td>Program Status</td>
    <td>Zoned Decimal</td>
    <td align="right">5,0</td>
    <td align="right">11</td>
    <td align="right">15</td>
  </tr>
  <tr>
    <td>3</td>
    <td>Program Previous Status</td>
    <td>Zoned Decimal</td>
    <td align="right">5,0</td>
    <td align="right">16</td>
    <td align="right">20</td>
  </tr>
  <tr>
    <td>4</td>
    <td>Program Source Statement</td>
    <td>Character</td>
    <td align="right">8</td>
    <td align="right">21</td>
    <td align="right">28</td>
  </tr>
  <tr>
    <td>5</td>
    <td>Program Routine</td>
    <td>Character</td>
    <td align="right">8</td>
    <td align="right">29</td>
    <td align="right">36</td>
  </tr>
  <tr>
    <td>6</td>
    <td>Program Number Of Parameters</td>
    <td>Zoned Decimal</td>
    <td align="right">3,0</td>
    <td align="right">37</td>
    <td align="right">39</td>
  </tr>
  <tr>
    <td>7</td>
    <td>Program Message ID</td>
    <td>Character</td>
    <td align="right">7</td>
    <td align="right">40</td>
    <td align="right">46</td>
  </tr>
  <tr>
    <td>8</td>
    <td>Program MI Instruction Code</td>
    <td>Character</td>
    <td align="right">4</td>
    <td align="right">47</td>
    <td align="right">50</td>
  </tr>
  <tr>
    <td>9</td>
    <td>Program Work</td>
    <td>Character</td>
    <td align="right">30</td>
    <td align="right">51</td>
    <td align="right">80</td>
  </tr>
  <tr>
    <td>10</td>
    <td>Program Library</td>
    <td>Character</td>
    <td align="right">10</td>
    <td align="right">81</td>
    <td align="right">90</td>
  </tr>
  <tr>
    <td>11</td>
    <td>Program Error Data</td>
    <td>Character</td>
    <td align="right">80</td>
    <td align="right">91</td>
    <td align="right">170</td>
  </tr>
  <tr>
    <td>12</td>
    <td>Program RPG Message</td>
    <td>Character</td>
    <td align="right">4</td>
    <td align="right">171</td>
    <td align="right">174</td>
  </tr>
  <tr>
    <td>13</td>
    <td>Program Job Name</td>
    <td>Character</td>
    <td align="right">10</td>
    <td align="right">244</td>
    <td align="right">253</td>
  </tr>
  <tr>
    <td>14</td>
    <td>Program User ID</td>
    <td>Character</td>
    <td align="right">10</td>
    <td align="right">254</td>
    <td align="right">263</td>
  </tr>
  <tr>
    <td>15</td>
    <td>Program Job Number</td>
    <td>Zoned Decimal</td>
    <td align="right">6,0</td>
    <td align="right">264</td>
    <td align="right">269</td>
  </tr>
  <tr>
    <td>16</td>
    <td>Program Job Date</td>
    <td>Zoned Decimal</td>
    <td align="right">6</td>
    <td align="right">270</td>
    <td align="right">275</td>
  </tr>
  <tr>
    <td>17</td>
    <td>Program Run Date</td>
    <td>Zoned Decimal</td>
    <td align="right">6</td>
    <td align="right">276</td>
    <td align="right">281</td>
  </tr>
  <tr>
    <td>18</td>
    <td>Program Run Time</td>
    <td>Zoned Decimal</td>
    <td align="right">6</td>
    <td align="right">282</td>
    <td align="right">287</td>
  </tr>
</table>
<br><br>

==Here is a Sample Program Status Data Structure in RPG III Style:==
<pre>
     Dpsds            sds                  
     D pgmname                 1     10a   
     D pgmsts                 11     15s 0 
     D pgmprvsts              16     20s 0 
     D pgmsrcstmt             21     28a   
     D pgmroutine             29     36a   
     D pgmparms               37     39s 0 
     D pgmmsgid               40     46a   
     D pgmmi#                 47     50a   
     D pgmwork                51     80a   
     D pgmlib                 81     90a   
     D pgmerrdta              91    170a   
     D pgmrpgmsg             171    174a   
     D pgmjob                244    253a   
     D pgmuser               254    263a   
     D pgmjobnum             264    269s 0 
     D pgmjobdate            270    275s 0 
     D pgmrundate            276    281s 0 
     D pgmruntime            282    287s 0 
</pre>
<br><br>
==Here is a Sample Program Status Data Structure in RPG IV Style:==
<pre>
     Dpsds            sds                  
     D pgmname                       10a   
     D pgmsts                         5s 0 
     D pgmprvsts                      5s 0 
     D pgmsrcstmt                     8a   
     D pgmroutine                     8a   
     D pgmparms                       3s 0 
     D pgmmsgid                       7a   
     D pgmmi#                         4a   
     D pgmwork                       30a   
     D pgmlib                        10a   
     D pgmerrdta                     80a   
     D pgmrpgmsg                      4a
     D Filler_01                     69a  
     D pgmjob                        10a   
     D pgmuser                       10a   
     D pgmjobnum                      5s 0  
     D pgmjobdate                     6s 0  
     D pgmrundate                     6s 0  
     D pgmruntime                     6s 0  
</pre>