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
 

 

I want to know spool commands and how can i run thru batch

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
pmn2cdac

New User


Joined: 23 Dec 2007
Posts: 27
Location: Bangalore

PostPosted: Wed May 14, 2008 10:40 am    Post subject: I want to know spool commands and how can i run thru batch
Reply with quote

Basically i want to interact with spool in batch,,,,

related to this i want to know
1. how to go invoke spool
2. How to do xdc task
3.how to run differnt commands in batch
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed May 14, 2008 11:00 am    Post subject:
Reply with quote

Hello,

Search in the forum for "sdsf batch". There are multiple topics/examples in the forum.

If you find something that is not clear to you, post what you found here and your question about it.

Instead of XDC, you may need to use PRINT ODSN.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed May 14, 2008 11:01 am    Post subject:
Reply with quote

I believe you are looking for the SDSF fine manual. You can find all the commands in there, as well as instructions/examples of batch SDSF commands.

O.
Back to top
View user's profile Send private message
pmn2cdac

New User


Joined: 23 Dec 2007
Posts: 27
Location: Bangalore

PostPosted: Wed May 14, 2008 1:15 pm    Post subject:
Reply with quote

Thanks a lot.....I have got so many commands in that link

//**** JOB (METP0240),
// MSGCLASS=H,CLASS=B,MSGLEVEL=1,PRTY=4,NOTIFY=&SYSUID
// EXEC PGM=SDSF,PARM='++32,1000'
//ISFOUT DD SYSOUT=*
//ISFIN DD *
st
prefix tsubtsa*
select TSUBr2we J0079298

/*

but here ,,,but iam not finding what command i have to use to enter inside the job J0079298..

Thanks,
Praveen
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed May 14, 2008 2:41 pm    Post subject:
Reply with quote

Take a look again in the fine manual. The answer is in there.

O.
Back to top
View user's profile Send private message
pmn2cdac

New User


Joined: 23 Dec 2007
Posts: 27
Location: Bangalore

PostPosted: Thu May 15, 2008 11:31 am    Post subject:
Reply with quote

Yes ,,,,I got it.

Thanks,
Praveen
Back to top
View user's profile Send private message
pmn2cdac

New User


Joined: 23 Dec 2007
Posts: 27
Location: Bangalore

PostPosted: Thu May 15, 2008 11:43 am    Post subject:
Reply with quote

I have one more doubt on this,,,

//ISFIN DD *
ST
FIL JOBID = J0085038
F TSUBTSA2
++?
F 'JESMSGLG'
++S
PRINT OPEN
PRINT FILE REPORT
PRINT CLOSE
END
/*

here I am using only one job id,,,,
but i have n number of job id ,,,,how can i do XDC task in batch?

Thanks,
Praveen
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu May 15, 2008 11:53 am    Post subject:
Reply with quote

Take a look at the FILTER (FIL) command syntax within the same book...

O.
Back to top
View user's profile Send private message
isnehil
Warnings : 1

New User


Joined: 10 Oct 2007
Posts: 23
Location: mumbai

PostPosted: Wed May 21, 2008 3:33 pm    Post subject:
Reply with quote

Code:
/* REXX */ test code/
CALL BEEP 262,1000
EXIT
Back to top
View user's profile Send private message
isnehil
Warnings : 1

New User


Joined: 10 Oct 2007
Posts: 23
Location: mumbai

PostPosted: Wed May 21, 2008 3:36 pm    Post subject:
Reply with quote

Hi... I had written a code for my team which could XDC the information of a job from spool, provided the JOBNAME and JOBID. Hope this helps u buddy. tc.


Code:
/* REXX */                                                              00010000
SAY PLEASE ENTER JOBNAME JOBID                                          00020000
PULL JOBNAME JOBID                                                      00030000
SAY PLEASE ENTER XDC DSN                                                00040000
PULL XDCDS                                                              00050000
SAY PLEASE ENTER STRING                                                 00051000
PULL STRNG                                                              00052000
D="'"                                                                   00060000
XDCNAME=D||XDCDS||D                                                     00070000
                                                                        00080000
