//JCLNNCTT JOB (ACCT1,ACCT2,ACCT3,ACCT4),TIME=1440,
//         CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
//*================================================================
//*- 1. Replace  _CONTROLT with a valid dataset name
//*
//*- 2. Replaces DDs STEPLIB, DAPARM, DAMDB, DAMDI, DATRC, DALOG,  
//*       DAPOOLS with your installation valid dataset names
//*
//*- 3. Do a ftp in ASCII format and compressed to the following site
//*     
//*     ftp://sinapbit.serveftp.com (user/pswd: it will be sent by mail)
//*
//*===============================================================
//STEP010  EXEC PGM=IDCAMS,REGION=4500K,TIME=NOLIMIT
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
     DEL _CONTROLT
/*
//*===============================================================
//*  THIS STEP GENERATES A TOTAL REPORT OF MDB                   
//*===============================================================
//STEP020 EXEC PGM=CTTEXT,REGION=32M                                    
//STEPLIB  DD  DISP=SHR,DSN=IOA.V620.LOADINS                            
//DAPARM   DD  DISP=SHR,DSN=IOA.PROD.V620.PARM                          
//         DD  DISP=SHR,DSN=IOA.PROD.V620.IOAENV                        
//PRTDBG   DD SYSOUT=*                                                  
//DAMDB    DD DISP=SHR,DSN=CONTROLT.DBASE.V620.MDBD.E000                
//DAMDI    DD DISP=SHR,DSN=CONTROLT.DBASE.V620.MDBI.E000                
//DATRC    DD DISP=SHR,DSN=CONTROLT.DBASE.V620.TRC                      
//DALOG    DD DISP=SHR,DSN=IOA.DBASE.V620.LOG                           
//DAPOOLS  DD DISP=SHR,DSN=CONTROLT.PROD.V620.PARM($$POOL)              
//REPPARM  DD UNIT=SYSALLDA,SPACE=(CYL,(110,100))                       
//DAFLDS   DD UNIT=SYSALLDA,SPACE=(CYL,(110,100)),DISP=(,PASS)          
//REPDATA  DD UNIT=SYSALLDA,SPACE=(CYL,(120,110)),DISP=(,PASS)          
//REPOUT DD DSN=&&CONTROLT,DISP=(,CATLG,DELETE),                    
// SPACE=(CYL,(90,90),RLSE),LRECL=255,RECFM=FB,RETPD=35                 
//SYSPRINT DD SYSOUT=*                                                  
//SORTIN   DD UNIT=SYSALLDA,SPACE=(CYL,(150,100))                       
//SORTWK01 DD UNIT=SYSALLDA,SPACE=(CYL,(15,10))                         
//SORTWK02 DD UNIT=SYSALLDA,SPACE=(CYL,(15,10))                         
//SORTWK03 DD UNIT=SYSALLDA,SPACE=(CYL,(15,10))                         
//SYSOUT   DD SYSOUT=*                                                  
//SYSABEND DD SYSOUT=*                                                  
//SYSIN    DD DDNAME=SYSIN                                              
//SYSIN    DD  *                                                        
 EXTRACT PATH=DATASET/ALLVOLS                                           
 REPORT NAME=GENERAL,TITLE='DS LIST',LINESIZE=255,SUMMARY=YES           
 FIELDS CRECPU,VOLSER,DSNAME,CREDT,DSEXPDT,LACCDT,BLKSIZE,BLOCKCT,      
  SMSMC,LOCATION,SLOTNUM,CREUSER,CREJBN,CREPGM,DSPOOL,MEDIA,DSSTAT      
 SORTBY DSNAME,VOLSER                                                   
  ATTR FIELD=CRECPU,TITLE='SYSID'                                       
  ATTR FIELD=VOLSER,TITLE='VOLSER'                                      
  ATTR FIELD=DSNAME,TITLE='DATASET NAME'                                
  ATTR FIELD=CREDT,TITLE='CREATE-DATE',EDIT='YYYY/MM/DD'                
  ATTR FIELD=DSEXPDT,TITLE='EXP-DATE   ',EDIT='YYYY/MM/DD'              
  ATTR FIELD=LACCDT,TITLE='LREF-DATE ',EDIT='YYYY/MM/DD'                
  ATTR FIELD=BLKSIZE,TITLE='BLOCK'                                      
  ATTR FIELD=BLOCKCT,TITLE='BLOCK QTY     ',EDIT='ZZZZZZZZZ9'           
  ATTR FIELD=SMSMC,TITLE='MC'                                           
  ATTR FIELD=LOCATION,TITLE='LIBS   '                                   
  ATTR FIELD=SLOTNUM,TITLE='SLOT/NBR',EDIT='ZZZZ9'                      
  ATTR FIELD=CREUSER,TITLE='USER'                                       
  ATTR FIELD=CREJBN,TITLE='JOB'                                         
  ATTR FIELD=CREPGM,TITLE='PROGRAM'                                     
  ATTR FIELD=DSPOOL,TITLE='DSPOOL'                                      
  ATTR FIELD=MEDIA,TITLE='MEDIA'                                        
  ATTR FIELD=DSSTAT,TITLE='STATE'                                       
/*                                                                      
//STEP030  EXEC PGM=ICETOOL                                              
//SYMNAMES  DD  *                                                       
SYSNAME,S'&SYSNAME'                                                     
/*                                                                      
//DFSMSG  DD   SYSOUT=*                                                 
//TOOLMSG DD   SYSOUT=*                                                 
//SYSOUT  DD   SYSOUT=*                                                 
//OUT   DD DSN=_CONTROLT,DISP=(,KEEP),DCB=(LRECL=220,RECFM=FBA),   
//        SPACE=(CYL,(9,9)),UNIT=SYSDA                                  
//INDD    DD  DSN=&&CONTROLT,DISP=(OLD,KEEP)                        
//TOOLIN  DD   *                                                        
 COPY FROM(INDD) USING(ALL1)                                            
/*                                                                      
//ALL1CNTL DD *                                                         
 OUTFIL FNAMES=OUT,INCLUDE=((21,2,CH,NE,C'  '),AND,(18,2,CH,NE,C'--'),  
 AND,(37,2,CH,NE,C'  '),AND,(23,6,CH,NE,C'VOLSER'),                     
 AND,(48,1,CH,NE,C'|'))                                                 
 OUTREC FIELDS=(SYSNAME;C';CT;',DATE1,C';',4,4,C';',12,6,C';',          
     21,44,C';',68,10,                                                  
 C';',82,10,C';',96,10,C';',                                            
 108,9,C';',120,14,C';',137,8,C';',148,8,C';',159,5,C';',167,8,         
 C';',178,8,C';',189,8,C';',200,15,C';',218,8,C';',229,12)              
/*