SHARE
TWEET

Untitled

a guest Oct 20th, 2017 155 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //E00012T  JOB VICTQ001,&SYSUID,TIME=(2,0),CLASS=A,MSGCLASS=X,
  2. //             MSGLEVEL=(1,1),NOTIFY=&SYSUID TYPRUN=SCAN      
  3. //MYLIB JCLLIB ORDER=(&SYSUID..JCLCRS.PROCLIB)                
  4. //* SET VARIABLES                                            
  5. //         SET NEW=&SYSUID..JCLCRS.NEWDD                      
  6. //         SET SORTIN=VICTUSR.VSAM.DATA2                      
  7. //         SET PDSDS=&SYSUID..JCLCRS.RESULTS                  
  8. //         SET PROG1=IEFBR14                                  
  9. //         SET PROG2=SORT                                    
  10. //         SET PROG3=IEBGENER                                
  11. //         SET TEMP1=&SYSUID..TEMP.TEMP1                      
  12. //         SET TEMP2=&SYSUID..TEMP.TEMP2                      
  13. //         SET TEMP3=&SYSUID..TEMP.TEMP3                      
  14. //*PROGRAM          
  15. //TEMP     EXEC CTMP                                                  
  16. //*CREATE HEADERS                                                    
  17. //HEAD1    EXEC INSTR,TEMP=TEMP1                                      
  18. //COPY.SYSUT1 DD *                                                    
  19.  *********************************************************************
  20.                     HEADER1                                          
  21.  *********************************************************************
  22. /*                                                                    
  23. //HEAD2    EXEC INSTR,TEMP=TEMP2                                      
  24. //SYSUT1 DD *                                                        
  25.  *********************************************************************
  26.                      HEADER2                                          
  27.  *********************************************************************
  28. /*                                                                    
  29. //HEAD3   EXEC INSTR,TEMP=TEMP3                                      
  30. //COPY.SYSUT1 DD *  
  31.  ********************************************************************
  32.                        HEADER2                                      
  33.  ********************************************************************
  34. /*                                                                  
  35. //EXECPROC EXEC PCASE1,PROG1=&PROG1,PROG2=&PROG2,PROG3=&PROG3,      
  36. //        NEW=&NEW,PDSDS=&PDSDS,SORTIN=&SORTIN,TEMP1=&TEMP1,        
  37. //        TEMP2=&TEMP2,TEMP3=&TEMP3                                  
  38. //SORT.SYSIN DD *                                                    
  39.      SORT FIELDS=(49,21,CH,A)                                        
  40. /*                                                                  
  41. //*SYSOUT     DD SYSOUT=*                                            
  42. //*TEST PROCEDURES                                                  
  43. //*TEST1    EXEC PROC=CREATE,PROG=&PROG1,NEW=&NEWDD,LIKE=&SORTIN,    
  44. //*              PDSDS=&PDSDS                                        
  45. //*SYSOUT     DD SYSOUT=*                                            
  46. //*TEST2    EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPYTEST',NEW=&NEWDD,
  47. //*              PDSDS=&PDSDS                                          
  48. //*SYSOUT     DD SYSOUT=*                                              
  49. **************************** Bottom of Data ****************************
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