ZFIELD image detail as of Model 204 V7.5 - Revision history

ELowell at 21:51, 14 October 2013

2013-10-14T21:51:35Z

JAL: JAL moved page ZFIELD Image detail V7R5 to ZFIELD image detail as of Model 204 V7.5: need to account for the future

2013-10-14T19:20:20Z

JAL moved page ZFIELD Image detail V7R5 to ZFIELD image detail as of Model 204 V7.5: need to account for the future

← Older revision	Revision as of 19:20, 14 October 2013
(No difference)

JDamon at 17:03, 11 October 2013

2013-10-11T17:03:29Z

← Older revision		Revision as of 17:03, 11 October 2013
Line 3:		Line 3:
	*********************************************************************		*********************************************************************
	* The ZFIELD image contains the following sections: *		* The ZFIELD image contains the following sections: *
	* - NAME: fieldname (~~255bytes~~, left justified, blank filled) *		* - NAME: fieldname (255 bytes, left justified, blank filled) *
	* - FDEF1: first set of field attributes (67 bytes) *		* - FDEF1: first set of field attributes (67 bytes) *
	* - LOOPVAR: loop control item for $LSTFLD (16 bytes) *		* - LOOPVAR: loop control item for $LSTFLD (16 bytes) *

JDamon: Inserted UTF-16 and OICHUNK fields plus some minor cleanup. Made all lines LE 71 bytes for copy/paste into SOUL full-screen editor.

2013-10-11T16:54:18Z

Inserted UTF-16 and OICHUNK fields plus some minor cleanup. Made all lines LE 71 bytes for copy/paste into SOUL full-screen editor.

← Older revision		Revision as of 16:54, 11 October 2013
Line 14:		Line 14:
	* IF %ZFIELD:DEFAULT.VALUE.LENGTH GT 0 THEN *		* IF %ZFIELD:DEFAULT.VALUE.LENGTH GT 0 THEN *
	* PRINT 'Default value:' AND - *		* PRINT 'Default value:' AND - *
	* $SUBSTR(%ZFIELD.DEFAULT.VALUE,1, - *		* $SUBSTR(%ZFIELD:DEFAULT.VALUE,1, - *
	* %ZFIELD.DEFAULT.VALUE.LENGTH) *		* %ZFIELD:DEFAULT.VALUE.LENGTH) *
	* END IF *		* END IF *
	...other references to items in ZFIELD		...other references to items in ZFIELD
Line 53:		Line 53:
	*N(one),A(ll),L(it):		*N(one),A(ll),L(it):
	STORE.NULL IS STRING LEN 1		STORE.NULL IS STRING LEN 1
			******* End of blanked items for some cases ********************
	DATETIME.Y_N IS STRING LEN 1		DATETIME.Y_N IS STRING LEN 1
	UTF.8.Y_N IS STRING LEN 1		UTF.8.Y_N IS STRING LEN 1
	LENGTH.CONSTRAINT.Y_N IS STRING LEN 1		LENGTH.CONSTRAINT.Y_N IS STRING LEN 1
	~~******* End of blanked items for some cases ********************~~
	* Following two fields are meaningful only		* Following two fields are meaningful only
	* if LENGTH.CONSTRAINT.Y_N EQ 'Y':		* if LENGTH.CONSTRAINT.Y_N EQ 'Y':
Line 64:		Line 64:
	***The following 2 items contain M204 internals information: ***		***The following 2 items contain M204 internals information: ***
	DICTIONARY.CODE IS STRING LEN 2 NOSTRIP		DICTIONARY.CODE IS STRING LEN 2 NOSTRIP
	* Previous item is the table ~~Alocator~~ value		* Previous item is the table A locator value
	DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT DICTIONARY.CODE		DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT DICTIONARY.CODE
	* To display in hex: PRINT $C2X(%ZFIELD:DICTIONARY.CODE)		* To display in hex: PRINT $C2X(%ZFIELD:DICTIONARY.CODE)
