Data commit

Task/Variables/DBL/variables.dbl

@@ -0,0 +1,72 @@
+;
+;       Variables examples for DBL version 4 by Dario B.
+;
+
+.DEFINE NR,10           ;const
+.DEFINE AP,"PIPPO"      ;const
+
+
+        RECORD CUSTOM
+COD,    D5
+NAME,   A80
+ZIP,    D6
+CITY,   A80
+;-----------------------
+
+        RECORD
+
+ALPHA,  A5             ;alphanumeric
+NUMBR,  D5             ;number
+DECML,  F5.2           ;float
+NUMVE,  10D5           ;array of number
+NUMAR,  [10,2]D5       ;array of number
+ALPV1,  10A8           ;array of alphanumeric
+ALPV2,  [NR]A8         ;array of alphanumeric
+ALPA1,  [10,2]A8       ;array of alphanumeric
+
+NUMV,   3D3,100,200,300
+ALPV,   2A3,'ABC','FGH','KLM'
+MSX,    A9,"VARIABLES"
+MSG,    A*,'Esempio di variabile autodimensionante'
+
+        PROC
+;-----------------------------------------------------------------------
+
+     CLEAR ALPHA,NUMBR,DEML,NUMVE(1:10*5),NUMAR(1:10*2*5),ALPV1(1:10*8)
+     CLEAR ALPV2(1:10*8),ALPA1(1:10*2*8)
+
+     ALPHA="PIPPO"
+     NUMBR=10
+     DECML=20.55
+
+     CLEAR CUSTOM
+     COD=1050
+     NAME='Dario Benenati'
+     ZIP=27100
+     CITY="PAVIA"
+
+     NUMVE(1:10*5)=
+     NUMVE(1)=1
+     SET NUMVE(2),NUMVE(3),NUMVE(4)=2
+
+     NUMAR(1:10*2*5)=
+     NUMAR[1,1]=11
+     NUMAR[1,2]=12
+     NUMAR[2,1]=21
+     NUMAR[2,2]=22
+
+     ALPV1(1:10*8)=
+     ALPV1(1)="PIPPO"
+     APLV1(2)="PLUTO"
+     APLV1(2)="ABCDEFGHIJKLMNOP"       ;ALPV(3)='IJKLMNOP'
+
+     ALPV2(1:10*8)="                   "
+     ALPV2[1]="PIPPO"
+     ALPV2(2)="PLUTO"
+     ALPV2[3](3:2)="FO"
+     ALPV2[4](3,4)="FO"
+
+     SET ALPA1[1,1],ALPA1[1,2]="PLUTO"
+     ALPA1[2,1](3:2)="FO"
+     ALPA1[2,1](3,4)="FO"
+     ;.....................