SHARE
TWEET

Untitled

a guest Apr 21st, 2015 432 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //VIL0014D JOB UNIVER,CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID          
  2. // JCLLIB ORDER=VIL0014.MASTER.PROCLIB                            
  3. //STEP01 EXEC PGM=IDCAMS                                          
  4. //SYSIN DD *                                                      
  5.  DELETE VIL0014.VISDARB                                          
  6.  IF MAXCC = 8 THEN SET MAXCC = 0                                  
  7. //SYSPRINT DD SYSOUT=*                                            
  8. //* KLIJUOJAM FAILUS I VIENA                                      
  9. //PROCED1 EXEC SUKL,CS=DRCS,INPUT1=UNIVIL.STAFF.ATOI.G0001V00,    
  10. // INPUT2=UNIVIL.STAFF.JTOR.G0001V00,                            
  11. // INPUT3=UNIVIL.STAFF.STOZ.G0001V00,                            
  12. // INPUT4=VIL0014.NEWS,                                          
  13. // OUTPUT=VIL0014.VISDARB                                        
  14. //*ISTRINIM RETS IR DUBLIKATUS                                    
  15. //STEP02 EXEC PGM=SORT                                            
  16. //SYSPRINT DD SYSOUT=*                                            
  17. //SYSOUT DD SYSOUT=*                                              
  18. //SORTJNF1 DD DSN=VIL0014.VISDARB,DISP=SHR                        
  19. //SORTJNF2 DD DSN=VIL0014.RETS,DISP=SHR                          
  20. //SORTOUT DD DSN=VIL0014.VISDARB3,                                
  21. // DISP=(NEW,CATLG,DELETE),                                      
  22. // SPACE=(TRK,(1,1)),      
  23. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)                  
  24. //SYSIN DD *                                                  
  25.  SORT FIELDS=(20,21,CH,A)                                      
  26.  JOINKEYS FILES=F1,FIELDS=(1,10,D)                            
  27.  JOINKEYS FILES=F2,FIELDS=(1,10,D)                            
  28.  JOIN UNPAIRED,F1,ONLY                                        
  29.  REFORMAT FIELDS=(F1:1,71,F2:1,9)                              
  30.  SUM FIELDS=NONE                                              
  31. //* FAILU SPLITINIMAS I GDG BAZES                              
  32. //STEP04 EXEC PGM=SORT                                        
  33. //SYSPRINT DD SYSOUT=*                                        
  34. //SYSOUT DD SYSOUT=*                                          
  35. //SORTIN DD DSN=VIL0014.VISDARB3,DISP=SHR                      
  36. //SORTOF01 DD DSN=VIL0014.ATOI(+1),                            
  37. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                        
  38. // SPACE=(CYL,(1,1)),                                          
  39. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                          
  40. //SORTOF02 DD DSN=VIL0014.JTOR(+1),                            
  41. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                        
  42. // SPACE=(CYL,(1,1)),                                          
  43. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                          
  44. //SORTOF03 DD DSN=VIL0014.STOZ(+1),                            
  45. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,        
  46. // SPACE=(CYL,(1,1)),                                            
  47. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                              
  48. //SYSIN DD *                                                      
  49.  SORT FIELDS=COPY                                                
  50.  OUTFIL FILES=01,INCLUDE=(21,1,CH,GE,C'A',AND,21,1,CH,LE,C'I')    
  51.  OUTFIL FILES=02,INCLUDE=(21,1,CH,GE,C'J',AND,21,1,CH,LE,C'R')    
  52.  OUTFIL FILES=03,SAVE
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top