Line 71:		Line 71:
	FIELDGROUP.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP		FIELDGROUP.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP
	* Previous item is the dictionary code of containing fieldgroup		* Previous item is the dictionary code of containing fieldgroup
	FIELDGROUP.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT FIELDGROUP.DICTIONARY.CODE		FIELDGROUP.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED -
	* To display in hex: PRINT $C2X(%ZFIELD:FIELDGROUP.DICTIONARY.CODE)		AT FIELDGROUP.DICTIONARY.CODE
	* To display in decimal: PRINT %ZFIELD:FIELDGROUP.DICTIONARY		* To display in hex: PRINT $C2X(%ZFIELD:FIELDGROUP.DICTIONARY.CODE)
	FUTURE.EXPANSION IS STRING LEN 19 NOSTRIP		* To display in decimal: PRINT %ZFIELD:FIELDGROUP.DICTIONARY
			UTF.16.Y_N IS STRING LEN 1
			OICHUNK.Y_N IS STRING LEN 1
			OICHUNK.TARGET.DICT.CODE IS BINARY LEN 2 UNSIGNED
			OICHUNK.SIZE IS BINARY LEN 4 UNSIGNED
			FUTURE.EXPANSION IS STRING LEN 11 NOSTRIP

	***The following 2 items contain M204 internals information: ***		***The following 2 items contain M204 internals information: ***
Line 80:		Line 85:
	* In the previous item, an OCCURS field has the locator for the		* In the previous item, an OCCURS field has the locator for the
	* fixed-length field description and a non-OCCURS field has the		* fixed-length field description and a non-OCCURS field has the
	* table ~~Alocator~~ value (high order zeroes followed by two bytes		* table A locator value (high order zeroes followed by two bytes
	* which are the same as DICTIONARY.CODE):		* which are the same as DICTIONARY.CODE):
	FIELD.CODE.BINARY IS BINARY LEN 4 UNSIGNED AT FIELD.CODE		FIELD.CODE.BINARY IS BINARY LEN 4 UNSIGNED AT FIELD.CODE
	* To display in hex: PRINT $C2X(%ZFIELD:FIELD.CODE)		* To display in hex: PRINT $C2X(%ZFIELD:FIELD.CODE)
	* To display in decimal: PRINT %ZFIELD:FIELD.CODE.BINARY		* To display in decimal: PRINT %ZFIELD:FIELD.CODE.BINARY

	ORDERED.Y_N IS STRING LEN 1		ORDERED.Y_N IS STRING LEN 1
	LENGTH IS BINARY LEN 1 UNSIGNED		LENGTH IS BINARY LEN 1 UNSIGNED
Line 113:		Line 118:
	* Previous item is: GE, GT,or blank		* Previous item is: GE, GT,or blank
	RANGE.CONSTRAINT.MINIMUM.INTEGER IS BINARY LEN 4		RANGE.CONSTRAINT.MINIMUM.INTEGER IS BINARY LEN 4
	RANGE.CONSTRAINT.MINIMUM.FLOAT IS FLOAT LEN 8 AT RANGE.CONSTRAINT.MINIMUM.INTEGER		RANGE.CONSTRAINT.MINIMUM.FLOAT IS FLOAT LEN 8 -
	RANGE.CONSTRAINT.MINIMUM.DATETIME IS STRING LEN 20 ~~ATRANGE~~.CONSTRAINT.MINIMUM.INTEGER		AT RANGE.CONSTRAINT.MINIMUM.INTEGER
			RANGE.CONSTRAINT.MINIMUM.DATETIME IS STRING LEN 20 -
			AT RANGE.CONSTRAINT.MINIMUM.INTEGER
	RANGE.CONSTRAINT.MAXIMUM.FLAG IS STRING LEN 2 NOSTRIP		RANGE.CONSTRAINT.MAXIMUM.FLAG IS STRING LEN 2 NOSTRIP
	RANGE.CONSTRAINT.MAXIMUM.INTEGER IS BINARY LEN 4		RANGE.CONSTRAINT.MAXIMUM.INTEGER IS BINARY LEN 4
	RANGE.CONSTRAINT.MAXIMUM.FLOAT IS FLOAT LEN 8 AT RANGE.CONSTRAINT.MAXIMUM.INTEGER		RANGE.CONSTRAINT.MAXIMUM.FLOAT IS FLOAT LEN 8 -
	RANGE.CONSTRAINT.MAXIMUM.DATETIME IS STRING LEN 20 ~~ATRANGE~~.CONSTRAINT.MAXIMUM.INTEGER		AT RANGE.CONSTRAINT.MAXIMUM.INTEGER
			RANGE.CONSTRAINT.MAXIMUM.DATETIME IS STRING LEN 20 -
			AT RANGE.CONSTRAINT.MAXIMUM.INTEGER
	LIKE.LENGTH IS BINARY LEN 1 UNSIGNED		LIKE.LENGTH IS BINARY LEN 1 UNSIGNED
	LIKE IS STRING LEN 47 NOSTRIP		LIKE IS STRING LEN 47 NOSTRIP
