Code RPGLE définissant six polices
BIGMED C CONST('~(8U~(s1p16.à˜và˜sà˜b4148T') Z10MED C CONST('~(11U~(sà˜p1à˜.à˜à˜h12.à˜và˜sà˜b3T' Z10BLD C CONST('~(11U~(sà˜p1à˜.à˜à˜h12.à˜và˜s3b3T' Z12MED C CONST('~(11U~(sà˜p12.à˜à˜h1à˜.à˜và˜sà˜b3T') Z12BLD C CONST('~(11U~(sà˜p12.à˜à˜h1à˜.à˜và˜s3b3T') Z16MED C CONST('~(11U~(sà˜p16.67h8.5và˜sà˜bà˜T')