Action Principale : match
| 1 | DATA casuser.contacts; |
| 2 | INFILE DATALINES delimiter=','; |
| 3 | LENGTH F_NAME $20 L_NAME $20 ADDRESS $50 CITY $20; |
| 4 | INPUT F_NAME $ L_NAME $ ADDRESS $ CITY $; |
| 5 | DATALINES; |
| 6 | JOHN,SMITH,123 MAIN ST,ANYTOWN |
| 7 | JON,SMYTHE,123 MAIN STREET,ANYTOWN |
| 8 | JANE,DOE,456 OAK AVE,OTHERVILLE |
| 9 | JOHN,SMITH,456 OAK AVENUE,OTHERVILLE |
| 10 | SUE,JONES,789 PINE LN,ANYTOWN |
| 11 | SUSAN,JONES,789 PINE LANE,ANYTOWN |
| 12 | ; |
| 13 | RUN; |