Line 131:		Line 140:
	* 'UPDTU' - An update UTC date/time field		* 'UPDTU' - An update UTC date/time field
	* 'CAT' - A concatenated field		* 'CAT' - A concatenated field
			* 'OICHNK'- An OI chunk field
	* Otherwise, AUTOMATIC.TYPE is all blanks		* Otherwise, AUTOMATIC.TYPE is all blanks
	AUTOMATIC.VALUE IS STRING LEN 21		AUTOMATIC.VALUE IS STRING LEN 21
Line 138:		Line 148:
	*********************************************************************		*********************************************************************
	*** The following 2 items contain M204 internals information: ***		*** The following 2 items contain M204 internals information: ***
	COUNTED.FIELD.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP AT AUTOMATIC.VALUE		COUNTED.FIELD.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP -
			AT AUTOMATIC.VALUE
	* Previous item is dictionary code of field which is counted for CTO		* Previous item is dictionary code of field which is counted for CTO
	COUNTED.FIELD.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT COUNTED.FIELD.DICTIONARY.CODE		COUNTED.FIELD.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED -
	* To display in hex: PRINT $C2X(%ZFIELD:COUNTED.FIELD.DICTIONARY.CODE)		AT COUNTED.FIELD.DICTIONARY.CODE
	* To display in decimal: PRINT %ZFIELD:COUNTED.FIELD.DICTIONARY.CODE.BINARY		* To display in hex:
			* PRINT $C2X(%ZFIELD:COUNTED.FIELD.DICTIONARY.CODE)
			* To display in decimal:
			* PRINT %ZFIELD:COUNTED.FIELD.DICTIONARY.CODE.BINARY

	* Rest of automatic field info is for CONCAT fields:		* Rest of automatic field info is for CONCAT fields:
	ESCAPE.CANCEL.Y_N IS STRING LEN 1 AT AUTOMATIC.VALUE		ESCAPE.CANCEL.Y_N IS STRING LEN 1 -
	SEPARATOR.NONE.Y_N IS STRING LEN 1		AT AUTOMATIC.VALUE
	SEPARATOR IS STRING LEN 1 NOSTRIP		SEPARATOR.NONE.Y_N IS STRING LEN 1
	ESCAPE IS STRING LEN 1 NOSTRIP		SEPARATOR IS STRING LEN 1 NOSTRIP
	NUMBER.OF.CONCATENATED.FIELDS IS BINARY LEN 1 UNSIGNED		ESCAPE IS STRING LEN 1 NOSTRIP
			NUMBER.OF.CONCATENATED.FIELDS IS BINARY LEN 1 UNSIGNED
	***The following 2 items contain M204 internals information: ***		***The following 2 items contain M204 internals information: ***
	CONCATENATED.FIELD.DICTIONARY.CODES IS STRING LEN 2 NOSTRIP OCCURS 8		CONCATENATED.FIELD.DICTIONARY.CODES IS STRING LEN 2 NOSTRIP -
	CONCATENATED.FIELD.DICTIONARY.CODES.BINARY IS BINARY LEN 2 UNSIGNED OCCURS 8 AFTER NUMBER.OF.CONCATENATED.FIELDS		OCCURS 8
	* To display in hex: PRINT $C2X(%ZFIELD:CONCATENATED.FIELD.DICTIONARY.CODES(%I))		CONCATENATED.FIELD.DICTIONARY.CODES.BINARY IS BINARY LEN 2 -
	* To display in decimal: PRINT %ZFIELD:CONCATENATED.FIELD.DICTIONARY.CODES.BINARY(%I)		UNSIGNED OCCURS 8 AFTER NUMBER.OF.CONCATENATED.FIELDS
			* To display in hex:
			* PRINT $C2X(%ZFIELD:CONCATENATED.FIELD.DICTIONARY.CODES(%I))
			* To display in decimal:
			* PRINT %ZFIELD:CONCATENATED.FIELD.DICTIONARY.CODES.BINARY(%I)
	*********************************************************************		*********************************************************************
	* End of automatic field info *		* End of automatic field info *

