I used the IDCAMS program, but i can't have the number of extent.
And the result is not like a real 3.4 in ISPF panel.
Is it to do it not using REXX ?
Thank's for your help
//JOBLIS JOB (S),MSGCLASS=X,CLASS=I,NOTIFY=&SYSUID
//LISTE EXEC PGM=IDCAMS
//SYSPRINT DD DISP=SHR,DSN=OUTPUT.FIC
//SYSIN DD *
LISTCAT CAT(X) ENTRIES(X.DATA.*) ALL
//*