By any chance do you create &&WORKxx in prior steps in the same job?




Robert Pelletier <[EMAIL PROTECTED]> 
Sent by: IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU>
02/23/2006 12:26 PM
Please respond to
IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU>


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
PROTECTION EXCEPTION 0C4 - Job Doesn't Work When &&Dataset Used






Hi All. Once again I look to the group for help. I am at a total loss and 
have test extensively. This is the issue:

If I use the following && JCL the job fails consistently with an 0C4:
 //WORK01   DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(4300,5)), 
 //            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=&&WORK01
 //WORK02   DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(4300,5)), 
 //            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=&&WORK02
 //WORK03   DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(900,5)), 
 //            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=&&WORK03
 //WORK04   DD DISP=NEW,UNIT=SYSDA,SPACE=(CYL,(900,5)), 
 //            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=&&WORK04
I have 4 PUBLIC volumes.

If I use this JCL which uses permanent datasets the job works everytime:
//WORK01   DD DISP=(NEW,CATLG),UNIT=SYSDA,SPACE=(CYL,(5,5)), 
//            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=TRAM1.WORK1, 
//            VOL=SER=BACK09 
//WORK02   DD DISP=(NEW,CATLG),UNIT=SYSDA,SPACE=(CYL,(5,5)), 
//            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=TRAM1.WORK2, 
//            VOL=SER=BACK09 
//WORK03   DD DISP=(NEW,CATLG),UNIT=SYSDA,SPACE=(CYL,(5,5)), 
//            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=TRAM1.WORK3, 
//            VOL=SER=BACK09 
//WORK04   DD DISP=(NEW,CATLG),UNIT=SYSDA,SPACE=(CYL,(5,5)), 
//            LRECL=8192,BLKSIZE=0,RECFM=VB,DSN=TRAM1.WORK4, 
//            VOL=SER=BACK09 

Can anyone offer suggestions as to why &&work is not working. We are OS390 
V2R10 and the program is written LE. I do not have the source because it 
was given to us by the agency we feed the data too. In advance thanks all. 


Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Connecticut

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to