|
View previous topic :: View next topic
|
| Author |
Message |
vasco ferreira
New User
Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal
|
|
|
|
This is part of my clist
IF &COUNT NE Y THEN DO
CONTROL MSG
ISPEXEC FTOPEN TEMP
ISPEXEC FTINCL D261PRI3
This is the first part of the job only with jobcard
SET COUNT = Y
END
ISPEXEC FTINCL D261SEC3
This is the second part of the job with the main jcl code
ISPEXEC VGET ZTEMPF
DO WHILE &X>80
and here I decide 80 steps per job
ISPEXEC FTCLOSE
SUB '&ZTEMPF'
SET &X=0
SET COUNT = N
END
SET &X=&X+1
GOTO STEP1:
FIM:-
ISPEXEC FTCLOSE
SUB '&ZTEMPF'
And the question is: Is it possible submit for example 7 jobs with different name each by this clist? |
|
| Back to top |
|
 |
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| You have not bothered to show us the JCL skeletons. Please do so, using code tags for readability. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Yes, but you may need to adapt the ISPF skeleton to allow a change of job name from within the CLIST |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
A lot of CLIST around today.
We've discussed this here before, and can't find anyone to recommend writing new stuff in CLIST rather than rexx. Have you considered that Vasco?
Is this what you want to do?
Why do you think it might not be possible to submit multiple jobs? You already have two SUBMIT commands in your CLIST.
At 80 steps a go, what are the 560 steps going to do, just out of interest? |
|
| Back to top |
|
|
vasco ferreira
New User
Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal
|
|
|
|
| expat wrote: |
| Yes, but you may need to adapt the ISPF skeleton to allow a change of job name from within the CLIST |
Right, but how should i do it? Would you show me the command? Many thanks. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
we would really be glad to help You,
but your explanation of things is clear as mud!
You can do almost anything You want, if You are able to do it
and/or if You can get help on it if You are able to explain it
I took time to try to understand Your issue ad test a snippet
the rexx script
| Code: |
EDIT ENRICO.ISPF.EXEC(ZSTEPS) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 /*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000002 /* */
000003 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000004 Trace "O"
000005
000006 Parse Source _sys _how _cmd .
000007
000008 If Sysvar(SYSISPF) \= "ACTIVE" Then Do
000009 Say left(_cmd,8)"- Ispf is not active. Command not executed"
000010 exit 4
000011 End
000012 call $ispex "CONTROL ERRORS RETURN"
000013 if $isred("MACRO (ARGS) NOPROCESS ") = 0 then ,
000014 _how = "MACRO"
000015 else do
000016 zedsmsg = "Invocation ERROR"
000017 zedlmsg = left(_cmd,8)"- Must invoked as a MACRO"
000018 call $ispex "SETMSG MSG(ISRZ001)"
000019 exit 4
000020 end
000021
000022 args = space(args)
000023 argc = words(args)
000024
000025 jcount = word(args,1)
000026 scount = word(args,2)
000027
000028 zrc = $ispex("FTOPEN TEMP")
000029 say zrc
000030 do i = 1 to jcount
000031 jnum = right(i,3,"0")
000032 zrc = $ispex("FTINCL JSKEL")
000033 say zrc
000034 do j = 1 to scount
000035 snum = right(j,3,"0")
000036 zrc = $ispex("FTINCL SSKEL")
000037 say zrc
000038 end
000039 end
000040
000041 call $ispex "FTCLOSE"
000042 call $ispex "VGET (ZTEMPF)"
000043 call $ispex "VIEW DATASET('"ztempf"' "
000044
000045 exit 0
000046
000047 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000048 $tsoex:
000049 tso_0tr = trace("O")
000050 Address TSO arg(1)
000051 tso_0rc = rc
000052 trace value(tso_0tr)
000053 return tso_0rc
000054 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000055 $ispex:
000056 isp_tr = trace("O")
000057 Address ISPEXEC arg(1)
000058 isp_rc = rc
000059 trace value(isp_tr)
000060 return isp_rc
000061 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
000062 $isred:
000063 isr_tr = trace("O")
000064 Address ISREDIT arg(1)
000065 isr_rc = rc
000066 trace value(isr_tr)
000067 return isr_rc
000068
****** **************************** Bottom of Data ****************************
|
the say zrc are quick and dirty ways of checking that the snippet works
industrial strength will require proper handling of them
the skels used
| Code: |
EDIT ENRICO.ISPF.SKELS(JSKEL) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //J&JNUM JOB (ACCT),'JSKEL',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //* JOB NUMBER = &JNUM OF &JCOUNT
000004 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
****** **************************** Bottom of Data **************************** |
| Code: |
EDIT ENRICO.ISPF.SKELS(SSKEL) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //S&SNUM EXEC PGM=IEFBR14
000002 //* JOB NUMBER = &JNUM OF &JCOUNT
000003 //* STEP NUMBER = &SNUM OF &SCOUNT
000004 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
****** **************************** Bottom of Data ****************************
|
the result obtained
running the snippet with zsteps 2 3 ( generate two jobs with three steps each )
| Code: |
VIEW ENRICO.SPFTEMP2.CNTL Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //J001 JOB (ACCT),'JSKEL',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //* JOB NUMBER = 001 OF 2
000004 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000005 //S001 EXEC PGM=IEFBR14
000006 //* JOB NUMBER = 001 OF 2
000007 //* STEP NUMBER = 001 OF 3
000008 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000009 //S002 EXEC PGM=IEFBR14
000010 //* JOB NUMBER = 001 OF 2
000011 //* STEP NUMBER = 002 OF 3
000012 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000013 //S003 EXEC PGM=IEFBR14
000014 //* JOB NUMBER = 001 OF 2
000015 //* STEP NUMBER = 003 OF 3
000016 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000017 //J002 JOB (ACCT),'JSKEL',NOTIFY=ENRICO,
000018 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000019 //* JOB NUMBER = 002 OF 2
000020 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000021 //S001 EXEC PGM=IEFBR14
000022 //* JOB NUMBER = 002 OF 2
000023 //* STEP NUMBER = 001 OF 3
000024 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000025 //S002 EXEC PGM=IEFBR14
000026 //* JOB NUMBER = 002 OF 2
000027 //* STEP NUMBER = 002 OF 3
000028 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000029 //S003 EXEC PGM=IEFBR14
000030 //* JOB NUMBER = 002 OF 2
000031 //* STEP NUMBER = 003 OF 3
000032 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
****** **************************** Bottom of Data **************************** |
|
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| enrico-sorichetti wrote: |
| the rexx script |
It should be noted that this is Rexx, but that the OP speaks of CLIST. Rexx is superior, but the TS may be confused. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
as said by many of us the chances of getting help on CLISTs are pretty slim
i firmly believe that understanding a logic in REXX is easier than understanding the same in CLIST
and if he does not like my solution he can always ask for a refund of the consultancies fees he paid  |
|
| Back to top |
|
|
vasco ferreira
New User
Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal
|
|
|
|
| Thank you. I think it would be better find another help forum with Global Moderator with less experience. You did a wonderful work with this script, infortunnally i don't know Rexx (my fault) and in the meantime i did upset you. My apologize. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
why do You feel You upset me, that' s not true!
what really upsets me now is the bad weather in Chamonix |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| enrico-sorichetti wrote: |
why do You feel You upset me, that' s not true!
what really upsets me now is the bad weather in Chamonix |
What really upsets me is that the December performance of Linda di Chamounix at the Gran Teatre del Liceu won't be narrowcast in the U.S.! |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| vasco ferreira wrote: |
| Thank you. I think it would be better find another help forum with Global Moderator with less experience. You did a wonderful work with this script, infortunnally i don't know Rexx (my fault) and in the meantime i did upset you. My apologize. |
Vasco,
Don't despair of not "knowing" rexx. You will be able to find rexx which works in all different sorts of environments, including on your PC at home if you want to do some "catch up".
Enrico has provided something which I think you can modify now, with your knowledge of CLIST and the idea that it is "a similar sort of language" (if I may get away with saying that). You will find many examples of rexx code in the forum and in other places on the internet.
I'm confident you can adapt what enrico has provided to your task, just turn your head a little to the left. Then a little to the right. Do this a few times. If that works, you are out of the "I'm only capable of CLIST" tunnel-vision.
Com certeza :-) |
|
| Back to top |
|
|
vasco ferreira
New User
Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal
|
|
|
|
| Ok it will be one of my propose, but now i have a work to finish, few time and the "semestral work objective" near the end... Thank you all. |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| Quote: |
What really upsets me is that the December performance of Linda di Chamounix at the Gran Teatre del Liceu won't be narrowcast in the U.S.!
|
I dont like italian falsetto's, for me its the Don Cossacks (Serge Jaroff)
even with their castrate singers. |
|
| Back to top |
|
|
|
|
