SHARE
TWEET

Untitled

a guest Oct 19th, 2017 158 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //E00022T JOB VICTQ001,'E00022',                                      
  2. //            TIME=(0,4),NOTIFY=&SYSUID,CLASS=A,MSGCLASS=X TYPRUN=SCAN
  3. //STEP0  EXEC PGM=IEFBR14,                                            
  4. //            TIME=(0,5),REGION=250K                                  
  5. //ALLOCDD  DD DSN=&SYSUID..JCLCRS.INPUT,DISP=SHR                      
  6. //STEP1  EXEC PGM=IEFBR14,                                            
  7. //            TIME=(0,5),REGION=250K,COND=(0,NE)                      
  8. //STEP2  EXEC PGM=IEFBR14,                                            
  9. //            TIME=(0,5),REGION=250K,COND=((0,NE,STEP0),(4,GT,STEP1))  
  10. //STEP3  EXEC PGM=IEFBR14,                                            
  11. //            TIME=(0,5),REGION=250K,                                  
  12. //            COND=((0,NE,STEP0),(4,GT,STEP1),EVEN)
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