View previous topic :: View next topic
Author
Message
sreejithpg New User Joined: 11 Sep 2009Posts: 6 Location: india
Hi
I have a REXX code
Code:
/*********** REXX *******/
ADDRESS ISPEXEC
SAVEDSN = 'OVERRIDE'
"LMINIT DATAID ("INDDID") DATASET ("XXXSOS.SPK1WHS.JCL1") ENQ(SHR)"
SAY RC
"LMOPEN DATAID ("INDDID")"
SAY RC
"LMMLIST DATAID ("INDDID") OPTION(SAVE) STATS(YES) MEMBER(LBOOK1)
GROUP(&SAVEDSN)"
"LMCLOSE DATAID("INDDID")"
EXIT
============================================
JCL to execute
Code:
//JFBR10 EXEC PGM=IKJEFT01,
// PARM='POGBOVR'
//SYSEXEC DD DSN=XXXSOS.SSSSAOR.COBOL1,
// DISP=SHR
//ISPPLIB DD DISP=SHR,DSN=SYS1.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=SYS1.SISPMENU
//ISPTLIB DD DISP=SHR,DSN=SYS1.SISPTENU
//ISPSLIB DD DISP=SHR,DSN=SYS1.SISPSENU
//SYSTSPRT DD DSN=XXXSOS.SREE.SYSOUT1,
// DISP=(NEW,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(200,20),RLSE),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//SYSTSIN DD DUMMY
//*
//
=========================================
The result is
Code:
1ACF0C038 ACF2 LOGONID ATTRIBUTES HAVE REPLACED DEFAULT USER ATTRIBUTES
6 *-* "LMINIT DATAID ("INDDID") DATASET ("XXXSOS.SPK1WHS.JCL1") EN
+++ RC(-3) +++
-3
8 *-* "LMOPEN DATAID ("INDDID")"
+++ RC(-3) +++
-3
10 *-* "LMMLIST DATAID ("INDDID") OPTION(SAVE) STATS(YES) MEMBER(LB
+++ RC(-3) +++
12 *-* "LMCLOSE DATAID("INDDID")"
+++ RC(-3) +++
READY
END
Can you please tell me why LMINIT is not working . Also can somebody suggest how to rectify this
Edited: Please use BBcode when You post some code/error, that's rather readable, Thanks... Anuj
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
Code:
//JFBR10 EXEC PGM=IKJEFT01,
// PARM='POGBOVR'
//SYSEXEC DD DSN=XXXSOS.SSSSAOR.COBOL1,
// DISP=SHR
//ISPPLIB DD DISP=SHR,DSN=SYS1.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=SYS1.SISPMENU
//ISPTLIB DD DISP=SHR,DSN=SYS1.SISPTENU
//ISPSLIB DD DISP=SHR,DSN=SYS1.SISPSENU
//SYSTSPRT DD DSN=XXXSOS.SREE.SYSOUT1,
// DISP=(NEW,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(200,20),RLSE),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//SYSTSIN DD DUMMY
//*
//
that' s what You used, this is what You should have...
Code:
//JFBR10 EXEC PGM=IKJEFT01
//SYSEXEC DD DSN=XXXSOS.SSSSAOR.COBOL1,
// DISP=SHR
//ISPPLIB DD DISP=SHR,DSN=SYS1.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=SYS1.SISPMENU
//ISPTLIB DD DISP=SHR,DSN=SYS1.SISPTENU
//ISPSLIB DD DISP=SHR,DSN=SYS1.SISPSENU
//SYSTSPRT DD DSN=XXXSOS.SREE.SYSOUT1,
// DISP=(NEW,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(200,20),RLSE),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0)
//SYSTSIN DD *
ISPSTART CMD(POGBOVR)
//*
//
anything using ISPF services must be invoked after ISPF has setup the proper environment
Back to top
sreejithpg New User Joined: 11 Sep 2009Posts: 6 Location: india
It worked fine
little modification.
Need to include
//ISPPROF DD DSN=.....
in the JCL
( find out by searching for the profile file DSN for the id)
and in the REXX code made a change in the line
"LMINIT DATAID ("INDDID") DATASET ("XXXSOS.SPK1WHS.JCL1") ENQ(SHR)"
to "LMINIT DATAID ("INDDID") DATASET ('XXXSOS.SPK1WHS.JCL1') ENQ(SHR)"
Thanks for the suggetions
-Sree
Back to top
prino Senior Member Joined: 07 Feb 2009Posts: 1306 Location: Vilnius, Lithuania
sreejithpg wrote:
It worked fine
little modification.
Need to include
//ISPPROF DD DSN=.....
in the JCL
( find out by searching for the profile file DSN for the id)
Better use
Code:
//ISPPROF DD DSN=&&PROFILE,
// DISP=(,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
Back to top
Please enable JavaScript!