Re: SDSF in Batch

2017-05-31 Thread John Dawes 
Sri,

I tried out your example and it worked like a charm.  Great stuff.  Thanks for 
sharing this with us.


On Tue, 30/5/17, Sri h Kolusu  wrote:

 Subject: Re: SDSF in Batch
 To: IBM-MAIN@LISTSERV.UA.EDU
 Received: Tuesday, 30 May, 2017, 3:11 PM
 
 Steely Mark,
 
 Assuming you always have more than 1 job to
 extract in the DA queue, you 
 can use SDSF
 block commands  (//X - //) and extract the entire log. 
 You 
 can use utility of choice ( I used
 SORT) to extract out the contents you 
 like.
 Some thing like this
 
 //**
 //* DELETE IF OUTPUT DATASET EXISTS       
                     *
 //**
 //STEP0100 EXEC PGM=IEFBR14 
 //DD01     DD  DSN=&SYSUID..SDSF.OUTPUT,
 
 //            
 DISP=(MOD,DELETE),UNIT=SYSDA, 
 //       
      SPACE=(TRK,(1,0),RLSE) 
 //* 
 //**
 //* EXTRACT THE ENTIRE JOB OUTPUTS IN DA FOR
 PREFIX 'CICS'     *
 //* USING SDSF
 BLOCK COMMANDS (//X - //)                      
 *
 //**
 //STEP0200 EXEC
 PGM=SDSF,PARM='++30,256' 
 //ISFOUT 
  DD SYSOUT=* 
 //SYSUDUMP DD SYSOUT=* 
 //SYSPRINT DD SYSOUT=* 
 //SYSTSPRT DD SYSOUT=* 
 //SYSOUT   DD SYSOUT=* 
 //DATAOUT  DD DSN=&SYSUID..SDSF.OUTPUT,
 
 //           
 DISP=(NEW,CATLG,DELETE), 
 //         
   SPACE=(CYL,(25,25),RLSE), 
 //       
     RECFM=FB,LRECL=133,BLKSIZE=0 
 //ISFIN    DD * 
 PRE CICS*
 
 DA 
 PRINT FILE DATAOUT 
 FIND 'CICS' 
 ++//X 
 FIND 'CICS' LAST 
 ++//
 
 PRINT CLOSE 
 END 
 /*
 //**
 //* EXTRACT THE JESMSGLG FOR EACH JOB LOOKING
 FOR THE TIME     *
 //**
 //STEP0300 EXEC PGM=SORT 
 //SYSOUT   DD SYSOUT=* 
 //SORTIN   DD
 DISP=SHR,DSN=&SYSUID..SDSF.OUTPUT 
 //SORTOUT  DD SYSOUT=* 
 //SYSIN    DD * 
   OPTION
 COPY 
   INCLUDE COND=(2,2,ZD,EQ,NUM,AND,
 
                
 4,1,CH,EQ,C'.',AND, 
          
       5,2,ZD,EQ,NUM,AND, 
          
       7,1,CH,EQ,C'.',AND, 
    
             8,2,ZD,EQ,NUM) 
 /*
 
 P.S : The block command will
 fail if you just have 1 active job in the DA 
 queue.
 
 Thanks,
 Kolusu
 
 
 
 From:   "Steely.Mark" 
 To:     IBM-MAIN@LISTSERV.UA.EDU
 Date:   05/30/2017 10:17 AM
 Subject:        SDSF in Batch
 Sent by:        IBM Mainframe Discussion
 List 
 
 
 
 I know this has been discussed before but I
 can't find anything that I am 
 looking
 for.
 
 The only thing I found
 close was SDSFEXT from file 313 on the CBTAPE.
 
 I would like the batch SDSF
 job to perform PREFIX CICS*.  Then DA.  Then 
 from that list print the JESMSGLG from each one
 listed.
 
 I have been able to
 do this successfully  for 1 job.
 
 Any help would be appreciated.
 
 Thanks
 
 
 --
 For IBM-MAIN subscribe / signoff / archive
 access instructions,
 send email to lists...@listserv.ua.edu
 with the message: INFO IBM-MAIN
 
 
 
 
 
 
 --
 For IBM-MAIN subscribe / signoff / archive
 access instructions,
 send email to lists...@listserv.ua.edu
 with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SDSF in Batch

2017-05-30 Thread Sri h Kolusu 
Steely Mark,

Assuming you always have more than 1 job to extract in the DA queue, you 
can use SDSF block commands  (//X - //) and extract the entire log.  You 
can use utility of choice ( I used SORT) to extract out the contents you 
like. Some thing like this

//**
//* DELETE IF OUTPUT DATASET EXISTS*
//**
//STEP0100 EXEC PGM=IEFBR14 
//DD01 DD  DSN=&SYSUID..SDSF.OUTPUT, 
// DISP=(MOD,DELETE),UNIT=SYSDA, 
// SPACE=(TRK,(1,0),RLSE) 
//* 
//**
//* EXTRACT THE ENTIRE JOB OUTPUTS IN DA FOR PREFIX 'CICS' *
//* USING SDSF BLOCK COMMANDS (//X - //)   *
//**
//STEP0200 EXEC PGM=SDSF,PARM='++30,256' 
//ISFOUT   DD SYSOUT=* 
//SYSUDUMP DD SYSOUT=* 
//SYSPRINT DD SYSOUT=* 
//SYSTSPRT DD SYSOUT=* 
//SYSOUT   DD SYSOUT=* 
//DATAOUT  DD DSN=&SYSUID..SDSF.OUTPUT, 
//DISP=(NEW,CATLG,DELETE), 
//SPACE=(CYL,(25,25),RLSE), 
//RECFM=FB,LRECL=133,BLKSIZE=0 
//ISFINDD * 
PRE CICS* 
DA 
PRINT FILE DATAOUT 
FIND 'CICS' 
++//X 
FIND 'CICS' LAST 
++// 
PRINT CLOSE 
END 
/*
//**
//* EXTRACT THE JESMSGLG FOR EACH JOB LOOKING FOR THE TIME *
//**
//STEP0300 EXEC PGM=SORT 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD DISP=SHR,DSN=&SYSUID..SDSF.OUTPUT 
//SORTOUT  DD SYSOUT=* 
//SYSINDD * 
  OPTION COPY 
  INCLUDE COND=(2,2,ZD,EQ,NUM,AND, 
4,1,CH,EQ,C'.',AND, 
5,2,ZD,EQ,NUM,AND, 
7,1,CH,EQ,C'.',AND, 
8,2,ZD,EQ,NUM) 
/*

P.S : The block command will fail if you just have 1 active job in the DA 
queue.

Thanks,
Kolusu



From:   "Steely.Mark" 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   05/30/2017 10:17 AM
Subject:SDSF in Batch
Sent by:IBM Mainframe Discussion List 



I know this has been discussed before but I can't find anything that I am 
looking for.

The only thing I found close was SDSFEXT from file 313 on the CBTAPE.

I would like the batch SDSF job to perform PREFIX CICS*.  Then DA.  Then 
from that list print the JESMSGLG from each one listed.

I have been able to do this successfully  for 1 job.

Any help would be appreciated.

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN






--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SDSF in Batch

2017-05-30 Thread Lizette Koehler 
Check out ISFREXX, it is the REXX interface that you can use in Foreground and
Background

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.isfa50
0/rexx.htm


Also you can check out JES2DISK (It is googleable) for an example of how to do
this. (Way to go John McKown)



Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Steely.Mark
> Sent: Tuesday, May 30, 2017 10:17 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SDSF in Batch
> 
> I know this has been discussed before but I can't find anything that I am
> looking for.
> 
> The only thing I found close was SDSFEXT from file 313 on the CBTAPE.
> 
> I would like the batch SDSF job to perform PREFIX CICS*.  Then DA.  Then from
> that list print the JESMSGLG from each one listed.
> 
> I have been able to do this successfully  for 1 job.
> 
> Any help would be appreciated.
> 
> Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SDSF in Batch

2017-05-30 Thread Ira Nelson 
Did you look into SDSF/REXX ? 

Sent from Mail for Windows 10

From: Steely.Mark
Sent: Tuesday, May 30, 2017 1:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SDSF in Batch

I know this has been discussed before but I can't find anything that I am 
looking for.

The only thing I found close was SDSFEXT from file 313 on the CBTAPE.

I would like the batch SDSF job to perform PREFIX CICS*.  Then DA.  Then from 
that list print the JESMSGLG from each one listed.

I have been able to do this successfully  for 1 job.

Any help would be appreciated.

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

SDSF in Batch

2017-05-30 Thread Steely.Mark 
I know this has been discussed before but I can't find anything that I am 
looking for.

The only thing I found close was SDSFEXT from file 313 on the CBTAPE.

I would like the batch SDSF job to perform PREFIX CICS*.  Then DA.  Then from 
that list print the JESMSGLG from each one listed.

I have been able to do this successfully  for 1 job.

Any help would be appreciated.

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN