SHARE
TWEET

čia mano pagrindinis

a guest Apr 3rd, 2015 369 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. //PROCED1 EXEC SUKL,CS=DRCS,INPUT1=UNIVIL.STAFF.ATOI.G0001V00,          
  9. // INPUT2=UNIVIL.STAFF.JTOR.G0001V00,INPUT3=UNIVIL.STAFF.STOZ.G0001V00,
  10. // INPUT4=VIL0014.NEWS,                                                
  11. // OUTPUT=VIL0014.VISDARB                                              
  12. //STEP02 EXEC PGM=SORT                                                  
  13. //SYSPRINT DD SYSOUT=*                                                  
  14. //SYSOUT DD SYSOUT=*                                                    
  15. //SORTJNF1 DD DSN=VIL0014.VISDARB,DISP=SHR                              
  16. //SORTJNF2 DD DSN=VIL0014.RETS,DISP=SHR                                
  17. //SORTOUT DD DSN=VIL0014.VISDARB2,                                      
  18. // DISP=(NEW,CATLG,DELETE),                                            
  19. // SPACE=(TRK,(1,1)),                                                  
  20. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)                          
  21. //SYSIN DD *                                                            
  22.  SORT FIELDS=(20,21,CH,A)
  23.  JOINKEYS FILES=F1,FIELDS=(1,10,D)  
  24.  JOINKEYS FILES=F2,FIELDS=(1,10,D)  
  25.  JOIN UNPAIRED,F1,ONLY              
  26.  REFORMAT FIELDS=(F1:1,71,F2:1,9)    
  27.  SUM FIELDS=NONE
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