/* REXX */
TRACE ALL
"ALLOC FI(ENTREE) DA('Le.fichier.contnant.les.plans') SHR"

'EXECIO * DISKR ENTREE (STEM X.'
IF RC /=0 THEN DO
             SAY 'ERREUR LECTURE ENTREE, RC=' RC
             ZISPFRC = 16
             ADDRESS ISPEXEC "VPUT (ZISPFRC)"
             EXIT
             END

"FREE FI(ENTREE)"

'ISPEXEC TBCREATE MYREBIND NAMES(PLAN) NOWRITE'
IF RC>0 THEN DO
         SAY 'ERREUR CREATION TABLE, RC=' RC
         EXIT RC
         END

DO I=1 TO X.0
    PARSE VAR X.I PLAN .
    'ISPEXEC TBADD MYREBIND'
END

"ISPEXEC LIBDEF ISPSLIB DATASET ID('le.pds.des.skeletons')"
'ISPEXEC FTOPEN TEMP'
'ISPEXEC FTINCL SKGENJCL'
'ISPEXEC FTCLOSE '
'ISPEXEC VGET (ZTEMPN)'

"ISPEXEC TBCLOSE MYREBIND "
"ISPEXEC LIBDEF ISPSLIB "

"ISPEXEC LMINIT DDNAME("ZTEMPN") DATAID(OUT1)"
"ISPEXEC EDIT   DATAID("OUT1")"
"ISPEXEC LMFREE DATAID("OUT1")"
EXIT