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-55
Symbolic Code Listing
Symbolic Code Listing
The COBOL85 compiler lists the instructions of the object program in symbolic
(mnemonic) form after the source program listing if you explicitly request it with the
ICODE directive (see Example 22-23).
The NMCOBOL compiler lists the instructions of the object program in symbolic
(mnemonic) form after each source statement if you explicitly request it with the
INNERLIST directive (see Example 22-24).
Note. In a symbolic code listing for a very large program, lines at the end of the program have
asterisks in place of line numbers.
Example 22-23. Symbolic Code Listing (COBOL85 Compiler) (page 1 of 3)
1 ?ENV COMMON;ICODE
2 IDENTIFICATION DIVISION.
3 PROGRAM-ID. TESTT.
4 ENVIRONMENT DIVISION.
5 CONFIGURATION SECTION.
6 SOURCE-COMPUTER. ABD.
7 OBJECT-COMPUTER. ABD.
8 DATA DIVISION.
9 WORKING-STORAGE SECTION.
10 01 D PICTURE 9 USAGE COMPUTATIONAL.
11 01 STD-DATE PICTURE 9(8) USAGE COMPUTATIONAL.
12 PROCEDURE DIVISION.
13 STARTT.
14 PERFORM VARYING STD-DATE FROM 19970618 BY 1
UNTIL STD-DATE > 19970624
15 DISPLAY STD-DATE
16 MOVE FUNCTION REM (FUNCTION INTEGER-OF-DATE (STD-DATE) 7)
TO D
17 IF D = 0 THEN DISPLAY " SUNDAY" ELSE
18 IF D = 1 THEN DISPLAY " MONDAY" ELSE
19 IF D = 2 THEN DISPLAY " TUESDAY" ELSE
20 IF D = 3 THEN DISPLAY " WEDNESDAY" ELSE
21 IF D = 4 THEN DISPLAY " THURSDAY" ELSE
22 IF D = 5 THEN DISPLAY " FRIDAY" ELSE
23 IF D = 6 THEN DISPLAY " SATURDAY" END-IF
24 END-IF
25 END-IF
26 END-IF
27 END-IF
28 END-IF
29 END-IF
30 END-PERFORM.
31 STOP RUN.