Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

In a clist, submit different jobs with different name

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal

PostPosted: Tue Aug 02, 2011 9:34 pm    Post subject: In a clist, submit different jobs with different name
Reply with quote

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
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Tue Aug 02, 2011 10:04 pm    Post subject:
Reply with quote

You have not bothered to show us the JCL skeletons. Please do so, using code tags for readability.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Aug 02, 2011 10:04 pm    Post subject:
Reply with quote

Yes, but you may need to adapt the ISPF skeleton to allow a change of job name from within the CLIST
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Aug 02, 2011 10:15 pm    Post subject: Re: In a clist, submit different jobs with different name
Reply with quote

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?

Code:
DO WHILE &X>80


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
View user's profile Send private message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal

PostPosted: Wed Aug 03, 2011 3:59 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Wed Aug 03, 2011 5:59 pm    Post subject: Reply to: In a clist, submit different jobs with different n
Reply with quote

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
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Aug 03, 2011 6:30 pm    Post subject: Re: Reply to: In a clist, submit different jobs with differe
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Wed Aug 03, 2011 6:37 pm    Post subject: Reply to: In a clist, submit different jobs with different n
Reply with quote

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 icon_biggrin.gif icon_biggrin.gif
Back to top
View user's profile Send private message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal

PostPosted: Wed Aug 03, 2011 6:37 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Wed Aug 03, 2011 6:40 pm    Post subject: Reply to: In a clist, submit different jobs with different n
Reply with quote

why do You feel You upset me, that' s not true!
what really upsets me now is the bad weather in Chamonix icon_biggrin.gif
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Aug 03, 2011 6:58 pm    Post subject: Re: Reply to: In a clist, submit different jobs with differe
Reply with quote

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 icon_biggrin.gif

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.! icon_biggrin.gif
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Wed Aug 03, 2011 7:11 pm    Post subject:
Reply with quote

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
View user's profile Send private message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal

PostPosted: Wed Aug 03, 2011 7:30 pm    Post subject:
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Aug 03, 2011 9:20 pm    Post subject: Re: Reply to: In a clist, submit different jobs with differe
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts How to show message using batch jobs madprasy TSO/ISPF 7 Fri Sep 09, 2016 6:55 pm
No new posts Don't allow CICS to submit batch jobs prino JCL & VSAM 5 Mon Jul 25, 2016 3:26 pm
No new posts Predicting jobs which are about to re... kpanchabhai85 DFSORT/ICETOOL 4 Thu Jun 30, 2016 7:51 pm
No new posts how to find clist's or view library Andrew Hsia CLIST & REXX 4 Tue Jun 28, 2016 6:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us