December 17, 2007, 05:01 PM
RonnFOC$HOLD error FOC350 (out of space)
I am getting the following message when creating a hold file:
0 ERROR AT OR NEAR LINE 177 IN PROCEDURE OCEACCESFOCEXEC *
(FOC350) ERROR WRITING OUTPUT FILE: FOC$HOLD
1
0 NUMBER OF RECORDS IN TABLE= 687347 LINES= 147744
0
I noticed that when I use a RECORDMILIT of 1000, this works fine.
I run the focexec through the ff simple JCL:
//IBATCH1 EXEC PROC=IRUNBATT
//TSCOM300.EDAPARM DD *
-T
//TSCOM300.EDAENV DD
// DD *
TRMIN=//DD:INPUT
TRMOUT=//DD:OUTPUT
*EDACURDIR=/U/IADMIN/IBI/SRV71/WFM/EDATEMP
//TSCOM300.INPUT DD *
EX OCEACCES
//*
//TSCOM300.OUTPUT DD SYSOUT=*
//
I have tried using bigger space allocation for FOCSORT, INT, and INT1 in both JCL and my PROC IRUNBATT, but it appears that it is not using those substitutions.
Then I tried...
DYNAM SET TEMP FOR FOC$HOLD CYLS 100,20 DSORG PS NEW REUSE
DYNAM SET TEMP FOR FOCSORT SPACE CYLS 100,20 DSORG PS NEW REUSE
DYNAM SET TEMP FOR HOLDMAST SPACE CYLS 100,20 DSORG PO DIR 36 NEW REUSE
but I keep getting a syntax error, even after using the exact example in the book.
Please help and thanks in advance!
December 17, 2007, 05:13 PM
Francis MarianiThis is what I have in a PROC:
//FOCSORT DD UNIT=PUBLIC,SPACE=(CYL,(100,10),RLSE),DCB=BLKSIZE=0
//S001WK01 DD UNIT=PUBLIC,SPACE=(CYL,(100,10),RLSE),DCB=BLKSIZE=0
//S001WK02 DD UNIT=PUBLIC,SPACE=(CYL,(100,10),RLSE),DCB=BLKSIZE=0
//S001WK03 DD UNIT=PUBLIC,SPACE=(CYL,(100,10),RLSE),DCB=BLKSIZE=0
//S001WK04 DD UNIT=PUBLIC,SPACE=(CYL,(100,10),RLSE),DCB=BLKSIZE=0
//S001WK05 DD UNIT=PUBLIC,SPACE=(CYL,(100,10),RLSE),DCB=BLKSIZE=0
//S001WK06 DD UNIT=PUBLIC,SPACE=(CYL,(100,10),RLSE),DCB=BLKSIZE=0
I've never used the "DYNAM SET TEMP" command.
December 17, 2007, 05:34 PM
Diptesh PatelInstead of using a simple "ON TABLE HOLD", use the synatx of "ON TABLE HOLD AS MYHOLD1" and allocate a DD name of MYHOLD1 in your JCL with adequate space. This way, this particular HOLD file (which seems to be large), will not compete with other HOLD files in your Focexec for space.
December 18, 2007, 09:30 AM
RonnI have now tried both and still got:
SYSOUT:
-------
SVM4453I RECOVERY TERMINATED: DATA SET PROCESSED USING NOTE/POINT LOGIC
IEC030I B37-04,IFG0554A,LSYSRPCF,TSCOM300,SYS00010,8025,PUB825,SYS07352.T091323.RA000.LSYSRPCF.R0172417
WebFocus Error:
---------------
00 ERROR AT OR NEAR LINE 160 IN PROCEDURE OCEACCESFOCEXEC *
0 (FOC350) ERROR WRITING OUTPUT FILE: FOC$HOLD
01
00 NUMBER OF RECORDS IN TABLE= 686227 LINES= 147744
The first hold file worked fine but it has 563k records which probably took all the available spaces...
00 HOLDING FOCUS FILE...
01
00 NUMBER OF RECORDS IN TABLE= 563408 LINES= 563408
Here are the codes that I added:
JCL CODE:
---------
FOCSORT DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00001 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00002 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00003 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00004 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00005 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00006 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00007 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00008 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00009 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00010 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00018 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
SYS00019 DD UNIT=SYSDA,SPACE=(CYL,(100,20),RLSE),DCB=BLKSIZE=0
...after allocating all these, the report started allocating other SYS temp datasets. That's why it eventually ran out of space.
FOCEXEC CODE:
-------------
DYNAM DELETE CUST.HVP.FOC.HFUEL
DYNAM ALLOC FI HFUEL DA CUST.HVP.FOC.HFUEL NEW REUSE -
SPACE 100,20 CYLINDERS LRECL 1 RECFM FB BLKSIZE 1024 RELEASE
-RUN
...
ON TABLE HOLD AS HFUEL FORMAT FOCUS INDEX CONTRACT
--------------------------------------------
DYNAM DELETE CUST.HVP.FOC.HACC1
DYNAM ALLOC FI HACC1 DA CUST.HVP.FOC.HACC1 NEW REUSE -
SPACE 100,20 CYLINDERS LRECL 1 RECFM FB BLKSIZE 1024 RELEASE
-RUN
...
ON TABLE HOLD AS HACC1 FORMAT FOCUS INDEX CONTRACT
Thanks for the ideas though.
Do you know anything else that can be done?