ENTRY .ENTRY(*ENTRY) EXT;
         DCL SPCPTR VAR.P PARM ;
         DCL DD VAR CHAR (1696) BAS(VAR.P);
         DCL DD ARG CHAR (8) INIT(X'1400000000000000');
         DCL OL *ENTRY
         (VAR.P) EXT PARM MIN(0);
         MATRMD VAR.P,ARG;
         PEND;