I very occasionally get an error when loading an XFOCUS database via a batch job. It is a large multi-volume database. What puzzles me is that when I rerun the job (same input and output) it works.

This is the error:

IEC024I 337-04,IFG0552X,FMARIAN1,FOCUS,DTNIBR,50BD,PUB700,PROJ1.INS.DTNIBR.XFOC
...
SYSTEM COMPLETION CODE=337  REASON CODE=00000004

I checked IBI Tech Support and there isn't much on this error. One case discusses an XFOCUS database with a FOCUS database cross reference file, which is not my scenario.

I've dug around on the web and found this:

Abend Code=337,  Reason Code=04:  end-of-data set was reached and no eodad (end
     of data set routine) was specified in the DCB.
     problem:  program read to the end of data set and tried to read past it.
     causes:   1)  program incorrectly tried to  re-read data set without back-
               spacing or rewinding.
               2)  an end-of-data set routine should have been included but was
               not, or eodad not specified in DCB.
     solution: 1)  determine why  program tried to read more data  after it had
               read the data set;   if you need to re-read the data,  rewind or
               backspace the data set.
               2) include eodad routine to take care of the condition,  or code
               the appropriate DCB subparameter.

I have a simple, one segment XFOCUS database and I use simple CREATE FILE/MODIFY FILE code.

This message has been edited. Last edited by: Francis Mariani,

Are you effectivley clearing and reloading the XFOCUS file ?

Is the XFOC file a new one ?

Is it allocated for exclusive use ?

This sort of thing does ring some long distant bells.

Missing END card?

Master:

FILE=DTNIEBR, SUFFIX=XFOCUS, $
SEGNAME=BRANCH, SEGTYPE=S4, $
  FIELD=BRANCH  , ALIAS=BRANCH  , FORMAT=A4     , $
  FIELD=CATEGORY, ALIAS=CATEGORY, FORMAT=A12    , $
  FIELD=YRMTH   , ALIAS=YRMTH   , FORMAT=A7     , $
  FIELD=FILENAME, ALIAS=FILENAME, FORMAT=A8     , $
  FIELD=PRDTYPE , ALIAS=PRDTYPE , FORMAT=A1     , $
  FIELD=BALNIE  , ALIAS=BALNIE  , FORMAT=P17.2BC, $

Load program:

SET MSG        = ON
SET CENT-ZERO  = ON
SET COUNTWIDTH = ON

SET HOLDLIST   = PRINTONLY
SET HOLDFORMAT = ALPHA
SET ASNAMES    = ON

SET PAGE       = NOLEAD
SET LINES      = 999999
SET PAPER      = 999999
SET WIDTH      = 132
SET PANEL      = 9999

SET SORTLIB    = MVSMSGDF
SET AUTOINDEX  = ON
SET XFOCUS     = ON
-RUN

CREATE FILE DTNIEBR
-RUN

MODIFY FILE DTNIEBR
CHECK 100000

FIXFORM FROM DTHNIE10

MATCH BRANCH YRMTH CATEGORY FILENAME
  ON MATCH   REJECT
  ON NOMATCH INCLUDE

DATA ON DTHNIE10
END
-RUN

A colleague suggested I delete the file before loading it so I will add a step in the JCL.

I was wondering what happens to multi-volume files when they get archived. Is it possible that only part of the file gets archived - the part on the second volume?

quote:

I was wondering what happens to multi-volume files when they get archived

Would that be a question for another forum ?

I would certainly ask IBI as well, to see what they say what happens if part of the multi-volumn file is archived.