2016 Update
This commit is contained in:
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
|
|
@ -1,3 +1,6 @@
|
|||
Pragmatic directives cause the language to operate in a specific manner, allowing support for operational variances within the program code (possibly by the loading of specific or alternative modules).
|
||||
Pragmatic directives cause the language to operate in a specific manner, allowing support for operational variances within the program code (possibly by the loading of specific or alternative modules).
|
||||
|
||||
The task is to list any pragmatic directives supported by the language, demonstrate how to activate and deactivate the pragmatic directives and to describe or demonstate the scope of effect that the pragmatic directives have within a program.
|
||||
|
||||
;Task:
|
||||
List any pragmatic directives supported by the language, and demonstrate how to activate and deactivate the pragmatic directives and to describe or demonstrate the scope of effect that the pragmatic directives have within a program.
|
||||
<br><br>
|
||||
|
|
|
|||
|
|
@ -0,0 +1,3 @@
|
|||
declare (t(100),i) fixed binary;
|
||||
i=101;
|
||||
t(i)=0;
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
(SubscriptRange): begin;
|
||||
declare (t(100),i) fixed binary;
|
||||
i=101;
|
||||
t(i)=0;
|
||||
end;
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
(SubscriptRange): begin;
|
||||
declare (t(100),i) fixed binary;
|
||||
i=101;
|
||||
on SubscriptRange begin; put skip list('error on t(i)'); goto e; end;
|
||||
t(i)=0;
|
||||
e:on SubscriptRange system; /* default dehaviour */
|
||||
end;
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
#Requires -Version <N>[.<n>]
|
||||
#Requires –PSSnapin <PSSnapin-Name> [-Version <N>[.<n>]]
|
||||
#Requires -Modules { <Module-Name> | <Hashtable> }
|
||||
#Requires –ShellId <ShellId>
|
||||
#Requires -RunAsAdministrator
|
||||
|
|
@ -0,0 +1 @@
|
|||
Get-Help about_Requires
|
||||
Loading…
Add table
Add a link
Reference in a new issue