Data commit

Task/Variables/PL-I/variables.pli

@@ -0,0 +1,22 @@
+/* The PROCEDURE block and BEGIN block are used to delimit scopes. */
+
+declare i float; /* external, global variable, excluded from the */
+                 /* local area (BEGIN block) below.              */
+begin;
+   declare (i, j) fixed binary; /* local variable */
+   get list (i, j);
+   put list (i,j);
+end;
+
+/* Examples of initialization. */
+
+declare p fixed initial (25);
+declare q(7) fixed initial (9, 3, 5, 1, 2, 8, 15);
+   /* sets all elements of array Q at run time, on block entry. */
+declare r(7) fixed initial (9, 3, 5, 1, 2, 8, 15);
+   /* sets all elements of array R at compile time. */
+
+p = 44; /* run-time assignment. */
+q = 0; /* run-time initialization of all elements of Q to zero. */
+q = r; /* run-time assignment of all elements of array R to     */
+       /* corresponding elemets of S.                           */