DLISegment ステレオタイプは、レコード・パーツを階層データベース向けに特殊化します。
DL/I データベースでアクセスする各セグメント・タイプは、 プログラム内で等価の DLISegment レコードを持つ必要があります。
顧客情報を保持するデータベースを考えてみます。それぞれの顧客につき、 クレジット状況、履歴、個々の場所についてのセグメントが存在します。各ロケーションには、オーダー・セグメントがあり、各オーダーには項目セグメントがあります。この例のダイアグラムおよびコードについては、このトピックの最後にある関連概念を参照してください。
このデータベースに EGL プログラムからアクセスするため、顧客、クレジット、履歴、場所、オーダー、アイテムについて DLISegment タイプのレコードを作成します。
Record CustomerRecordPart type DLISegment
{ segmentName="STSCCST", keyItem="customerNo" }
10 customerNo char(6) { dliFieldName = "STQCCNO" }; //key field
10 customerName char(25) { dliFieldName = "STUCCNM" };
10 customerAddr1 char(25) { dliFieldName = "STQCCA1" };
10 customerAddr2 char(25) { dliFieldName = "STQCCA2" };
10 customerAddr3 char(25) { dliFieldName = "STQCCA3" };
end