COBOL Manual for TNS and TNS/R Programs

Creating and Compiling HP COBOL Source
Programs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
22-35
Including Text From a SOURCE Library
If the HP COBOL source program in Example 22-8 contains the line
?SOURCE SRCFILE (NAMEREC,DATEREC)
then only the sections NAMEREC and DATEREC are included in the resulting source
code, which is:
01 NAME-REC.
03 LAST-NAME PICTURE X(15).
03 M-I PICTURE X(1).
03 FIRST-NAME PICTURE X(15).
03 TITLE PICTURE X(5).
01 DATE-REC.
03 MONTH PICTURE X(9).
03 DAY PICTURE X(2).
03 YEAR PICTURE X(4).
Resulting source code:
01 NAME-REC.
03 LAST-NAME PICTURE X(15).
03 M-I PICTURE X(1).
03 FIRST-NAME PICTURE X(15).
03 TITLE PICTURE X(5).
01 ADDR-REC.
03 NUMBER PICTURE X(5).
03 STREET PICTURE X(15).
03 APT-NUM PICTURE X(3).
03 CITY PICTURE X(15).
03 STATE PICTURE X(2).
03 ZIPCODE PICTURE X(5).
01 DATE-REC.
03 MONTH PICTURE X(9).
03 DAY PICTURE X(2).
03 YEAR PICTURE X(4).
Example 22-8. Including Text From a Source File