Type : CREATION_INTERNE
Die Daten werden direkt im Code über die CARDS-Anweisung (Datalines) definiert.
| 1 | DATA Format_Money; |
| 2 | INFILE CARDS; |
| 3 | INPUT COST; |
| 4 | CARDS; |
| 5 | 123.45 |
| 6 | 678.90 |
| 7 | ; |
| 8 | RUN; |
| 1 | DATA Format_Money; |
| 2 | SET Format_Money; |
| 3 | FORMAT COST DOLLAR7.2; |
| 4 | RUN; |