View previous topic :: View next topic
Author
Message
harry143 New User Joined: 05 Nov 2007Posts: 21 Location: hyd
Hi,
I have a ctatement in my JCL as
ISPSTART CMD(%CML M548910T SS R200711 COBBAT MED19234 )
But while running the JCl, the following error appears:
COMMAND CML NOT FOUND
ISPD123 Invalid command
Command 'CML' not found or contains invalid syntax.
I have concatenated my PDS to the SYSEXEC. But still it is ssaying that the command is not found. Some one please help me out.
Is there any other way to cncatenate my PDS to sysexec??
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
post Your jcl please!
Back to top
harry143 New User Joined: 05 Nov 2007Posts: 21 Location: hyd
enrico-sorichetti wrote:
post Your jcl please!
Hi,
Please find the below. it is searching in the SYSPROC library but nt sysexec:
Code:
39 XXSTATS#ON EXEC ISPF
40 XXISPF PROC
XX*-------------------------------------------
XX* GENERATE TSO "PROFILE PREFIX" COMMAND FOR SUBMITTER'S TSO ID
XX*--------------------------------------------
41 XXTSO#ID EXEC PGM=IKJEFT01,PARM='%TSO#ID'
42 XXSYSPROC DD DSN=Q5544.G5544.SYSTEM.CLIST,DISP=SHR
43 XXSYSTSIN DD DUMMY
44 XXSYSTSPRT DD SYSOUT=*
45 XXSYSUT2 DD DSN=&&UPREFIX,
XX DISP=(MOD,PASS),
XX UNIT=VIO,
XX SPACE=(TRK,1),
XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
XX*------------------------------------------
XX* BATCH ISPF STEP
XX*-------------------------------------------
46 XXISPF EXEC PGM=IKJEFT1B,DYNAMNBR=100
47 XXSTEPLIB DD DSN=Q5544.G5544.SYSTEM.LOAD,DISP=SHR
XX* --- ISPF DATASETS
48 XXISPMLIB DD DSN=SYS1.SISPMENU,DISP=SHR
49 XXISPPLIB DD DSN=SYS1.SISPPENU,DISP=SHR
50 XXISPSLIB DD DSN=SYS1.SISPSENU,DISP=SHR
51 XXISPTLIB DD DSN=&&ISPTLIB,
51 XXISPTLIB DD DSN=&&ISPTLIB,
XX DISP=(MOD,PASS),
XX UNIT=VIO,
XX SPACE=(23440,(5,5,1)),
XX RECFM=FB,AVGREC=U,LRECL=80
52 XX DD DSN=Q5544.G5544.SYSTEM.TABLES,DISP=SHR
53 XX DD DSN=SYS1.SISPTENU,DISP=SHR
54 XXISPTABL DD DSN=Q5544.G5544.SYSTEM.TABLES,DISP=SHR
55 XXISPPROF DD DSN=&&PROFILE,
XX DISP=(MOD,PASS),
XX UNIT=SYSDA,
XX SPACE=(CYL,(1,1,10),RLSE),
XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
XX* --- TSO DATASETS
56 XXSYSPROC DD DSN=Q5544.G5544.SYSTEM.CLIST,DISP=SHR
57 XXSYSTSPRT DD SYSOUT=*
58 XXISPF.SYSTSIN DD
X/SYSTSIN DD DSN=&&UPREFIX,DISP=(OLD,DELETE)
59 XX DD DISP=SHR,DSN=Q5544.G5544.SYSTEM.PARM(STATS#ON)
60 XXSYSEXEC DD DSN=TSUA8SW.REXX.JCL,DISP=SHR
XX*MEMBER DD DISP=SHR,DSN=&Q.5544.G5544.&REL..LISTINGS(&NAME)
XX*ISPF.SYSPROC DD DISP=SHR,DSN=TSUA8SW.REXX.JCL
XX* DD DISP=SHR,DSN=TSUA8SW.REXX.JCL
61 XXMEMBER DD DISP=SHR,DSN=&Q.5544.G5544.&REL..&RMDR..LISTINGS(&NM)
XX*
*****************
XX* CHKRC2 : ABEND IF COMPILER STEP RETURN CODE > 8
*****************
IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=SS5544.G5544.R200711.MED19234
62 XX IF (COMPILE.RC >= 8) THEN
63 XXCHKRC2 EXEC PGM=K9801ASP,
XX PARM=(A16,A16,,'RETURN CODE >= 08 ON COMPILE STEP')
64 XX ENDIF
XX*
XX************ ***************
XX* CREATE ISPSTART RECORD FOR CMPILAID STEP *
XX************ ******************
65 XXISPSTART EXEC PGM=K9801GCP,
XX* PARM=(,CMD,' ISPSTART CMD(%CMPILAID &NAME &Q &REL COBBAT &ENV) BD
XX* SPMAX(9999)')
XX* PARM=(,CMD,' ISPSTART CMD(%CML &NAME &Q &REL &C &RMDR ® &ENV)
XX* DISPMAX(9999)')
XX PARM=(,CMD,' ISPSTART CMD(%CML &NM &Q &REL &C &RMDR ®)')
XX* SPMAX(9999)')
IEFC653I SUBSTITUTION JCL - PGM=K9801GCP,PARM=(,CMD,' ISPSTART CMD(%CM
)')
66 XXSYSEXEC DD DSN=TSUA8SW.REXX.JCL,DISP=SHR
67 XXCMD DD DSN=&&ISPCMD,
XX DISP=(NEW,PASS),
XX SPACE=(80,1),
XX UNIT=VIO
XX*
XX****************** *********
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
Quote:
I have concatenated my PDS to the SYSEXEC
I just ran a quick and dirty test
if Your rexx script IS in the sysexec concatenation it will be found
is this the first time You approach such a task ??[/quote]
Back to top
harry143 New User Joined: 05 Nov 2007Posts: 21 Location: hyd
enrico-sorichetti wrote:
Quote:
I have concatenated my PDS to the SYSEXEC
I just ran a quick and dirty test
if Your rexx script IS in the sysexec concatenation it will be found
is this the first time You approach such a task ??
[/quote]
I have done it before.
My PDS is concatenated to the sysexec.
Process flow:
When a macro is run, a JCL is invoked and that JCL again invokes the command CML. This is the flow.
Any ideas??
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
let' s see if I understood correctly..
Code:
step 1 - interactive - invoke and edit macro which will submit a jcl for a batch ISPF run
step 2 - batch - everything else happens inside the batch ISPF run
right ??
Back to top
harry143 New User Joined: 05 Nov 2007Posts: 21 Location: hyd
enrico-sorichetti wrote:
let' s see if I understood correctly..
Code:
step 1 - interactive - invoke and edit macro which will submit a jcl for a batch ISPF run
step 2 - batch - everything else happens inside the batch ISPF run
right ??
Yes u r correct
Back to top
enrico-sorichetti Superior Member Joined: 14 Mar 2007Posts: 10873 Location: italy
google for ...
"doug nadel batch pdf" , download and install the "batch pdf" tool
its just an edit macro, so You should not have any problem in uploading iy to the MF
and move it to a library (SYSPROC/SYSEXEC) in Your ISPF logon proc
it will build a batch jcl to execute ISPF with the current interactive layout
here is the direct link http://www.sillysot.com/mvs/
Back to top
Please enable JavaScript!