GOFF

Short description: New IBM Mainframe computer object module file format

The GOFF (Generalized Object File Format) specification was developed for IBM's MVS operating system to supersede the IBM OS/360 Object File Format to compensate for weaknesses in the older format.

Background

The original IBM OS/360 Object File Format was developed in 1964 for the new IBM System/360 mainframe computer. The format was also used by makers of plug compatible and workalike mainframes, including the Univac 90/60, 90/70 and 90/80 and Fujitsu B2800. The format was expanded to add symbolic records and expanded information about modules, plus support for procedures and functions with names longer than 8 characters. While this helped, it did not provide for the enhanced information necessary for today's more complicated programming languages and more advanced features such as objects, properties and methods, Unicode support, and virtual methods.

The GOFF object file format was developed by IBM approximately in 1995 as a means to overcome these problems. The earliest mention of this format was in the introductory information about the new High Level Assembler. Note that the OS/360 Object File Format was simply superseded by the GOFF format, it was not deprecated, and is still in use by assemblers and language compilers where the language can withstand the limitations of the older format.

Conventions

This article will use the term "module" to refer to any name or equivalent symbol, which is used to provide an identifier for a piece of code or data external to the scope to which it is referenced. A module may refer to a subroutine, a function, Fortran Common or Block Data, an object or class, a method or property of an object or class, or any other named routine or identifier external to that particular scope referencing the external name.

The terms "assembler" for a program that converts assembly language to machine code, as well as to "assemble" as the process of using one, and to "compile," as the process of using a "compiler," which does the same thing for high-level languages, should, for the purposes of this article. be considered interchangeable; thus where "compile" and "compiler" are used, substitute "assemble" and "assembler" as needed.

Numbers used in this article are expressed as follows: unless specified as hexadecimal (base 16), all numbers used are in decimal (base 10). When necessary to express a number in hexadecimal, the standard mainframe assembler format of using the capital letter X preceding the number, expressing any hexadecimal letters in the number in upper case, and enclosing the number in single quotes, e.g. the number 15deadbeef₁₆ would be expressed as X'15DEADBEEF'.

A "byte" as used in this article, is 8-bits, and unless otherwise specified, a "byte" and a "character" are the same thing; characters in EBCDIC are also 8-bit. When multi-byte character sets (such as Unicode) are used in user programs, they will use two (or more) bytes.

Requirements and restrictions

The format is similar to the OS/360 Object File Format but adds additional information for use in building applications.

• GOFF files are either fixed- or variable-length records.
• A GOFF record must completely fit within a single record of the underlying file system. A GOFF file is not a stream-type file.
• Fixed-length records must be 80 bytes. The minimum size of a variable-length record is 56 bytes. In the case of fixed-length records, there will be unused bytes at the end of a record. These bytes must be set to binary zero.
• The program reading (or writing) GOFF records is not to make assumptions about the internal format of records, the operating system is presumed to be able to provide fixed- or variable-length records without the program reading them needing to be aware of the operating system internal file management. The length of a record is not part of the record itself.
• Binary values are stored in big endian format, e.g. the value 1 is X'01' for an 8-bit value, X'0001' for a 16-bit value, X'00000001' for a 32-bit value, and X'0000000000000001' for a 64-bit value.
• Bits are counted from left to right; bit 0 is the left-most bit in a byte or word.
• Fixed-length records are required for GOFF files deployed on Unix systems.
• A record may be continued on a subsequent record. Where a record is continued, no intervening record(s) shall occur between the record being continued and the continuation record.
• A GOFF object file starts with an HDR record and ends with an END record. The END record should include the number of GOFF records (not the number of physical records) in the file.
• A language compiler or assembler can produce multiple GOFF files in one compilation/assembly, but the individual GOFF files must be separate from each other. This means that a module or compilation unit, consisting of an HDR record, intervening ESD, TXT and others, finishing with an END record, may then be followed by another compilation unit starting with HDR and ending with END, and so on, as needed.
• Module and Class names are case sensitive. A module named "exit" (as used by the C language) need not be the same as "EXIT" used by the Fortran language.
• Some conventions applicable to the OS/360 Object File Format are carried over to the GOFF Object File Format, including:
  • Unless otherwise specified, all characters are in the EBCDIC character set, except for external names, as stated below.
  • ESD items (Main programs, subroutines, functions, FORTRAN Common, methods and properties in objects) must be numbered starting with 1 and each new item is to have the next number in sequence, without any 'gaps' in the numbering sequence.
  • An ESD item must be defined before any other record (such as a TXT or RLD record) references it.
  • Each ESD record contains exactly one ESD item. (This is different from the old format, which permitted up to 3 ESD items in each ESD record.)
  • An RLD record (relocation dictionary) may contain one or more items, and an RLD record may be continued to a subsequent record.
  • To ensure future compatibility, fields indicated as 'reserved' should be set to binary zero.
  • Character sets used for external names are not defined by the GOFF standard, but there is a provision for a file to indicate what character set is being used. (This is to support double-byte character set Unicode-based module names.) Some IBM products, however, only allow characters for external names and other identifiers to a restricted range, typically (EBCDIC) hexadecimal values of X'41' through X'FE' plus the shift-in and shift out characters, X'0F' and X'0E', respectively.
• The new format supports Class names, of which there are two types, reserved and user supplied or non-reserved. All class names have a maximum length of 16 characters.
• Reserved Class names consist of a single letter, an underscore, and 1 to 14 characters. Reserved Class names beginning with B_ are reserved for the binder; Reserved Class names beginning with C_ marked as loadable are reserved for programs created for use with IBM's Language Environment (LE). Class names beginning with C_ which are not marked as loadable, as well as classes beginning with X_, Y_ or Z_ are available for general use as non-reserved.
• User Supplied class names may be lower-case.
• Class names are not external symbols.

The following classes used by the binder may be referenced if needed for compilation purposes:

B_ESD	External Symbol Dictionary Class
B_TEXT	Text Class
B_RLD	Relocation Dictionary Class
B_SYM	Internal Symbol Table Class
B_IDRL	Language-Translator Identification Data Class
B_PRV	Pseudo-Register Class
B_IDRU	User-specified Identification Data Class

The following class names are reserved by the binder and are not accessible to user applications:

B_IDRB	Binder Data Information
B_IDRZ	SUPER-Zap Data Information
B_IMPEXP	Import-Export Table
B_LIT	Loading Information Table
B_MAP	Mapping Data

• The SYM object file symbolic table information from the 360 Object File format record is not available for GOFF object files; the ADATA record (sub-record to TXT) must be used instead.

Record Types

Similarly to the older OS/360 format, object file records are divided into 6 different record types, some added, some deleted, some altered:

• HDR record (this is new) must occur first, it defines the header for the object file.
• ESD records define main programs, subroutines, functions, dummy sections, Fortran Common, methods and properties, and any module or routine that can be called by another module. They are used to define the program(s) or program segments that were compiled in this execution of the compiler, and external routines used by the program (such as exit() in C, CALL EXIT in Fortran; new() and dispose() in Pascal). ESD records should occur before any reference to an ESD symbol.
• TXT records have been expanded, and in addition to containing the machine instructions or data which is held by the module, they also contain Identification Data (IDR) records (20 or more types), Associated Data (ADATA) records, and additional information related to the module.
• RLD records are used to relocate addresses. For example, a program referencing an address located 500 bytes inside the module, will internally store the address as 500, but when the module is loaded into memory it's bound to be located someplace else, so an RLD record informs the linkage editor or loader what addresses to change. Also, when a module references an external symbol, it will usually set the value of the symbol to zero, then include an RLD entry for that symbol to allow the loader or linkage editor to alter the address to the correct value.
• LEN records are new, and supply certain length information.
• END records indicate the end of a module, and optionally where the program is to begin execution. This must be the last record in the file.

Format

GOFF records may be fixed or variable length; the minimum length when using variable-length records is 56 characters, although most records will be longer than this. Except for module and class names, all characters are in the EBCDIC character set. Unix-based systems must use fixed-length (80-byte) records. Records in fixed-length files that are shorter than the fixed length should be zero-filled. To distinguish GOFF records from the older OS/360 object format (where the first byte of a record is X'02') or from commands that may be present in the file, the first byte of each GOFF record is always the binary value X'03', while commands must start with a character value of at least space (X'40'). The next 2 bytes of a GOFF record indicate the record type, continuation and version of the file format. These first 3 bytes are known as the PTV field.

