Hi,
I would like to pass these variables to activate the step by &DEFx = Y and put the member (&MBDEDFx) of pds. The result of the REXX can find several members of the PDS and it is necessary to activate as many steps as members found.
In advance Thank you.
ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :OUTSQL "
IF SQLCODE = 100 & cpt=0 then do
say 'Not found in Table'
pasdanstable = 1
end
IF SQLCODE = 0 THEN DO
MEMBER = STRIP(OUTSQL)
MBDEDF.CPT = MEMBER
DEF.CPT = O
END
cpt=cpt+1
the result oif teh rexx find 6 members and to active 6 step by skelett i have to pass :
DEF1 =Y
MBDEDF1 =AAAAAA
DEF2 =Y
MBDEDF2 =BBBBBB
DEF3 =Y
MBDEDF3 =CCCCCCC
for example skel jcl:
)SEL &DEF1 = Y <==== ?
//*
//DELDEF2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&DLIB(&MBDEDF1), <===== ?
// DISP=SHR
//*
)ENDSEL
)SEL &DEF3 = OY <==== ?
//*
//DELDEF2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&DLIB(&MBDEDF2), <===== ?
// DISP=SHR
//*
)ENDSEL
The result must be :
)SEL DEF1 = Y <==== ?
//*
//DELDEF1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=aaa.bbbb(AAAAAA), <===== ?
// DISP=SHR
//*
)ENDSEL
)SEL DEF3 = Y <==== ?
//*
//DELDEF2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=aaa.bbbb(BBBBBB), <===== ?
// DISP=SHR
//*
)ENDSEL
I would like to pass these variables to activate the step by &DEFx = Y and put the member (&MBDEDFx) of pds. The result of the REXX can find several members of the PDS and it is necessary to activate as many steps as members found.
In advance Thank you.
ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :OUTSQL "
IF SQLCODE = 100 & cpt=0 then do
say 'Not found in Table'
pasdanstable = 1
end
IF SQLCODE = 0 THEN DO
MEMBER = STRIP(OUTSQL)
MBDEDF.CPT = MEMBER
DEF.CPT = O
END
cpt=cpt+1
the result oif teh rexx find 6 members and to active 6 step by skelett i have to pass :
DEF1 =Y
MBDEDF1 =AAAAAA
DEF2 =Y
MBDEDF2 =BBBBBB
DEF3 =Y
MBDEDF3 =CCCCCCC
for example skel jcl:
)SEL &DEF1 = Y <==== ?
//*
//DELDEF2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&DLIB(&MBDEDF1), <===== ?
// DISP=SHR
//*
)ENDSEL
)SEL &DEF3 = OY <==== ?
//*
//DELDEF2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&DLIB(&MBDEDF2), <===== ?
// DISP=SHR
//*
)ENDSEL
The result must be :
)SEL DEF1 = Y <==== ?
//*
//DELDEF1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=aaa.bbbb(AAAAAA), <===== ?
// DISP=SHR
//*
)ENDSEL
)SEL DEF3 = Y <==== ?
//*
//DELDEF2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=aaa.bbbb(BBBBBB), <===== ?
// DISP=SHR
//*
)ENDSEL