Bull DPS 7000 Guide De L'utilisateur page 176

Le tableau devant être découpé verticalement, le fichier
temporaire est reclassé selon les coordonnées des cellules
puis transféré dans le fichier de sortie.
SORT TEMP-MML
READ TEMP-MML
AFTER T-COL CHANGE
END
IF T-CHAR BEGINS "0"
THEN
Cellule contenant une valeur numérique.
ELSE
Cellule contenant une valeur alphanumérique.
END
END
END
Ecriture de la fin de fichier.
LET OUTPUT-BUFFER = "-1,0"
WRITE OUTPUT-BUFFER TO SYS-MML SHORT
LET OUTPUT-BUFFER = "EOD"
WRITE OUTPUT-BUFFER TO SYS-MML SHORT
END
Le fichier DIF est maintenant prêt à être utilisé.
C-10
IQS - Guide de l'utilisateur expert
ON T-COL,
T-ROW
LET OUTPUT-BUFFER = "-1,0"
WRITE OUTPUT-BUFFER TO SYS-MML SHORT
LET OUTPUT-BUFFER = "BOT"
WRITE OUTPUT-BUFFER TO SYS-MML SHORT
WRITE T-CHAR TO SYS-MML SHORT
LET OUTPUT-BUFFER = "V"
WRITE OUTPUT-BUFFER TO SYS-MML SHORT
LET OUTPUT-BUFFER = "1,0"
WRITE OUTPUT-BUFFER TO SYS-MML SHORT
WRITE T-CHAR TO SYS-MML SHORT
47 F2 76UD Rev00