Dme: Dme moved page ZFIELD image detail V7R5 to ZFIELD Image detail V7R5

2013-05-29T15:53:54Z

Dme moved page ZFIELD image detail V7R5 to ZFIELD Image detail V7R5

← Older revision	Revision as of 15:53, 29 May 2013
(No difference)

Dme: Dme moved page ZFIELD Image detail V7R5 to ZFIELD image detail V7R5

2013-05-29T12:59:56Z

Dme moved page ZFIELD Image detail V7R5 to ZFIELD image detail V7R5

← Older revision	Revision as of 12:59, 29 May 2013
(No difference)

Rob at 04:07, 25 April 2013

2013-04-25T04:07:00Z

← Older revision		Revision as of 04:07, 25 April 2013
Line 169:		Line 169:


	~~[[Category:File architecture and management]]~~
	[[Category:File architecture]]		[[Category:File architecture]]

DmeWiccan: Automatically generated page update

2013-04-19T13:04:36Z

Automatically generated page update

← Older revision		Revision as of 13:04, 19 April 2013
Line 169:		Line 169:


	[[Category:File architecture and ~~Management~~]]		[[Category:File architecture and management]]
	[[Category:File architecture]]		[[Category:File architecture]]

DmeWiccan: Automatically generated page update

2013-04-19T07:41:41Z

Automatically generated page update

← Older revision		Revision as of 07:41, 19 April 2013
Line 169:		Line 169:


	[[Category:File ~~Architecture~~ and Management]]		[[Category:File architecture and Management]]
	[[Category:File ~~Architecture~~]]		[[Category:File architecture]]

Rob: Created page with "

 IMAGE ZFIELD ********************************************************************* * The ZFIELD image contains the following sections:                 * * -..."

2013-04-13T00:57:28Z

Created page with "<pre class="code"> IMAGE ZFIELD ********************************************************************* * The ZFIELD image contains the following sections: * * -..."

New page

<pre class="code">
IMAGE ZFIELD
*********************************************************************
* The ZFIELD image contains the following sections: *
* - NAME: fieldname (255bytes, left justified, blank filled) *
* - FDEF1: first set of field attributes (67 bytes) *
* - LOOPVAR: loop control item for $LSTFLD (16 bytes) *
* - FDEF2: second set of field attributes (152 bytes) *
* *
* FDEF is an item which overlays FDEF1, LOOPVAR, and FDEF2, so that *
* you can do some thing such as the following: *
* *
* %ZFIELD:FDEF = $LSTFLD(fileName,fieldName) *
* IF %ZFIELD:DEFAULT.VALUE.LENGTH GT 0 THEN *
* PRINT 'Default value:' AND - *
* $SUBSTR(%ZFIELD.DEFAULT.VALUE,1, - *
* %ZFIELD.DEFAULT.VALUE.LENGTH) *
* END IF *
*...other references to items in ZFIELD *
*********************************************************************

