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