PTV

The PTV field represents the first 3 bytes of every GOFF record.

PTV Field

Byte	Bits	Value	Purpose
0	All	03	Indicates start of a GOFF record
1	0-3	0	ESD (External Symbol) record
		1	TXT (Text) record
		2	RLD (Relocation) record
		3	LEN (Length) record
		4	END (End) record
		X'5'-X'E'	Reserved
		X'F'	HDR (Header) record
	4-5		Reserved
	6-7	00	Initial record that is not continued on the next record. This should be the only value used for variable-length GOFF records
		01	Initial record which is continued on next record
		10	Continuation record not continued on next record
		11	Continuation record which is continued on the next record
2	All	00	Version Number of the object file format. All values except X'00' are reserved

HDR

The HDR record is required, and must be the first record.

HDR Record

Byte(s)	Size	Field	Value	Purpose
0-2	3	PTV	X'03F000'	Only allowed value; HDR record currently cannot be continued
3-47	45		0	Reserved
48-51	4	Architecture Level	Binary 0 or 1	GOFF Architecture level; all values except 0 and 1 are reserved
52-53	2	Module Properties Size	binary	Length of Module Properties Field
54-59	6		0	Reserved
60-	0+	Module Properties		Module Properties List (optional)

ESD

An ESD record gives the public name for a module, a main program, a subroutine, procedure, function, property or method in an object, Fortran Common or alternate entry point. An ESD record for a public name must be present in the file before any reference to that name is made by any other record.

ESD Record

Byte(s)	Size	Field	Value (or bits)	Purpose
0-2	3	PTV	X'030000'	ESD record with no continuations
			X'030100'	ESD record which is continued on next record
3	1	Symbol Type	00	SD - Section Definition; This is used for the former SD, CM (Common) and PC (Private Code, an SD whose name is blank) values. The "Parent" ESDID value must be 0. This is used to define a main program, a subroutine or function for which the code is part of this file. Also used for Fortran Common.
			01	ED - External Definition. "Parent" ESDID must be non-zero, and be the value of an SD entry that references this external symbol. If an RLD value refers to a class this entry belongs to, the Class that this element refers to must be specified in the External Name field. This is used to name a called procedure or function.
			02	LD - Label Definition. "Parent" ESDID must be non-zero, and be the value of an SD entry that defines this symbol within itself. This can be used to create an alias for the module or to expose a portion of it as a separate routine. For example, the run-time library for a particular programming language might have certain features it has to use itself, but which are useful by programs written using that language, and so a feature could be given a label so it can be called directly. For example, there may be a complete mathematics package as a single module, and all of the standard functions (Sine, Cosine, Square Root, etc.) could be named entry points in that module.
			03	PR - Part Reference or Pseudo Register. Distinguished by Name Space ID field. "Parent" ESDID must be non-zero, and be the value of an SD entry that defines this symbol within itself.
			04	ER and WX - External Reference / Weak External Reference. Distinguished between by the "Binding Strength" value of the "Attributes" field. WX is used where the foreign routine may be missing. For example, if a calculator program had a fast high-performance math package that was optional, it could be called as a WX, and if it was missing or not available, the program could downgrade to a lesser math package.
4-7	4	ESDID	Binary	ESDID identifier starting with 1. Each new ESDID must be exactly 1 higher than the previous entry.
8-11	4	Parent ESDID	binary	This is the ESDID of the object that defines this entry, if it is part of another object. It is 0 if it has no parent.
12-15	4		0	Reserved
16-19	4	Offset	Binary	Address of this symbol within its Parent ESDID for LD or ED entries; zero otherwise.
20-23	4		0	Reserved
24-27	4	Length	Binary	Length of this item for ED and PR types; zero otherwise. If the actual length value is deferred; this value is set to -1.
28-31	4	Extended Attribute ESDID	Binary	ESDID of element that contains extended attribute information for ED and LD types; typically used where DLLs are supported for symbols which are resolved at run time (like virtual methods). Zero otherwise.
32-35	4	Extended Attribute Offset	Binary	Address where extended attributes can be found for the previous field, used for ED and LD records having extended attributes; zero otherwise.
36-39	4		0	Reserved
40	1	Name Space ID	Identifies the name space this belongs to
			0	Reserved for Program Management Binder
			1	Normal Name
			2	Pseudo Register
			3	Parts (External entries allocated space including items containing initialized static data)
41	1	Flags
		Fill Present	Bit 0	0	No Fill
				1	Fill Byte Present (only valid for ED types)
		Mangled	Bit 1	0	Symbol is not mangled
				1	Symbol may be mangled
		Renameable	Bit 2	0	Cannot be renamed (same as 'mapped' flag in XOBJ)
				1	Symbol can be renamed (Can participate in Language Environment (LE) type renaming)
		Removable Class	Bit 3	0	(Default) Not Removable
				1	This Class can optionally be deleted without affecting the program's operation (Only valid for ED types)
			Bits 4-6	Reserved
		Reserve Extra Space	Bit 7	0	No Extra Space Reserved
				1	Reserve 16 bytes of space at the beginning of the Class (MRG class ED type only)
42	1	Fill Value		Value of Fill byte, if Fill Present flag is set
43	1		0	Reserved
44-47	4	Associated Data	Binary	Used for ID of environment or static area for LD items using XLINK
48-51	4	Priority	Binary	Sort order of PR items
52-59	8		0	Reserved
60-69	10	Behavioral Attributes		Behavior Attributes for this item (See Behavior Attributes table below)
70-71	2	Name Length	Binary	Length of this item's name; cannot be zero
72-		Name	Text	Name of this item with trailing blanks truncated. Must be at least one character; Private Code consists of a single blank. Name is case sensitive.
REM			0	Trailer: Unused space if needed for fixed-size records; must be zero filled. Not needed in variable-length records.

Continuation

In the case of fixed-length records where the name requires continuation records, the following is used:

ESD Continuation Record

Byte(s)	Size	Field	Value	Purpose
0-2	3	PTV	X'030200'	ESD continuation record with no further continuations
			X'030300'	ESD continuation record which is continued on next record
3-		Name	Text	The rest of the name if this record is not continued, or the next 77 bytes of the name if continued.
REM			0	Remainder for a fixed-length record longer than the data supplied. It contains the trailing bytes if this is the last record for this name and the name is shorter than the record size; must be 0 filled. This field is not present in variable-length records.

Behavior Attributes

Behavioral Attributes Field (bytes 60-69 of ESD record)

Offset	Size (Bytes)	Bits	Field	Value	Purpose
0	1		Addressing Properties	Addressing mode associated with this external symbol. These values are also used by the AMODE field of the END record.
				00	AMODE not specified (defaults to AMODE (24))
				01	AMODE(24)
				02	AMODE(31)
				03	AMODE(ANY) (24 or 31)
				04	AMODE(64)
				10	AMODE(MIN) (Use the smallest AMODE used by all modules)
1	1		Residence Properties	External Symbol's Associated Residence Mode
				00	RMODE not specified (defaults to RMODE (24))
				01	RMODE(24)
				03	RMODE(31) (Equivalent to RMODE(ANY))
				04	RMODE(64)
2	1	0-3 (4)	Text Record Style	Style of text for this class (ED and PR types only) All text must be the same style
				0000	Byte-oriented
				0001	Structured data (Binder Oriented)
				0010	Structured data (user defined)
		4-7 (4)	Binding Algorithm	Data Binding Method
				0000	Concatenate all items one after another
				0001	Merge (all identically named items will be located at the same space, using the largest size specified, and most restrictive alignment). Differently named items will be concatenated. This is the usual practice for CM and PR types.
3	1	0-2 (3)	Tasking Behavior	Indication whether module is reentrant and/or reusable
				000	Unspecified
				001	Neither Reusable nor Reentrant (NON-REUS)
				010	Serially Reusable (REUS)
				011	Reentrant (RENT), also implies (REUS)
		3		0	Reserved
		4	Read Only	0	Not Read Only
				1	Read Only
		5-7 (3)	Executable	000	Not Specified
				001	Not Executable (Data only)
				010	Executable (Code or Code and data)
