ENTRY .ENTRY(*ENTRY) EXT                    /* PARAM RECUS = *ENTRY */;
 
     /* DECLARATIVES */
         DCL SPCPTR VAR.P PARM                       /*POINTEUR POUR VAR */    ;
 
         DCL DD VAR CHAR (2000) BAS(VAR.P)             /* VAR DE L'APPELANT */ ;
         DCL DD ARG CHAR (8) INIT(X'0A00000000000000') /* OPTION MATRMD = 10 */;
 
         DCL OL *ENTRY                               /*DECLARATION DE *ENTRY*/
         (VAR.P) EXT PARM MIN(0)                     /* POINTEUR POUR VAR  */  ;
 
 /* TRAITEMENT */
 /* INSTRUCTION MI "MATERIALIZE..." PLACE LE RÉSULTAT DANS UNE VARIABLE */
 /* DU PGM APPELANT (PARAMÈTRES: 1/POINTEUR, 2/OPTION                   */
         MATRMD VAR.P,ARG   /* MATERIALIZE "MPL" INFORMATIONS,OPTION 10 */     ;
 
         PEND;             /* FIN DU PGM */