Impression de champs de dates potentiellement nulles

Puisque nous avons un fichier contenant certaines données incluant des champs dates nulles, imprimons un rapport. Un programme RPG imprimera les dates nulles avec la valeur 01/01/0001, sauf si l'on ajoute quelque chose au programme. Par souci d'homogénéité, je préfère présenter les dates nulles comme Query/400, sous la forme d'un

tiret (-) à  l’extrême gauche du champ.

Afin d’imprimer un tiret pour des dates nulles, je teste l’indicateur null, puis
je définis un indicateur de sortie pour la carte O (figure 7a). Comme vous vous
en souvenez sûrement, %NullInd ne peut pas conditionner directement la sortie;
il faut soit utiliser un indicateur polyvalent, soit définir le champ de sortie
sous la forme de 10 octets alphanumériques, puis y transférer la date ou le tiret
(figure 7b).