4	1	0-1 (2)		0	Reserved
		2-3 (2)	Duplicate Symbol Severity	Level of error a duplicate symbol should raise (PR type records only)
				00	Binder determines severity
				01	Minimum 4 (Warning)
				10	Minimum 8 (Error)
				11	Reserved
		4-7 (4)	Binding Strength	Weak references will not search other libraries; Strong references will search other libraries for the symbol. Strong Definitions can be resolved to any reference; this is the default.
				0000	Strong
				0001	Weak
5	1	0-1 (2)	Class Loading Behavior	Determines whether the elements of a class will be loaded in the case of an Operating System LOAD request is used with respect to an object
				00	LOAD - Load this class
				01	DEFERRED LOAD - This class will probably be used and should be loaded
				10	NOLOAD - Do not load this class
				11	Reserved
		2	Common Flag		If 1, treat as "old" CM-type COMMON where multiple references set the size to the largest area being used by any reference. An SD type with the same name will keep the size and text. The only text type supported for this is B_TEXT.
		3	Direct vs. Indirect Reference	0	Direct References (for purposes of the Binder)
				1	For PR type, this is a linkage descriptor; for ER type, this is a reference to an XPLINK linkage descriptor
		4-7 (4)	Binding Scope	0000	Unspecified
				0001	Section scope (“local”)
				0010	Module scope (“global”)
				0011	Library scope
				0100	Import-Export scope
6	1	0-1 (2)		Reserved
		2	Linkage Type	For ER, LD, PD, and PR types
				0	Standard O/S linkage (default)
				1	XPLINK Linkage
		3-7 (5)	Alignment	Implied Alignment of this item
				00000	Byte
				00001	Halfword
				00010	Fullword
				00011	Doubleword
				00100	Quadword
				00101	4KB page
				All alignments shown are available for ED and PR types except PR cannot use page alignment
7-9	3			Reserved

ADATA records

ADATA ("associated data") records are used to provide additional symbol information about a module. They replaced the older SYM records in the 360 object file format. To create an ADATA record

• Create an ESD record of type ED for the class name that the records are part of
• Set all fields in the Behavioral Attributes record to 0 except
  • Class Loading (bits 0-1 of byte 5) is X'10'
  • Binding Algorithm is 0
  • Text Record Style (bits 0-3 of byte 2) is X'0010'
  • Optionally set the Read Only (bit 4 of byte 3) and Not Executable (bits 5-7 of byte 3) values if appropriate
• Create a TXT record for each ADATA item
  • Element ESDID is the value of the ADATA ED record for that particular ADATA entry
  • Offset is zero
  • Data Length is the length of the ADATA record
  • Data field contains the actual ADATA record itself

ADATA records will be appended to the end of the class in the order they are declared.

Class names assigned to ADATA records are translated by IBM programs by converting the binary value to text and appending it to the name C_ADATA, So an item numbered X'0033' would become the text string C_ADATA0033.

ADATA record types

TYpe	Description
X'0000' - X'7FFF'	Translator records (note that some values in the range 0-X'0130' are in use by some IBM language translator products including Assembler, Cobol and PL/I).
X'8000' - X'8FFF'	Program Management records
X'9000' - X'DFFF'	Reserved
X'E000' - X'EFFF'	Reserved for compilers and assemblers not released by IBM.
X'F000' - X'FFFF'	Available for User Records. IBM will not use these values.

TXT

TXT records specify the machine code instructions and data to be placed at a specific address location in the module. Note that wherever a "length" must be specified for this record, the length value must include any continuations to this record.

TXT Record

Byte(s)	Size	Field	Bits	Value	Purpose
0-2	3	PTV		X'031000'	TXT record with no continuations
				X'031100'	TXT record which is continued on next record
3	1		0-3 (4)		Reserved
		Style	4-7 (4)	All other values are reserved
				0000	Byte Oriented Data
				0001	Structured Data (currently the only structured data supported are the 19-byte IDR fields; see IDR Data Table)
				0010	Unstructured Data
