Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, Programming Guide

Literal records

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.

Figure 109. Declare for a literal 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                 */

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)