NAME IS STRING LEN 255
DEFER.Y_N IS STRING LEN 1
FRV.Y_N IS STRING LEN 1
KEY.Y_N IS STRING LEN 1
MANY.VALUED.Y_N IS STRING LEN 1
CODED.Y_N IS STRING LEN 1
STRING.Y_N IS STRING LEN 1
NUMERIC.RANGE.Y_N IS STRING LEN 1
INVISIBLE.Y_N IS STRING LEN 1
SECURED.Y_N IS STRING LEN 1
UPDATE.IN.PLACE.Y_N IS STRING LEN 1
OCCURS.Y_N IS STRING LEN 1
FLOAT.Y_N IS STRING LEN 1
ORD.NUM.Y_N IS STRING LEN 1
ORD.CHAR.Y_N IS STRING LEN 1
PURE.DBCS.Y_N IS STRING LEN 1
MIXED.DBCS.Y_N IS STRING LEN 1
UNIQUE.Y_N IS STRING LEN 1
AT.MOST.ONE.Y_N IS STRING LEN 1
OCCURS.ONCE.Y_N IS STRING LEN 1 AT AT.MOST.ONE.Y_N
* It is recommended that you do not use OCCURS.ONCE.Y_N,but use
* AT.MOST.ONE.Y_N instead, to avoid confusion with EXACTLY.ONE.Y_N
CLOB.Y_N IS STRING LEN 1
BLOB.Y_N IS STRING LEN 1
FIELDGROUP.Y_N IS STRING LEN 1
IN.FIELDGROUP.Y_N IS STRING LEN 1
EXACTLY.ONE.Y_N IS STRING LEN 1
********* Following items are blank if FILEORG X'100' is off ******
********* or for a fieldgroup: ******
*N(one),A(ll),L(it):
STORE.DEFAULT IS STRING LEN 1
*N(one),A(ll),L(it):
STORE.NULL IS STRING LEN 1
DATETIME.Y_N IS STRING LEN 1
UTF.8.Y_N IS STRING LEN 1
LENGTH.CONSTRAINT.Y_N IS STRING LEN 1
********* End of blanked items for some cases **********************
* Following two fields are meaningful only
* if LENGTH.CONSTRAINT.Y_N EQ 'Y':
LENGTH.GE IS BINARY LEN 1 UNSIGNED
LENGTH.LE IS BINARY LEN 1 UNSIGNED
MINLOBE IS BINARY LEN 1 UNSIGNED
*****The following 2 items contain M204 internals information: *****
DICTIONARY.CODE IS STRING LEN 2 NOSTRIP
* Previous item is the table Alocator value
DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT DICTIONARY.CODE
* To display in hex: PRINT $C2X(%ZFIELD:DICTIONARY.CODE)
* To display in decimal: PRINT %ZFIELD:DICTIONARY.CODE.BINARY
***** The following 2 items contain M204 internals information: *****
FIELDGROUP.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP
* Previous item is the dictionary code of containing fieldgroup
FIELDGROUP.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT FIELDGROUP.DICTIONARY.CODE
* To display in hex: PRINT $C2X(%ZFIELD:FIELDGROUP.DICTIONARY.CODE)
* To display in decimal: PRINT %ZFIELD:FIELDGROUP.DICTIONARY
FUTURE.EXPANSION IS STRING LEN 19 NOSTRIP

*****The following 2 items contain M204 internals information: *****
FIELD.CODE IS STRING LEN 4 NOSTRIP
* In the previous item, an OCCURS field has the locator for the
* fixed-length field description and a non-OCCURS field has the
* table Alocator value (high order zeroes followed by two bytes
* which are the same as DICTIONARY.CODE):
FIELD.CODE.BINARY IS BINARY LEN 4 UNSIGNED AT FIELD.CODE
* To display in hex: PRINT $C2X(%ZFIELD:FIELD.CODE)
* To display in decimal: PRINT %ZFIELD:FIELD.CODE.BINARY

