I know I'm probably missing something basic here, but I am trying to write a Rexx exec to check if a dataset is migrated, using LMDINIT. I'm getting RC -3 on the 'lmdinit' and 'lmdlist' commands.
Thanks for any info...
//TSOBATCH EXEC PGM=IKJEFT01,PARM='%MIGDSNS'
//SYSTSIN DD DUMMY
//SYSEXEC DD DISP=SHR,DSN=MY.REXX.LIB
//SYSTSPRT DD SYSOUT=*
//
/* REXX */
ADDRESS ISPEXEC
dsnlev = 'MY.DSN.TO.CHECK'
"lmdinit listid("lstid") level("dsnlev")"
+++ RC(-3) +++
"lmdlist listid("lstid") option(LIST) dataset(dsvar) STATS(YES)"
+++ RC(-3) +++
say 'ZDLMIGR' ZDLMIGR
exit
Thanks for any info...
//TSOBATCH EXEC PGM=IKJEFT01,PARM='%MIGDSNS'
//SYSTSIN DD DUMMY
//SYSEXEC DD DISP=SHR,DSN=MY.REXX.LIB
//SYSTSPRT DD SYSOUT=*
//
/* REXX */
ADDRESS ISPEXEC
dsnlev = 'MY.DSN.TO.CHECK'
"lmdinit listid("lstid") level("dsnlev")"
+++ RC(-3) +++
"lmdlist listid("lstid") option(LIST) dataset(dsvar) STATS(YES)"
+++ RC(-3) +++
say 'ZDLMIGR' ZDLMIGR
exit