|
|
| Author |
Message |
pmn2cdac
New User
Joined: 23 Dec 2007
Posts: 18
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 |
|
 |
References
|
 Posted: Wed May 14, 2008 10:40 am Post subject: Re: I want to know spool commands and how can i run thru batch |
|
|
|
|
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 6931
Location: 221 B Baker St
|
|
|
|
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: 1812
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: 18
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: 1812
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: 18
Location: Bangalore
|
|
|
|
Yes ,,,,I got it.
Thanks,
Praveen |
|
| Back to top |
|
|
pmn2cdac
New User
Joined: 23 Dec 2007
Posts: 18
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: 1812
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
Global Moderator
Joined: 14 Mar 2007
Posts: 2443
Location: italy
|
|
| Back to top |
|
|
|
|