ORDERED.Y_N IS STRING LEN 1
LENGTH IS BINARY LEN 1 UNSIGNED
LEVEL IS BINARY LEN 1 UNSIGNED
LRESERVE IS BINARY LEN 1 UNSIGNED
NRESERVE IS BINARY LEN 1 UNSIGNED
SPLITPCT IS BINARY LEN 1 UNSIGNED
NO.OF.IMMEDIATES IS BINARY LEN 1 UNSIGNED
OCCURS IS BINARY LEN 1 UNSIGNED
PAD.CHAR IS STRING LEN 1
*********************************************************************
* End of FDEF1 section *
*********************************************************************
FDEF1 IS STRING LEN 67 AT DEFER.Y_N NOSTRIP
BIN1 IS BINARY LEN 4 UNSIGNED
BIN2 IS BINARY LEN 4 UNSIGNED
BIN3 IS BINARY LEN 4 UNSIGNED
BIN4 IS BINARY LEN 4 UNSIGNED
LOOPVAR IS STRING LEN 16 AT BIN1 NOSTRIP
*********************************************************************
* Start of FDEF2 section*********************************************
DEFAULT.VALUE.LENGTH IS BINARY LEN 1 UNSIGNED
DEFAULT.VALUE IS STRING LEN 31 NOSTRIP PAD X'00'
RANGE.CONSTRAINT.TYPE IS STRING LEN 1
* Previous item is: I(nteger), F(loat), D(atetime), or blank
RANGE.CONSTRAINT.MINIMUM.FLAG IS STRING LEN 2 NOSTRIP
* Previous item is: GE, GT,or blank
RANGE.CONSTRAINT.MINIMUM.INTEGER IS BINARY LEN 4
RANGE.CONSTRAINT.MINIMUM.FLOAT IS FLOAT LEN 8 AT RANGE.CONSTRAINT.MINIMUM.INTEGER
RANGE.CONSTRAINT.MINIMUM.DATETIME IS STRING LEN 20 ATRANGE.CONSTRAINT.MINIMUM.INTEGER
RANGE.CONSTRAINT.MAXIMUM.FLAG IS STRING LEN 2 NOSTRIP
RANGE.CONSTRAINT.MAXIMUM.INTEGER IS BINARY LEN 4
RANGE.CONSTRAINT.MAXIMUM.FLOAT IS FLOAT LEN 8 AT RANGE.CONSTRAINT.MAXIMUM.INTEGER
RANGE.CONSTRAINT.MAXIMUM.DATETIME IS STRING LEN 20 ATRANGE.CONSTRAINT.MAXIMUM.INTEGER
LIKE.LENGTH IS BINARY LEN 1 UNSIGNED
LIKE IS STRING LEN 47 NOSTRIP
AUTOMATIC.TYPE IS STRING LEN 6
* AUTOMATIC.TYPE values (left justified, blank padded):
* 'CTO' - A count occurrences field
* 'CRDT' - A creation date/time field
* 'CRUS' - A creation user field
* 'UPDT' - An update date/time field
* 'UPUS' - An update user field
* 'CRDTU' - A creation UTC date/time field
* 'UPDTU' - An update UTC date/time field
* 'CAT' - A concatenated field
* Otherwise, AUTOMATIC.TYPE is all blanks
AUTOMATIC.VALUE IS STRING LEN 21
*********************************************************************
* The image area starting with item AUTOMATIC.VALUE is redefined *
* below as needed, based on the value of AUTOMATIC.TYPE: *
*********************************************************************
***** The following 2 items contain M204 internals information: *****
COUNTED.FIELD.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP AT AUTOMATIC.VALUE
* Previous item is dictionary code of field which is counted for CTO
COUNTED.FIELD.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT COUNTED.FIELD.DICTIONARY.CODE
* To display in hex: PRINT $C2X(%ZFIELD:COUNTED.FIELD.DICTIONARY.CODE)
* To display in decimal: PRINT %ZFIELD:COUNTED.FIELD.DICTIONARY.CODE.BINARY

* Rest of automatic field info is for CONCAT fields:
ESCAPE.CANCEL.Y_N IS STRING LEN 1 AT AUTOMATIC.VALUE
SEPARATOR.NONE.Y_N IS STRING LEN 1
SEPARATOR IS STRING LEN 1 NOSTRIP
ESCAPE IS STRING LEN 1 NOSTRIP
NUMBER.OF.CONCATENATED.FIELDS IS BINARY LEN 1 UNSIGNED
*****The following 2 items contain M204 internals information: *****
CONCATENATED.FIELD.DICTIONARY.CODES IS STRING LEN 2 NOSTRIP OCCURS 8
CONCATENATED.FIELD.DICTIONARY.CODES.BINARY IS BINARY LEN 2 UNSIGNED OCCURS 8 AFTER NUMBER.OF.CONCATENATED.FIELDS
* To display in hex: PRINT $C2X(%ZFIELD:CONCATENATED.FIELD.DICTIONARY.CODES(%I))
* To display in decimal: PRINT %ZFIELD:CONCATENATED.FIELD.DICTIONARY.CODES.BINARY(%I)
*********************************************************************
* End of automatic field info *
*********************************************************************
*********************************************************************
* End of FDEF2 section *
*********************************************************************
FDEF2 IS STRING LEN 152 AT DEFAULT.VALUE.LENGTH
FDEF IS STRING LEN 235 AT FDEF1
END IMAGE
</pre>

[[Category:File Architecture and Management]]
[[Category:File Architecture]]

