Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

CLIST & REXX :: SDSF multiple spool datasets extracted to a single file.

$
0
0
Author: PJAlarcon
Subject: SDSF multiple spool datasets extracted to a single file.
Posted: Fri Apr 21, 2017 10:50 pm (GMT 5.5)

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                                                         


Viewing all articles
Browse latest Browse all 8500

Trending Articles