The PICTURE option displays a diagram of the structure defined by the Master File. Each segment is represented by a box. There are four types of boxes, which indicate whether a segment (including the root segment) is non-unique or unique and whether it is real or cross-referenced. The four types of boxes are
Real segments |
|
Non-unique segment: segname numsegtype ************** *field1 **I *field2 ** *field3 ** *field4 ** * ** *************** ************** |
Unique segment: segname num U ************** *field1 *I *field2 * *field3 * *field4 * * * ************** |
Cross-referenced segments |
|
Non-unique segment: segname num KM (or KLM) .............. :field1 ::K :field2 :: :field3 :: :field4 :: : :: :...........:: ............: crfile |
Unique segment segname num KU (or KLU) .............. :field1 :K :field2 : :field3 : :field4 : : : :............: crfile |
where:
Is the number assigned to the segment in the structure.
Is the name of the segment.
Is the segment type for a real, non-unique segment: Sn, SHn, or N (for blank segtypes).
Are the names of fields in the segment. Field names greater than 12 characters are truncated to 12 characters in CHECK FILE PICTURE operations, with the last character appearing as a ' >', indicating that more characters exist than can be shown.
Indicates an indexed field.
Indicates the key field in the cross-referenced segment.
Is the name of the cross-referenced data source if the segment is cross-referenced.
The diagram also shows the relationship between segments (see the following example). Parent segments are shown above children segments connected by straight lines.
The following diagram shows the structure of the JOB data source joined to the SALARY data source:
JOIN EMP_ID IN JOB TO EMP_ID IN SALARY > CHECK FILE JOB PICTURE NUMBER OF ERRORS= 0 NUMBER OF SEGMENTS= 2 ( REAL= 1 VIRTUAL= 1 ) NUMBER OF FIELDS= 7 INDEXES= 0 FILES= 2 TOTAL LENGTH OF ALL FIELDS= 86 SECTION 01 STRUCTURE OF FOCUS FILE JOB ON 01/31/03 AT 12.33.04 JOBSEG 01 S1 ************** *EMP_ID ** *FIRST_NAME ** *LAST_NAME ** *JOB_TITLE ** * ** *************** ************** I I I I SALSEG 02 I KU .............. :EMP_ID :K :SALARY : :EXEMPTIONS : : : : : :............: JOINED SALARY