← Older revision		Revision as of 21:51, 14 October 2013
Line 8:		Line 8:
	* - FDEF2: second set of field attributes (152 bytes) *		* - FDEF2: second set of field attributes (152 bytes) *
	* *		* *
	* FDEF is an item ~~which~~ overlays FDEF1, LOOPVAR, and FDEF2, so that *		* FDEF is an item that overlays FDEF1, LOOPVAR, and FDEF2, so that *
	* you can do ~~some thing~~ such as the following: *		* you can do something such as the following: *
	* *		* *
	* %ZFIELD:FDEF = $LSTFLD(fileName,fieldName) *		* %ZFIELD:FDEF = $LSTFLD(fileName,fieldName) *
Line 40:		Line 40:
	AT.MOST.ONE.Y_N IS STRING LEN 1		AT.MOST.ONE.Y_N IS STRING LEN 1
	OCCURS.ONCE.Y_N IS STRING LEN 1 AT AT.MOST.ONE.Y_N		OCCURS.ONCE.Y_N IS STRING LEN 1 AT AT.MOST.ONE.Y_N
	* It is recommended that you do not use OCCURS.ONCE.Y_N,but use		* It is recommended that you do not use OCCURS.ONCE.Y_N, but use
	* AT.MOST.ONE.Y_N instead, to avoid confusion with EXACTLY.ONE.Y_N		* AT.MOST.ONE.Y_N instead, to avoid confusion with EXACTLY.ONE.Y_N
	CLOB.Y_N IS STRING LEN 1		CLOB.Y_N IS STRING LEN 1
Line 47:		Line 47:
	IN.FIELDGROUP.Y_N IS STRING LEN 1		IN.FIELDGROUP.Y_N IS STRING LEN 1
	EXACTLY.ONE.Y_N IS STRING LEN 1		EXACTLY.ONE.Y_N IS STRING LEN 1
	******* ~~Following~~ items are blank ~~if FILEORG X'100' is off~~ ****		******* The following items are blank for field groups or ****
	******* ~~or for a fieldgroup~~: ****		******* if FILEORG X'100' is off: ****
	*N(one),A(ll),L(it):		*N(one),A(ll),L(it):
	STORE.DEFAULT IS STRING LEN 1		STORE.DEFAULT IS STRING LEN 1
Line 57:		Line 57:
	UTF.8.Y_N IS STRING LEN 1		UTF.8.Y_N IS STRING LEN 1
	LENGTH.CONSTRAINT.Y_N IS STRING LEN 1		LENGTH.CONSTRAINT.Y_N IS STRING LEN 1
	* ~~Following two fields~~ are meaningful only		* LENGTH.GE and LENGTH.LE are meaningful only if LENGTH.CONSTRAINT.Y_N EQ 'Y':
	* if LENGTH.CONSTRAINT.Y_N EQ 'Y':
	LENGTH.GE IS BINARY LEN 1 UNSIGNED		LENGTH.GE IS BINARY LEN 1 UNSIGNED
	LENGTH.LE IS BINARY LEN 1 UNSIGNED		LENGTH.LE IS BINARY LEN 1 UNSIGNED
	MINLOBE IS BINARY LEN 1 UNSIGNED		MINLOBE IS BINARY LEN 1 UNSIGNED
	***The following 2 items contain M204 internals information: ***		***The following two items contain M204 internals information: ***
	DICTIONARY.CODE IS STRING LEN 2 NOSTRIP		DICTIONARY.CODE IS STRING LEN 2 NOSTRIP
	* ~~Previous item~~ is the table A locator value		* DICTIONARY.CODE is the table A locator value
	DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT DICTIONARY.CODE		DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED AT DICTIONARY.CODE
	* To display in hex: PRINT $C2X(%ZFIELD:DICTIONARY.CODE)		* To display in hex: PRINT $C2X(%ZFIELD:DICTIONARY.CODE)
	* To display in decimal: PRINT %ZFIELD:DICTIONARY.CODE.BINARY		* To display in decimal: PRINT %ZFIELD:DICTIONARY.CODE.BINARY
	*** The following 2 items contain M204 internals information: ***		*** The following two items contain M204 internals information: ***
	FIELDGROUP.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP		FIELDGROUP.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP
	* ~~Previous item~~ is the dictionary code of containing ~~fieldgroup~~		* FIELDGROUP.DICTIONARY.CODE is the dictionary code of the containing field group
	FIELDGROUP.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED -		FIELDGROUP.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED -
	AT FIELDGROUP.DICTIONARY.CODE		AT FIELDGROUP.DICTIONARY.CODE