SAY YOU ENTERED JOBNAME JOBID                                           00090000
JOBIDD="JOBID"                                                          00100000
ADDRESS TSO                                                             00110000
"DELETE 'PWSX.KAMSHEW.TP.SDSF'"                                         00120000
"ALLOC F(ISFIN) TRACKS SPACE(1) REU"            /* USED BY SDSF     */  00130000
                                                                        00140000
"ALLOC F(ISFOUT) DA('PWSX.KAMSHEW.TP.SDSF') NEW DELETE REU ",           00150000
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"               00160000
                                                                        00170000
"ALLOC F(TEMPPRT) DA("XDCNAME") NEW DELETE REU ",                       00180000
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"               00190000
                                                                        00200000
QUEUE "SET CONFIRM OFF"                                                 00210000
QUEUE "OWNER *"                                                         00220000
QUEUE "PREFIX *"                                                        00230000
QUEUE "DA"                                                              00240000
QUEUE "ST"                                                              00250000
QUEUE "SELECT "JOBNAME JOBID                                            00260000
QUEUE "AFD REFRESH"                                                     00270000
QUEUE "FIND "JOBNAME                                                    00280000
QUEUE "++?"                                                             00290000
QUEUE "FIND "STRNG                                                      00300000
QUEUE "++S"                                /* BROWSE MSGUSR DATASET */  00310000
QUEUE "PRINT FILE TEMPPRT "                /* PRINT TO TEMP DATASET */  00320000
QUEUE "PRINT 1 999999"                                                  00330000
QUEUE "PRINT CLOSE"                                                     00340000
QUEUE "END"                                                             00350000
QUEUE "EXIT"                                                            00360000
                                                                        00370000
"EXECIO" QUEUED()" DISKW ISFIN (FINIS"     /* INPUT TO SDSF BATCH   */  00380000
                                                                        00390000
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++32,255')" /* INVOKE SDSF */ 00400000
EXIT                                                                    00410000
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10272
Location: italy

PostPosted: Wed May 21, 2008 3:37 pm    Post subject: Reply to: I want to know spool commands and how can i run th
Reply with quote

what about
http://www.redbooks.ibm.com/abstracts/sg247419.html?Open
Back to top
View user's profile Send private message
seshagiri.N
Warnings : 1

New User


Joined: 05 Aug 2008
Posts: 16
Location: India

PostPosted: Fri Aug 08, 2008 3:40 pm    Post subject:
Reply with quote

Hello isnehil,

Can you please explain about
"DELETE 'PWSX.KAMSHEW.TP.SDSF'"
"ALLOC F(ISFOUT) DA('PWSX.KAMSHEW.TP.SDSF') NEW DELETE REU ",
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"

When i execute the REXX which you gave .. i am getting the abend and an empty dataset is created.

could you please explain me what changes need to be done for this code to work?
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Fri Aug 08, 2008 3:56 pm    Post subject: Reply to: I want to know spool commands and how can i run th
Reply with quote

seshagiri,

Quote:
When i execute the REXX which you gave .. i am getting the abend and an empty dataset is created.


If it is not working, Isnehil might have posted the REXX code without testing it.

Quote:
Can you please explain about


Those REXX commands are for deleting the dataset and then allocating the same.

If your requirement is the same, i would suggest you to read the manual for SDSF in batch and then code and post if you face any issues.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
This topic is locked: you cannot edit posts or make replies. SDSF multiple spool datasets extracte... PJAlarcon CLIST & REXX 1 Fri Apr 21, 2017 10:50 pm
No new posts HLIST Utility In Batch Virendra Shambharkar TSO/ISPF 4 Fri Apr 07, 2017 3:38 pm
No new posts Batch job tuning sgandhla Testing & Performance analysis 5 Fri Mar 24, 2017 9:41 pm
No new posts MIPS/CPU consumption reduction in Batch vishwakotin DFSORT/ICETOOL 4 Sat Mar 18, 2017 5:46 pm


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