Reporting back as promised.  Using PGM=SDSF and Ken's examples as a
model, I was able to get the result I wanted.  Herewith a sanitized
version of what worked for the archives, and a big Thank You to Ken.

Note the DISP of MOD for the OUTFILE DD so that multiple job outputs can
be captured in the same file and no RLSE parameter on the SPACE so that
many jobs could be captured without creating many small extents.

//GETSDSF  EXEC PGM=SDSF,PARM='++0043,133'                         
//ISFOUT   DD  SYSOUT=*                                            
//OUTFILE  DD  DISP=(MOD,CATLG,CATLG),DSN=&SYSUID..MYJOBS.JESMSGLG,
//             UNIT=SYSDA,SPACE=(TRK,(15,15)),                 
//             DSORG=PS,RECFM=VBA,LRECL=259,BLKSIZE=0              
//ISFIN    DD  *                                                   
SET CURSOR OFF                                                     
PREFIX TSOUS*                                                      
H                                                                  
SELECT TSOUSERX JOB61996                                           
FIND TSOUSERX                                                      
++?                                                                
FIND JESMSGLG                                                      
++S                                                                
PRINT FILE OUTFILE                                                 
PRINT                                                              
PRINT CLOSE                                                        
END                                                                
END                                                                
H                                                                  
SELECT TSOUSERX JOB60137                                           
FIND TSOUSERX                                                      
++?                                                                
FIND JESMSGLG                                                      
++S                                                                
PRINT FILE OUTFILE                                                 
PRINT                                                              
PRINT CLOSE                                                        
END                                                                
END                                                                
//                                                                 


This message and any attachments are intended only for the use of the addressee 
and
may contain information that is privileged and confidential. If the reader of 
the 
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to