4-7	4	Element ESDID	Binary number		ESDID that the contents of this record belong to
8-11	4				Reserved
12-15	4	Offset	Binary address		Address within ESDID where this data is to be placed. This should be 0 for structured and unstructured data.
16-19	4	Text field true length	binary value: 0 or full size after expansion		If Text Encoding field is 0, this must be 0. Otherwise this field is the full size of the text after decompression or unpacking
20-21	2	Text Encoding	binary value		0 if text does not require replication, unpacking, or decoding; nonzero to indicate text must be decoded, unpacked or expanded; see Compression Table
22-23	2	Data Length	binary value greater than zero		Total length of the data on this record in bytes as an unsigned value, and cannot be zero
24-		Data			Machine code and/or data to be inserted. If IDR data is included it is subject to special rules and requirements, see IDR Data Table
REM					Not present for variable-length records; remainder bytes for fixed record longer than remaining data, and must be binary zeroes

Continuation

TXT Continuation Record

Byte(s)	Size	Field	Bits	Value	Purpose
0-2	3	PTV	X'031200'		Continuation Record with no further continuations
			X'031300'		Continuation Record which is continued next record
3-					Data continued from previous record
REM					If remainder of record is longer than data; zero filled

Compression Table

A compression table is used if bytes 20-21 of the TXT record is nonzero. The R value is used to determine the number of times to repeat the string; the L value indicates the length of the text to be repeated "R" times. This could be used for pre-initializing tables or arrays to blanks or zero or for any other purpose where it is useful to express repeated data as a repeat count and a value.

Compression Table

Byte(s)	Size	Field	Value	Purpose
If value in bytes 20-21 of this TXT record is 0001
0-1	2	R	Repeat Count, an unsigned integer greater than 0		Number of times to repeat the string starting in byte 4.
2-3	2	L	Binary length, an unsigned integer greater than 0		Length of string starting in byte 4
4-		String			The string, of length "L" which is to be repeated "R" times.
All other values for bytes 20-21 are reserved

IDR Data Table

The IDR Table, which is located starting at byte 24 of the TXT record, identifies the compiler or assembler (and its version number) that created this object file.

IDR Field

Byte(s)	Size	Field	Value	Purpose
0	1		x'00'	Reserved
1	1	Type	Type of IDR field (note that Primary and Secondary identification refers to the first and second identification fields, respectively, appearing on the END card in the former OS/360 Object Module File Format.)
			00	Primary Identification; Old IDR format 1
			01	Secondary Identification; Old IDR format 1
			02	Extended Identification; IDR format 2
			03	Primary Identification; IDR format 3
			04	Secondary Identification; IDR format 3
2-3	2	Length	Binary number	Length of IDR data as unsigned integer greater than zero
4+				IDR data according to the specified format in byte 1 of this field; see the appropriate IDR Format table for details

IDR Format 1

Note that unlike most number values stored in a GOFF file, the "version", "release" and "trans_date" values are numbers as text characters instead of binary

Format 1 (old format)

Byte(s)	Size	Field	Value	Purpose
0-9	10	Translator	Any text	This value is what the assembler or compiler identifies itself as; IBM calls this the "PID value" or "Program ID value" from IBM's catalog numbers of various programs, e.g. the Cobol Compiler for OS/VS1 is called "IKFCBL00"
10-11	2	Version	two digits	This is the version number of the assembler or compiler, 0 to 99.
12-13	2	Release	two digits	This is the release number subpart of the version number above, also 0 to 99
14-18	5	Trans_Date	YYDDD	5 text characters indicating the 2-digit year, and the 3-digit day of the year this module was compiled or assembled; years 01-65 are presumed to be in the 21st Century, while year 00 or years greater than 65 are presumed to be in the 20th Century, e.g. 2000 or 1966-1999. The three digit day starts at 001 for January 1; 032 for February 1; 060 is March 1 in standard years and February 29 in leap years; and continuing through 365 for December 31 in standard years and 366 for leap years.

IDR Format 2

Normally compilers and assemblers do not generate this format record, it is typically created by the binder.

Format 2

