Each literal record assigns a number, called a literal index, that is used by later records to refer to the characters named in this particular record.
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 */