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'0900000000000000') /* OPTION MATRMD = 09 */;
 
                                                     /*DECLARATION DE *ENTRY*/
         DCL OL *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  STORAGE POOL,OPTION 09 */    ;
 
         PEND;             /* FIN DU PGM */