Type : CREATION_INTERNE
Los datos se definen directamente en el código mediante la instrucción CARDS (datalines).
| 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; |