Byte(s)	Size	Field	Value	Purpose
0-3	4	Date	Packed decimal form YYYYDDDF	Date module was assembled or compiled, with the year and day of the year
4-5	2	Data_Length	Binary value	Actual length of next field, an unsigned, nonzero value
6-85	80	IDR_Data		Format of this data has not been disclosed

IDR Format 3

All text in this item are character data; no binary information is used.

Format 3

Byte(s)	Size	Field	Value	Purpose
0-9	10	Translator		Any text value the compiler/assembler writer wishes to use to identify itself (see the Translator field in old IDR Format 1 above)
10-11	2	Version	00 to 99	Version number of the assembler or compiler
12-13	2	Release	00 to 99	Release number of above version
14=20	7	Compile_Date	YYYYDDD	Year and day of year the program was compiled or assembled (this would be the same format as the 'Trans Date' field from IDR Format 1 above, except the year is a full 4-digit year).
21-29	9	Compile_Time	HHMMSSTTT	Hour, minute, second and thousandth of second that the program was compiled or assembled

RLD

RLD records allow a module to show where it references an address that must be relocated, such as references to specific locations in itself, or to external modules.

Relocation Directory

Byte(s)	Size	Field	Value	Purpose
0-2	3	PTV	X'032000'	Record is not continued
			X'032100'	Record continues on next record
3	1			Reserved
4-5	2	Length	Binary Number	Size of relocation data; unsigned and must be greater than zero
6-		Relocation_Data		The relocation data; see Relocation Data table
REM				Not present on variable-length records; remainder of record where record is longer than data, must be zero-filled

Relocation Data

Relocation Data Item

Byte(s)	Size	Field	Value	Purpose
0-5	6	Flags		Flags regarding this entry; see Flags table for values
6-7	2	Reserved
8-11	4	R_Pointer	ESDID of module (type ED or ER) to use as the target to relocate	This is the "distant" address, either in the same or a different module, that the program needs resolved. This field is omitted if bit 0 of byte 0 of the Flags field is 1.
12-15[A]	4	P_Pointer	ESDID of module that requires the address to be relocated	This is the module that wants its reference to a distant identifier to be altered to the correct value. This field is omitted if bit 1 of byte 0 of the Flags field is 1.
16-19[B]	4	Offset	Location within module specified by P_Pointer where the address to be adjusted is to be found.	This is the address to be relocated. This field is omitted if bit 2 of byte 0 of the Flags field is 1.
20-23[C]	4			Reserved
24-27[C]	4			Reserved

^[A] If R_Pointer (bit 0 of byte 0 of Flags field is 1) is omitted, this field starts 4 bytes lower, in bytes 8-11.
^[B] If R_Pointer or P_Pointer (bit 1 of byte 0 of Flags field is 1) is omitted, this field starts 4 bytes lower, in bytes 12-15. If both fields are omitted, this field starts 8 bytes lower, in bytes 8-11.
^[C] If R_Pointer, P_Pointer, or Offset (bit 2 of byte 0 of Flags field is 1) are omitted, this field starts 4 bytes lower. If any two of them are omitted, this field starts 8 bytes lower. If all of them are omitted, this field starts 12 bytes lower.

To clarify, if a module in a C program named "Basura" was to issue a call to the "exit" function to terminate itself, the R_Pointer address would be the ESDID of the routine "exit" while the P_Pointer would be the ESDID of "Basura". If the address was in the same module (like internal subroutines, or a reference to data within the same module) R_Pointer and P_Pointer would be the same.

Flags

RLD Item Flags

Byte(s)	Size	Field	Bits	Purpose
0	1	Same_R_ID	0	1 If the R_Pointer value for this entry is the same as the previous item in this record; if so, the R_Pointer value is omitted from this entry.
		Same_P_ID	1	1 If the P_Pointer value for this entry is the same as the previous item in this record; if so, the P_Pointer value is omitted from this entry.
		Same_Offset	2	1 If the Offset value for this entry is the same as the previous item in this record; if so, the Offset value is omitted from this entry.
			3-4	Reserved
			5	Reserved
		Offset_length	6	0 to indicate 4 byte length
		Addressing mode sensitivity	7	0 No Sensitivity
				1 Set the high bits of the address to the same as the R mode addressing mode of the R_Pointer address (applies only to V-type addresses)
