57 |
title 'Test PRINT transformation'. |
title 'Test PRINT transformation'. |
58 |
|
|
59 |
data list free table file='$TEMPDIR/data-list.data'/A B C D. |
data list free table file='$TEMPDIR/data-list.data'/A B C D. |
60 |
print outfile="foo" table/A(f8.2) '/' B(e8.2) '/' C(n10) '/' D(rbhex16) '/'. |
print outfile="foo" table/A(f8.2) '/' B(e8.2) '/' C(n10) '/'. |
61 |
print space a. |
print space a. |
62 |
print outfile="foo" /a b c d. |
print outfile="foo" /a b c d. |
63 |
list. |
list. |
108 |
+--------+------+ |
+--------+------+ |
109 |
|
|
110 |
2.1 PRINT. Writing 1 record(s) to file foo. |
2.1 PRINT. Writing 1 record(s) to file foo. |
111 |
+--------+------+-------+-------+ |
+--------+------+-------+------+ |
112 |
|Variable|Record|Columns| Format| |
|Variable|Record|Columns|Format| |
113 |
#========#======#=======#=======# |
#========#======#=======#======# |
114 |
|A | 1| 1- 8|F8.2 | |
|A | 1| 1- 8|F8.2 | |
115 |
|"/" | 1| 9- 9|A1 | |
|"/" | 1| 9- 9|A1 | |
116 |
|B | 1| 10- 17|E8.2 | |
|B | 1| 10- 17|E8.2 | |
117 |
|"/" | 1| 18- 18|A1 | |
|"/" | 1| 18- 18|A1 | |
118 |
|C | 1| 19- 28|N10.0 | |
|C | 1| 19- 28|N10.0 | |
119 |
|"/" | 1| 29- 29|A1 | |
|"/" | 1| 29- 29|A1 | |
120 |
|D | 1| 30- 45|RBHEX16| |
+--------+------+-------+------+ |
|
|"/" | 1| 46- 46|A1 | |
|
|
+--------+------+-------+-------+ |
|
121 |
|
|
122 |
|
|
123 |
A B C D |
A B C D |
169 |
|
|
170 |
activity="compare print out" |
activity="compare print out" |
171 |
diff $TEMPDIR/foo - << EOF |
diff $TEMPDIR/foo - << EOF |
172 |
. /2.00E+00/0000000003/0000000000001040/ |
. /2.00E+00/0000000003/ |
173 |
. 2.00 3.00 4.00 |
. 2.00 3.00 4.00 |
174 |
. /6.00E+00/0000000007/0000000000002040/ |
. /6.00E+00/0000000007/ |
175 |
. 6.00 7.00 8.00 |
. 6.00 7.00 8.00 |
176 |
. /1.00E+01/0000000011/0000000000002840/ |
. /1.00E+01/0000000011/ |
177 |
. 10.00 11.00 12.00 |
. 10.00 11.00 12.00 |
178 |
EOF |
EOF |
179 |
if [ $? -ne 0 ] ; then fail ; fi |
if [ $? -ne 0 ] ; then fail ; fi |