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

Counter records

Each counter record specifies, for a subsequent record type, how many records of that type the file contains and how many bytes those records occupy.

Figure 108. Declare for a counter record
Dcl
  1 xin_Ctr     Based( null() ),   /* counter/size record           */
                                   /*                               */
    2 xin_Ctr_Hdr                  /* standard header               */
           like xin_Hdr,           /*                               */
                                   /*                               */
    2 xin_Ctr_Rect                 /* record type                   */
        unal ordinal xin_Rect,     /*                               */
                                   /*                               */
    2 *                            /*                               */
           fixed bin(16) unsigned, /*                               */
                                   /*                               */
    2 xin_Ctr_Count                /* count of that record type     */
           fixed bin(31) unsigned, /*                               */
                                   /*                               */
    2 xin_Ctr_Size                 /* size used                     */
           fixed bin(31) unsigned; /*                               */

Terms of use | Feedback

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