1	1	R_Pointer_Indicators	0-3	Data Type of Second Operand of relocation address
				0 - R-address
				1 - Offset from start of R-address
				2 - R-Length (0 for LD items)
				6 - Relative immediate (to allow instructions to address external symbols)
				7 - R Constant (nonshared data area)
				9 - 20-Bit long displacement address
				All other values are reserved
			4-7	Type of item referring to the value needing to be relocated.
				0 - Label, R-ID is restricted to LD
				1 - Element, R-ID is restricted to ED
				2 - Class, R-ID is restricted to ED; Classes do not have external names so they do not have an ESDID
				3 - Part, R-ID is restricted to PR
				All other values are reserved
2	1	Action_or_Operation	0-6	Type of operation to use with second operand (the first operand would be 0) the result is a 32-bit signed value which replaces the first operand
				0 - Add second operand to first
				1 - Subtract second operand from first
				All other values are reserved
		Fixup Target Fetch/Store	7	Indicates whether to use or ignore target value
				0 - Use fixup/target field as first operand
				1 - Ignore value of target field use fixup value as first operand; if no fixup value, use 0
3	1	Reserved
4	1	Target Length		Unsigned length of target field in bytes
5	1	Reserved

LEN

LEN records are used to declare the length of a module where it was not known at the time the ESD record was created, e.g. for one-pass compilers.

Field	Offset	Size	Description
PTV	0-2	3	Record Type X'033000'
	3-5	3	Reserved
Length	6-7	2	Length of items following this field; value must be non-zero
Elements	8-		Element length data; see Elements table below
REM			Trailing data to end of record for fixed-length records, must contain binary zeroes; not present for variable-length records.

Elements

A deferred-length element entry cannot be continued or split

Field	Offset	Size	Description
ESDID	0-3	4	ESDID of element this value applies to
	4-7	4	Reserved
Length	8-11	4	Length of the item referenced

END

END must be the last record for a module. An 'Entry Point' is used when an address other than the beginning of the module is to be used as the start point for its execution. This is used either because the program has non-executable data appearing before the start of the module (very common for older assembly programmers, as older versions of the assembler were much slower to assemble data stored in programs once instructions were specified), or because the module calls an external module first, such as a run-time library to initialize itself.

Field	Offset	Size	Bits	Description
PTV	0-2	3		X'034000' - Not-continued
				X'034100' - Continued on next record
	3	0-5	6	Reserved
Flags		6-7	2	Declarations regarding the presence or absence of an entry point
				00 - No entry point given; all other values in this record are invalid
				01 - Entry point specified by ESDID
				10 - Entry point specified by name
				11 - Reserved
AMODE	4	1		Addressing Mode value of entry point; the values are as specified in field 0 of the Behavior Attributes table in the ESD record.
	5-7	3		Reserved
Record Count	8-11	4		Number of GOFF records in this module (this is the number of "logical" records, i.e. not counting continuations)
ESDID	12-15	4		Value of ESDID if entry point is referenced by ESDID; binary zero if referenced by name
	16-19	4		Reserved
Offset	20-23	4		Address offset of module entry point; this cannot be specified for an external (ER) entry point
Name Length	24-25	2		Length of name, this must be zero if entry point was specified by ESDID.
Name	26-			The name of the external symbol used as the entry point for this module; is binary zeros if entry point was specified by ESDID; if this record is continued this is the initial 54 characters of the name. This is the only non-binary value in the record; it would be a text field representing the public name for the entry point
REM				Trailer extending to the end of the record; should be binary zeros to end of record for fixed-length records; omitted for variable-length

Continuation

If an entry-point name specified on a fixed-length END record is longer than 54 bytes or (if this record itself is also continued) is longer than an additional 77 bytes), the following continuation record is used.

Field	Offset	Size	Description
PTV	0-2	3	X'034200' - This continuation record is not-continued
			X'034300' - This continuation record is itself continued on the next record
Name	3-		The remaining part of the entry-point name, unless this record is continued, in which case it is the next 77 characters of the name.
REM			If this record is not continued, this is the trailing part of the record for fixed-length records and should be binary zeroes; not present for variable-length records