1 /* START OF:        lib_fcb_.incl.pl1                         *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3      dcl  1 fcb                         based (Pfcb),       /* file control block for our output file.        */
 4             2 version                   fixed bin,          /*    version number = 1;                         */
 5             2 ioname                    char(32),           /*    ioname of our I/O control block.            */
 6             2 Piocb                     ptr,                /*    ptr to our I/O control block.               */
 7             2 Eend_page                 entry variable,     /*    entry which handles endpage condition.      */
 8             2 page_length               fixed bin,          /*    number of lines per page.                   */
 9             2 page_text_length          fixed bin,          /*    number of usable lines per page, excluding  */
10                                                             /*       footer lines generated by end-of-page    */
11                                                             /*       handler.                                 */
12             2 page_no                   fixed bin,          /*    current page number.                        */
13             2 line_length               fixed bin,          /*    number of characters per line.              */
14             2 line_no                   fixed bin;          /*    number of lines on current page.            */
15      dcl  Pfcb                          ptr;                /* ptr to file control block.                     */
16      dcl  Vfcb_1                        fixed bin int static options(constant) init (1);
17 
18 /* END OF:          lib_fcb_.incl.pl1                         *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */