FOC000 -- Error Text Missing - 4370
Case: 40352018 Product: FOCUS for S/390 Release: 732 Primary OS: z/OS Date: 08/02/04
Case information refers to the Product, Release, and OS for which this question was asked. The solution may apply to other Products, Releases, and Operating Systems.
Symptom:
A FOC000 error, with a return code of 4370, occurs when using a Master
File Description, upgrading from 7.0.8r to 7.3.2
Problem:
While the 4370 error code is most often associated with Group fields that
have both Alpha and Numeric subordinate fields, the error can occur purely
with Alpha fields under the GROUP declaration:
The following Master will produce the error:
FILENAME=FIXTES3,SUFFIX=FIX,$
SEGNAME=ONE,SEGTYPE=S0,$
GROUP=FSPC_MBR_NMBR8 ,ALIAS=,USAGE=A10 ,ACTUAL=A10 ,$ - 10
FIELD=FILLER01 ,ALIAS=,USAGE=A01 ,ACTUAL=A01 ,$ - 1
FIELD=FSPC_MBR_NMBR ,ALIAS=,USAGE=A07 ,ACTUAL=A07 ,$ - 7
FIELD=FSPC_CLIENT_REF ,ALIAS=,USAGE=A01 ,ACTUAL=A01 ,$ - 1
----
added together 9
Comment out the Group field entry.
Do a CHECK FILE filename
This gives the length of all field
Adjust either the length of the Group level of the subordinate fields.
Solution:
In this case the field length was adjusted:
SEGNAME=ONE,SEGTYPE=S0,$
GROUP=FSPC_MBR_NMBR8 ,ALIAS=,USAGE=A10 ,ACTUAL=A10 ,$ - 10
FIELD=FILLER01 ,ALIAS=,USAGE=A01 ,ACTUAL=A01 ,$ - 1
FIELD=FSPC_MBR_NMBR ,ALIAS=,USAGE=A07 ,ACTUAL=A07 ,$ - 7
FIELD=FSPC_CLIENT_REF ,ALIAS=,USAGE=A02 ,ACTUAL=A02 ,$ - 2 <----
----
added together 10
Product: FOCUS for S/390, FOCUS/S390, FOCUS/S390
Symptom: None Assigned
Functional Area: None Assigned
Operating System: z/OS, ZOS, MVS
Keywords: 40352018, 4370, FOC000
Docid: 40352018
Ginny
---------------------------------
Prod: WF 7.7.01 Dev: WF 7.6.9-11
Admin, MRE,self-service; adapters: Teradata, DB2, Oracle, SQL Server, Essbase, ESRI, FlexEnable, Google