HI, I'm using below code to execute:
Focexec Code is:
MATCH FILE MIDAS2
SUM CHGAMT
FIXCOST
VARCOST
PTNAME
SEX
BIRTHDATE
SSN
ZIP
ADMDATE
MRN
PTTYPE
NURSTA
TYPE
FACI
FILL2
FILL16
FILL17
BY SVCCD7
BY PTNO
WHERE CHGAMT GT .00
RUN

FILE MIDAS
SUM REVCD
BY SVCCD7
AFTER MATCH HOLD OLD
END

OFFLINE
SET WIDTH = 200
TABLE FILE HOLD
SUM FILL16
PTNO
FILL2
REVCD
FILL2
CHGAMT
FILL2
FIXCOST
FILL2
VARCOST
FILL2
PTNAME
FILL2
SEX
FILL2
BIRTHDATE
FILL2
SSN
FILL2
ZIP
FILL2
ADMDATE
FILL2
MRN
FILL2
PTTYPE
FILL2
NURSTA
FILL2
TYPE
FILL2
FACI
FILL16
FILL17
BY PTNO NOPRINT
BY REVCD NOPRINT
WHERE CHGAMT GT .00
ON TABLE SAVE AS MLFILE
END


JCL to execute my focus query:

//FOCLIB DD DSN=FOCUS.FOCLIB.LOAD,DISP=SHR
//USERLIB DD DSN=FOCUS.FOCLIB.LOAD,DISP=SHR
// DD DSN=FOCUS.FUSELIB.LOAD,DISP=SHR
//FOCSORT DD DISP=(NEW,DELETE),SPACE=(CYL,(100,50),RLSE),VOL=(,,,90),
// UNIT=SYSDA
//FOC$HOLD DD DISP=(NEW,DELETE),SPACE=(CYL,(100,50),RLSE),VOL=(,,,90),
// UNIT=SYSDA
//*
//SYSUDUMP DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=23408)
//SYSIN DD DSN=JHL.FOCUS.FOCINPUT(MIDASA),DISP=SHR
//MIDAS2 DD DSN=IMIMKT.JHL.MIDAS001.BILL2OUT,DISP=SHR
//MIDAS DD DSN=IMIMKT.JHL.MIDAS001.QCMIDA,DISP=SHR
// DD DSN=JHL.MIDAS.ROOM.CHGS,DISP=SHR
//MLFILE DD DSN=IMIMKT.JHL.MIDAS001.BILL.FILEOUT,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(100,50),RLSE),VOL=(,,,90),
// DCB=(RECFM=FBA,BLKSIZE=2000,LRECL=200)
//**********************************************************************

And I'm getting SB37 - 04 Abend. I tried maximum amount of space. The description is:

IEF403I IMIMKT01 - STARTED - TIME=11.45.14
IEC030I B37-04,IFG0554A,IMIMKT01,JBSTEP31,HOLD,01B4,WORK23,SYS08317.T115011.RA00
IEA995I SYMPTOM DUMP OUTPUT 563
SYSTEM COMPLETION CODE=B37 REASON CODE=00000004
TIME=11.50.59 SEQ=18788 CPU=0000 ASID=006B


Please avise.

This message has been edited. Last edited by: Kerry,

It looks like the space error is for the HOLD file which would be written to FOCSORT or FOC$HOLD.

Try putting a record limit in to reduce the number of rows to see if it runs. And/or increase the size of the work files.

Allocate ddname HOLD explicitly in the jobstep, with a generous amount of space.

When you don't preallocate it, Focus issues a default allocation, such as (CYLS,(5,10)), based on entries in a config file (run a search on 'IBITABLA'). Apparently the default allocation at your site is inadequate for your result set.

quote:

FILL2
FILL16
FILL17

If these are constants, cut them out of the Match File verb object list, and use Define or Compute to make them available in your final Table ... Save.