IEBPTPCH Utility

TRNG111.PT.PCH

C3000SURESH10000CHESB 20-05-2000
C4000GANESH25000HYDCA 15-12-2001
C8000SATISH15000CHEFD 18-10-2002


//TRNG111L JOB NOTIFY=&SYSUID                          
//STEP1 EXEC PGM=IEBPTPCH                              
//SYSPRINT DD SYSOUT=*                                
//SYSUT1 DD DSN=TRNG111.PT.PCH,DISP=SHR                
//SYSUT2 DD SYSOUT=R                                  
//SYSIN DD *                                          
  PRINT TYPORG=PS,MAXFLDS=6                            
  TITLE ITEM=('CUSTOMER DETAILS',20)                  
  TITLE ITEM=('CS ID  NAME  BALANCE  CITY  OPEN DATE')
  RECORD FIELD=(5,1,,1),                              
         FIELD=(6,6,,8),                              
         FIELD=(5,12,,17),                            
         FIELD=(3,20,,26),                            
         FIELD=(10,23,,32)                            
/*