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
 
SDSF multiple spool datasets extracted to a single file.

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
PJAlarcon

New User


Joined: 30 Jun 2010
Posts: 1
Location: Córdoba, Argentina

PostPosted: Fri Apr 21, 2017 10:50 pm    Post subject: SDSF multiple spool datasets extracted to a single file.
Reply with quote

Hi,
I'm trying to extract the same spool dataset from several job executions but not getting the desired result, I'm just getting one spool dataset in my output.
The MYJOB job runs 50 times a day, and this job has a spool called OUTPUT, here's my code.
Code:
rc=isfcalls("ON")                                                       
isfcols2="JNAME STEPN DATEE TIMEE"                                     
isfsort="JNAME A DATEE A TIMEE A"                                       
isffilter="DATEE EQ 2017.110"                                           
ISFPRTDDNAME = OUTF                                                     
ADDRESS SDSF "ISFEXEC ST MYJOB (ALTERNATE DELAYED)"                 
IF rc<>0 THEN CALL msgrtn                                               
SAY "No of jobs "||JNAME.0                                             
IF jname.0 > 0 THEN DO                                                 
  DO j=1 TO JNAME.0                                               
    /* get spool list for selected job */                               
    ADDRESS SDSF "ISFACT ST TOKEN('"TOKEN.j"') PARM(NP ?) (PREFIX JDS_)"
    IF rc<>0 THEN CALL msgrtn                                           
    /* OUTPUT spool dataset is number 21 */                                   
    js=21                                                               
    IF j < JNAME.0 THEN                                               
      ADDRESS SDSF "ISFACT ST TOKEN('"JDS_TOKEN.js"') PARM(NP XF)"   
    ELSE                                                             
      ADDRESS SDSF "ISFACT ST TOKEN('"JDS_TOKEN.js"') PARM(NP XFC)"
  END /* MAIN LOOP */                                                 
END                                                                   
rc=isfcalls('OFF')                                                   
EXIT                                                                 

I also tried
Code:
SELECT                                                         
  WHEN j = 1 THEN                                               
    DO                                                         
    SAY j||". XF"                                               
    ADDRESS SDSF "ISFACT ST TOKEN('"JDS_TOKEN.js"') PARM(NP XF)"
    END                                                         
  WHEN j = 3 THEN /*JNAME.0 THEN*/                             
    DO                                                         
    SAY j||". XC"                                               
    ADDRESS SDSF "ISFACT ST TOKEN('"JDS_TOKEN.js"') PARM(NP XC)"
    END                                                         
  OTHERWISE                                                     
    DO                                                         
    SAY j||". XF"                                               
    ADDRESS SDSF "ISFACT ST TOKEN('"JDS_TOKEN.js"') PARM(NP X)"
    END                                                         
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1848
Location: UK

PostPosted: Sat Apr 22, 2017 1:43 am    Post subject:
Reply with quote

Topic locked - already on beginners forum
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    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 editting the file by inserting zeros ... pramodrsingh DFSORT/ICETOOL 9 Mon Aug 21, 2017 5:58 pm
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am
No new posts Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts Unable to copy data from spool in a d... srikant314 JCL & VSAM 8 Fri Jul 28, 2017 9:10 pm


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