Dans un CLP, il est possible de définir une DS comme c’est habituellement le cas en RPG
Par exemple, pour découper la variable NIR (N° INSEE) :
DCL VAR(&NIR) TYPE(*CHAR) LEN(13)
DCL VAR(&SEXE) TYPE(*CHAR) STG(*DEFINED) LEN(1) DEFVAR(&NIR 1)
DCL VAR(&ANNAIS) TYPE(*CHAR) STG(*DEFINED) LEN(2) DEFVAR(&NIR 2)
DCL VAR(&MONAIS) TYPE(*CHAR) STG(*DEFINED) LEN(2) DEFVAR(&NIR 4)
DCL VAR(&DPNAIS) TYPE(*CHAR) STG(*DEFINED) LEN(2) DEFVAR(&NIR 6)
DCL VAR(&CMNAIS) TYPE(*CHAR) STG(*DEFINED) LEN(3) DEFVAR(&NIR 8)
DCL VAR(&ORDRE) TYPE(*CHAR) STG(*DEFINED) LEN(3) DEFVAR(&NIR 11)
DCL VAR(&CLENIR) TYPE(*CHAR) STG(*DEFINED) LEN(2) DEFVAR(&NIR 14)
Cette fonctionnalité n’est valide qu’à partir de la V5R4.
