/* REXX */
/* Reste a tester les return-code */
/*
*/
"ISPEXEC LMINIT  DATAID(V01) DDNAME(ENTREE) ENQ(SHR)"
"ISPEXEC LMOPEN  DATAID("V01") OPTION(INPUT)"
"ISPEXEC LMMLIST DATAID("V01") OPTION(SAVE) STATS(YES)"
"ISPEXEC LMCLOSE DATAID("V01")"
"ISPEXEC LMFREE  DATAID("V01")"