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-47
Source Program Listing
COPY Library Lines:
?SECTION MOVE1,ANSI
MOVE ABLE TO BAKER. MOVE1
?SECTION MOVE2,HP
MOVE ABLE TO BAKER.
?SECTION SOURCE1,ANSI
ABLE
SOURCE1
?SECTION SOURCE2,ANSI
ABLE
SOURCE2
?SECTION SOURCE3,ANSI
ABLE
SOURCE3
?SECTION ADD1,ANSI
000001 ANDY ADD1
?SECTION ADD2,ANSI
000101 BARBARA ADD2
?SECTION ADD3,ANSI
?SECTION ADD4
CAL
Listing:
ANSIFMT 33 PD0023 A.
ANSIFMT 34 PD0024* COPY MOVE1.
MOVE1 < 34 MOVE ABLE TO BAKER.
ANSIFMT 35 PD0024* COPY MOVE2.
< 13 MOVE ABLE TO BAKER.
ANSIFMT 36 PD0026* MOVE COPY SOURCE1. TO X.
ANSIFMT < 36 PD0026 MOVE ABLE TO X.
ANSIFMT 37 PD0027* MOVE COPY SOURCE2. TO X.
ANSIFMT 37 PD0027 MOVE
ANSIFMT < 38 ABLE TO X.
ANSIFMT 39 PD0028* MOVE COPY SOURCE3. TO X.
SOURCE3 < 39 PD0028 MOVE ABLE
ANSIFMT 40 PD0028 TO X.
ANSIFMT 41 PD0029* ADD COPY ADD1. COPY ADD2. COPY ADD3. COPY ADD4. TO
ANSR.
ANSIFMT 41 PD0029 ADD
ANSIFMT < 42 000001* ANDY COPY ADD2. COPY ADD3. COPY ADD4. TO
ANSR.
ANSIFMT < 42 000001 ANDY
ANSIFMT < 43 000101* BARBARA COPY ADD3. COPY ADD4. TO
ANSR.
ANSIFMT < 43 000101* BARBARA COPY ADD4. TO
ANSR.
ANSIFMT < 43 000101 BARBARA CAL TO
ANSR.
ANSIFMT 44 PD0030* DISPLAY COPY SHOW-LIST OF SOMELIB. .
SHOWLIST< 44 PD0030D DISPLAY ABLE BAKER CHARLENE DELTA
ANSIFMT < 45 D ANDY BARBARA .
ANSIFMT 46 PD0031 STOP RUN.
Example 22-16. ANSI Format COPY Expansion (page 2 of 2)