The job just worked using &&work files. It failed all morning with &&work. Any 
ideas? Does an LE program require a lot of storage? It looks like our PUBLIC 
volumes have plenty of space. Thanks all.

Think Spring !!!
            
Bob Pelletier
Connecticut Student Loan Foundation
Rocky Hill, Connecticut
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. 

----------------------------------------------------------------------
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