Update.
[pspp] / tests / data-fmts.stat
1 set echo off.
2 title 'Test non-binary data input formats'.
3
4 data list /a 1-8(a)                     /* 1
5            ahex 9-16(ahex)              /* 2
6            comma 17-24(comma)           /* 3
7            dollar 25-32(dollar)         /* 4
8            f 33-40(f)                   /* 5
9            pibhex 41-48(pibhex)         /* 6
10            n 49-56(n)                   /* 7
11            e 57-64(e).                  /* 8
12 formats comma(comma8.2) dollar(dollar8.2).
13 print /a ahex comma dollar f pibhex n e.
14
15 /* This set of data should produce errors:
16 /*
17 /*  - First line should be error-free.
18 /*  - Second line should have errors for F, PIBHEX, and N fields.
19 /*  - Third line should have errors for COMMA, DOLLAR, F, and N fields.
20 /*  - Fourth line should have errors for F and N fields.
21 /*
22 /*      2       3       4       5       6       7       8       .
23 begin data.
24 abcdefgh414243441,2,3.4,$1,2,3.4123456.6100023451234567812345678
25         4a4b4c4d1,234.56$1234.56  abcd    ghjk  -12345671234+56
26         4C4D4E4F1234+56 $1234+56   0 1    abcd  12345e671234e+56
27         555657581234e+561234e+56 1.2 3  000000001234e67 1234-5
28 end data.
29
30 data list /date 1-32(date)              /* 1
31            time 33-64(time,4).          /* 2
32 print /date time.
33
34 /* This set of data should produce errors:
35 /*
36 /*                              2               
37 begin data.
38 11-july-1982                    12:10:55.59     
39 8-xii-23                        55:56:75.105    
40 end data.
41
42 data list /datetime 1-32(datetime,4)    /* 1
43            adate 33-64(adate).          /* 2
44 print /datetime adate.
45 /*                              2
46 begin data.
47 7-7-8 12:10:55.5                10/15/1582
48 11-jul-1982 9:00                10/01/78
49 end data.
50
51 data list /jdate 1-32(jdate)            /* 1
52            dtime 33-64(dtime).          /* 2
53 print /jdate dtime.
54 /*                              2
55 begin data.
56 1582365                         10 15:30:00.32
57 1996001                         0 8:23:59.99
58 end data.
59
60 data list /wkday 1-32(wkday)            /* 1
61            month 33-64(month).          /* 2
62 print /wkday month.
63 /*                              2
64 begin data.
65 mon                             xii
66 Saturday                        12
67 thursday                        march
68                                 ixiii
69 end data.
70
71 data list /moyr 1-32(moyr)              /* 1
72            qyr 33-64(qyr).              /* 2
73 print /moyr qyr.
74 /*                              2
75 begin data.
76 jan 96                          4 q 1986
77 mar 1896                        1q1600
78 end data.
79
80 data list /wkyr 1-32(wkyr)              /* 1
81            pct 33-64(pct).              /* 2
82 print /wkyr pct.
83 /*                              2
84 begin data.
85 4 wk 97                         105%
86 52 wk 1996                      55.5%
87 end data.
88
89 data list /dot 1-32(dot)                /* 1
90            edate 33-64(edate).          /* 2
91 formats dot(dot32.3).
92 print /dot edate.
93 /*                              2
94 begin data.
95 123.456.789,348                 1.10.1978
96                                 30.12.1996
97 end data.
98
99 formats dot (comma32.3).
100 set decimal comma.
101 print /dot.
102 execute.
103
104 set decimal dot.
105 print /dot.
106 execute.
107
108 data list /sdate 1-32(sdate).           /* 1
109 print /sdate.
110 begin data.
111 1923/7/3
112 1992.5.2
113 end data.
114
115 data list /date 1-32.
116 compute date = date * 86400.
117 print /date (date32).
118 begin data.
119 1
120 50000
121 102
122 1157
123 14288
124 87365
125 109623
126 153211
127 152371
128 144623
129 end data.
130
131 data list /date 1-32(date).
132 compute jdate = date / 86400.
133 print /jdate.
134 begin data.
135 15-OCT-1582
136 06-SEP-1719
137 24-JAN-1583
138 14-DEC-1585
139 26-NOV-1621
140 25-DEC-1821
141 03-DEC-1882
142 06-APR-2002
143 18-DEC-1999
144 01-OCT-1978
145 end data.
146
147 set cca 'NPX,PFX,SFX,NSX'.
148 set ccb 'NPX.PFX.SFX.NSX'.
149 set ccc '-,$,,'.
150 set ccd '(.SFR..)'.
151 set cce 'asld,adl,lfj,lfs'.
152
153 data list /cc 1-32(f).
154 print /'cca: ' cc (cca32.2).
155 print /'ccb: ' cc (ccb32.2).
156 print /'ccc: ' cc (ccc32.2).
157 print /'ccd: ' cc (ccd32.2).
158 print /'cce: ' cc (cce32.2).
159 begin data.
160 78.19
161 -78.19
162 123456789.12
163 1e23
164 end data.
165
166 print /'cca: ' cc (cca16.2).
167 print /'ccb: ' cc (ccb16.2).
168 print /'ccc: ' cc (ccc16.2).
169 print /'ccd: ' cc (ccd16.2).
170 print /'cce: ' cc (cce16.2).
171 execute.
172
173 print /'cca: ' cc (cca8.2).
174 print /'ccb: ' cc (ccb8.2).
175 print /'ccc: ' cc (ccc8.2).
176 print /'ccd: ' cc (ccd8.2).
177 print /'cce: ' cc (cce8.2).
178 execute.
179