View source for $Dsn

<p>$DSN is useful with <var class="product">Model&nbsp;204</var> files that are comprised of multiple data sets. You specify the <var class="product">Model&nbsp;204</var> file's DD name and the ordinal number (first, second, third, and so on) of one of the file's data sets, and $DSN returns the data set's name. </p>
<p>The $DSN syntax is:</p>
<p class="syntax">$DSN('<span class="term">ddname</span>',<span class="term">dsnnum</span>)
</p>
<p>where:</p>
<ul>
<li><var class="term">ddname</var> is a <var class="product">Model&nbsp;204</var> file's DD or file name. The file that you specify must be OPEN by you while you are using $DSN. This ensures reliable output.</li>
</li>
<li><var class="term">dsnnum</var> is a positive integer that represents the ordinal number of a data set. For example, specify 3 for <var class="term">dsnnum</var> if you want the name of the third of the multiple data sets that comprise the <var class="product">Model&nbsp;204</var> file.</li>
</li>
</ul>
<p>If no file or DD name is specified, if the data set number is too large, and if <var class="product">Model&nbsp;204</var> cannot find the data set name, the system returns a counting error message.</p>
<b>Examples</b>
<p>An example using $DSN follows:</p>
<p class="code">FOR %I FROM 1 TO $DSNNUM('FU',%I) BY 1
  PRINT $DSN('FU',%I)
END FOR
</p>
<p>The next example does a straight $DSN call for a file mapped to one data set.</p>
<p class="code">%FILENAME IS STRING LEN 8
%FILENAME = 'VEHICLES'
PRINT 'FILE ' WITH %FILENAME WITH ' IS CONTAINED IN -
DATASET ' WITH $DSN(%FILENAME,1)
</p>
[[Category:SOUL $functions]]