Robert, This looks like a SORT application. Are you using SyncSort and have you applied mandatory maintenance SY62470? We did, even though it fixes hardware we do not have and then started getting 0C4's on jobs restarted by CA-11 (i.e. having funny delete/define processing - don't quote me). I would be interested in the follow-up.
Dave On Thu, 23 Feb 2006 12:26:39 -0500, Robert Pelletier <[EMAIL PROTECTED]> wrote: >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
