Validate International Securities Identification Number: Difference between revisions
Validate International Securities Identification Number (view source)
Revision as of 11:20, 20 May 2024
, 1 month ago→{{header|REXX}}: formatting corrected
Walterpachl (talk | contribs) Tag: Manual revert |
Walterpachl (talk | contribs) (→{{header|REXX}}: formatting corrected) |
||
Line 2,702:
=={{header|REXX}}==
<syntaxhighlight lang="rexx"
/*REXX program validates International Securities ID numbers. */
Parse Arg z /*obtain ISINs from the C.L. */
Line 2,745:
dsum=dsum+substr(y,j,1)+left(_,1)+substr(_,2,1,0)
End
Return right(dsum,1)==0 /* Return 1 if number passed Luhn test */</syntaxhighlight>
{{out|output|text= when using the default inputs:}}
<pre>
| |||