View previous topic :: View next topic
|
Author |
Message |
pmn2cdac
New User
Joined: 23 Dec 2007 Posts: 27 Location: Bangalore
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
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 |
|
|
pmn2cdac
New User
Joined: 23 Dec 2007 Posts: 27 Location: Bangalore
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Take a look again in the fine manual. The answer is in there.
O. |
|
Back to top |
|
|
pmn2cdac
New User
Joined: 23 Dec 2007 Posts: 27 Location: Bangalore
|
|
|
|
Yes ,,,,I got it.
Thanks,
Praveen |
|
Back to top |
|
|
pmn2cdac
New User
Joined: 23 Dec 2007 Posts: 27 Location: Bangalore
|
|
|
|
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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Take a look at the FILTER (FIL) command syntax within the same book...
O. |
|
Back to top |
|
|
isnehil Warnings : 1 New User
Joined: 10 Oct 2007 Posts: 23 Location: mumbai
|
|
|
|
Code: |
/* REXX */ test code/
CALL BEEP 262,1000
EXIT |
|
|
Back to top |
|
|
isnehil Warnings : 1 New User
Joined: 10 Oct 2007 Posts: 23 Location: mumbai
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
Back to top |
|
|
seshagiri.N Warnings : 1 New User
Joined: 05 Aug 2008 Posts: 16 Location: India
|
|
|
|
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 |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007 Posts: 1287 Location: Chennai, India
|
|
|
|
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 |
|
|
|