Line 83:		Line 82:
	***The following 2 items contain M204 internals information: ***		***The following 2 items contain M204 internals information: ***
	FIELD.CODE IS STRING LEN 4 NOSTRIP		FIELD.CODE IS STRING LEN 4 NOSTRIP
	* In ~~the previous item~~, an OCCURS field has the locator for the		* In FIELD.CODE, an OCCURS field has the locator for the
	* fixed-length field description and a non-OCCURS field has the		* fixed-length field description and a non-OCCURS field has the
	* table A locator value (high order zeroes followed by two bytes		* table A locator value (high order zeroes followed by two bytes
	* ~~which~~ are the same as DICTIONARY.CODE):		* that are the same as DICTIONARY.CODE):
	FIELD.CODE.BINARY IS BINARY LEN 4 UNSIGNED AT FIELD.CODE		FIELD.CODE.BINARY IS BINARY LEN 4 UNSIGNED AT FIELD.CODE
	* To display in hex: PRINT $C2X(%ZFIELD:FIELD.CODE)		* To display in hex: PRINT $C2X(%ZFIELD:FIELD.CODE)
Line 114:		Line 113:
	DEFAULT.VALUE IS STRING LEN 31 NOSTRIP PAD X'00'		DEFAULT.VALUE IS STRING LEN 31 NOSTRIP PAD X'00'
	RANGE.CONSTRAINT.TYPE IS STRING LEN 1		RANGE.CONSTRAINT.TYPE IS STRING LEN 1
	* ~~Previous item~~ is: I(nteger), F(loat), D(atetime), or blank		* RANGE.CONSTRAINT.TYPE is: I(nteger), F(loat), D(atetime), or blank
	RANGE.CONSTRAINT.MINIMUM.FLAG IS STRING LEN 2 NOSTRIP		RANGE.CONSTRAINT.MINIMUM.FLAG IS STRING LEN 2 NOSTRIP
	* ~~Previous~~ item is: GE, GT,or blank		* RANGE.CONSTRAINT.MINIMUM.FLAG item is: GE, GT, or blank
	RANGE.CONSTRAINT.MINIMUM.INTEGER IS BINARY LEN 4		RANGE.CONSTRAINT.MINIMUM.INTEGER IS BINARY LEN 4
	RANGE.CONSTRAINT.MINIMUM.FLOAT IS FLOAT LEN 8 -		RANGE.CONSTRAINT.MINIMUM.FLOAT IS FLOAT LEN 8 -
Line 147:		Line 146:
	* below as needed, based on the value of AUTOMATIC.TYPE: *		* below as needed, based on the value of AUTOMATIC.TYPE: *
	*********************************************************************		*********************************************************************
	*** The following 2 items contain M204 internals information: ***		*** The following two items contain M204 internals information: ***
	COUNTED.FIELD.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP -		COUNTED.FIELD.DICTIONARY.CODE IS STRING LEN 2 NOSTRIP -
	AT AUTOMATIC.VALUE		AT AUTOMATIC.VALUE
	* ~~Previous item~~ is dictionary code of field ~~which~~ is counted for CTO		* COUNTED.FIELD.DICTIONARY.CODE is dictionary code of field that is counted for CTO
	COUNTED.FIELD.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED -		COUNTED.FIELD.DICTIONARY.CODE.BINARY IS BINARY LEN 2 UNSIGNED -
	AT COUNTED.FIELD.DICTIONARY.CODE		AT COUNTED.FIELD.DICTIONARY.CODE
Line 165:		Line 164:
	ESCAPE IS STRING LEN 1 NOSTRIP		ESCAPE IS STRING LEN 1 NOSTRIP
	NUMBER.OF.CONCATENATED.FIELDS IS BINARY LEN 1 UNSIGNED		NUMBER.OF.CONCATENATED.FIELDS IS BINARY LEN 1 UNSIGNED
	***The following 2 items contain M204 internals information: ***		***The following two items contain M204 internals information: ***
	CONCATENATED.FIELD.DICTIONARY.CODES IS STRING LEN 2 NOSTRIP -		CONCATENATED.FIELD.DICTIONARY.CODES IS STRING LEN 2 NOSTRIP -
	OCCURS 8		OCCURS 8