それぞれのリテラル・レコードは、リテラル索引と呼ばれる 1 つの番号を割り当て、 この特定のレコードに指定された文字を参照するために、後のレコードによって使用されるようにします。
Dcl
1 xin_Lit Based( null() ), /* literal record */
/* */
2 xin_Lit_Hdr /* standard header */
like xin_Hdr, /* */
/* */
2 xin_Lit_Inx /* adata index for literal */
fixed bin(31) unsigned, /* */
/* */
2 xin_Lit_Len /* length of literal */
fixed bin(31) unsigned, /* */
/* */
2 xin_Lit_Val char(2000); /* literal value */