Hello,
 
Here is the job :
 
//PRINT    JOB   (PROD),ROTINA,CLASS=S,                             
//    NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=T                      
//S001DEF  EXEC  PGM=IDCAMS                                         
//STEPLIB  DD    DSN=SERGIOL.TSO.LOAD,DISP=SHR                      
//SYSUT1 DD DSN=XXXX,DISP=SHR,UNIT=/670,LABEL=(,BLP,EXPDT=98000),   
//          VOL=(,RETAIN,,SER=G01175)                               
//SYSPRINT DD    SYSOUT=*                                           
//AMSDUMP  DD    SYSOUT=*                                           
//SYSIN    DD    *                                                  
 PRINT IFILE(SYSUT1)                                                
 
And here, the result :
 
IDCAMS  SYSTEM SERVICES                                           TIME: 16:0
                                                                            
 PRINT IFILE(SYSUT1)                                                        
IDC3300I  ERROR OPENING XXXX                                                
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN                                 
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0                                  
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12                          
                                                                            
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12          
 
Thanks,
 
Sergio
 
> Date: Tue, 29 Mar 2011 15:11:24 -0700
> From: barry.a.schw...@boeing.com
> Subject: Re: Check TAPE Contents
> To: IBM-MAIN@bama.ua.edu
> 
> Show your JCL and control cards and the job log.
> 
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf 
> Of Sergio Lima
> Sent: Tuesday, March 29, 2011 12:04 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: Check TAPE Contents
> 
> Hello,
> 
> We also tried use IDCAMS here from see tape contents and don't work.
> Can you please say what can I get a sample JOB ?
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
                                          
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to