heather.sable
New User
Joined: 04 Oct 2011
Posts: 2
Location: Singapore
|
|
|
|
Hello,
I m coding a REXX to list the members of a PDS using LMMLIST services. The name of datasets reside in a PS. The code is as follows:
| Code: |
TRACE I
"EXECIO * DISKR INDD1 (FINIS STEM DSNLST. "
DO J=1 TO DSNLST.0
PARSE VAR DSNLST.J DSN.J
ADDRESS ISPEXEC
"LMINIT DATAID(DSET) DATASET("DSN.J")"
SAY RC
IF RC=0 THEN DO
SAY 'AFTER OPEN'
'LMOPEN DATAID('DSET') OPTION(INPUT)'
MEMBER=''
DO WHILE(RC=0)
SAY 'BEFORE LIST'
'LMMLIST DATAID('DSET') OPTION(SAVE) GROUP(MEMBER) MEMBER(MEMBER)' ..........................
'
'' |
and so on..
and the JCL to invoke REXX:
| Code: |
//STEP1 EXEC PGM=IKJEFT01,REGION=2048K,DYNAMNBR=25
//SYSPROC DD DSN=HLQ.JCLS,DISP=SHR
//SYSEXEC DD DSN=HLQ.JCLS,DISP=SHR
//ISPPLIB DD DISP=SHR,DSN=ISP.SISPPENU
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSENU
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU
//ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR
//ISPTABL DD DSN=ISP.SISPTENU,DISP=SHR
//ISPPROF DD DSN=ISP.SISPTENU,DISP=SHR
//ISPLOG DD SYSOUT=*,
// DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//ISPLIST DD SYSOUT=*,
// DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)
//INDD1 DD DISP=SHR,DSN=HLQ.SMMPTS.DATASETS
//OUTDD DD DISP=SHR,DSN=HLQ.JCLS(TEST1)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSHELP DD DSN=SYS1.HELP,DISP=SHR
//SYSTSIN DD *
PROFILE PREFIX(HLQ)
ISPSTART CMD(%TEMP2) NEWAPPL(ISR)
|
The job ends with RC=0 but I am not able to get the list of members. The trace o/p is follows:
| Code: |
6 *-* ADDRESS ISPEXEC
7 *-* "LMINIT DATAID(DSET) DATASET("DSN.J")"
>L> "LMINIT DATAID(DSET) DATASET("
>C> "DSN.1"
>V> "SMPE.ZOS111.SMPPTS
"
>O> "LMINIT DATAID(DSET) DATASET(SMPE.ZOS111.SMPPTS
"
>L> ")"
>O> "LMINIT DATAID(DSET) DATASET(SMPE.ZOS111.SMPPTS
)"
+++ RC(8) +++
8 *-* SAY RC
>V> "8"
|
I have tried different combination of " & ' in the parm DATASET(), but LMINIT fails with Rc=8. Can anyone point me to as to why LMINIT is failing with RC=8.
Thanks, |
|
. I used STRIP command to remove the trailing spaces and the code works just fine 
