The LITERAL function produces a cross reference of all
literal values found in the PROCEDURE division (or language
equivalent) of selected members of a source library.
The first example shows the basic cross reference report.
The second example uses the KWIC option to display the actual
line of source code where the literal was found.
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:20
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.ZEX.COPY TAPE: D00110
C2COPY: O : ADPRBH1.ZEX.COPY2 USERID: ADPRBH1H
P1PROC: O : ADPRBH1.ZEX.PROC
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: O : ADPRBH1.ZEX.JOB
OUTLIB: O : ADPRBH1.ZEX.OUTLIB
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: I : ADPRBH1.ZEX.LOAD
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.LITERAL TITLE='LIT: '
@SV MEM=E*
@SV LAN=CBL
@SV
@SV
@SV
@SV ERR=GO,PMR=NO
WHERE MESSAGES: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
START: EMPLFN
PM@PDX-05 MEMBER IN THIS LANGUAGE IS NOT PROCESSED SEE EMPLFN
--------------------
START: EUROCUR
CROSS REFERENCE OF LITERAL VALUE LIT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
LITERAL VALUE LINE.MEMBER OF LITERAL VALUE
---------------- --------------------------- ---------------------------------------
'*' 000296.EUROCUR
'-' 000269.EUROCUR
0 000325.EUROCUR
1 000320.EUROCUR 000323.EUROCUR 000326.EUROCUR 000328.EUROCUR
000329.EUROCUR 000330.EUROCUR 000331.EUROCUR
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:02.08
--------------------
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:20
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.ZEX.COPY TAPE: D00110
C2COPY: O : ADPRBH1.ZEX.COPY2 USERID: ADPRBH1H
P1PROC: O : ADPRBH1.ZEX.PROC
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: O : ADPRBH1.ZEX.JOB
OUTLIB: O : ADPRBH1.ZEX.OUTLIB
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: I : ADPRBH1.ZEX.LOAD
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.LITERAL TITLE='LIT: '
@SV MEM=E*
@SV LAN=CBL
@SV KWIC
@SV
@SV CAT=WEBLIT02
@SV ERR=GO,PMR=NO
WHERE MESSAGES: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
START: EMPLFN
PM@PDX-05 MEMBER IN THIS LANGUAGE IS NOT PROCESSED SEE EMPLFN
--------------------
START: EUROCUR
KEYWORD IN CONTEXT LIT: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
RPT
LINE
1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80 ---KEYWORD--- --MEMBER-- -LINE-
MOVE '-' TO DASH-1, DASH-2. 02040000 '-' EUROCUR 000269
IF INPUT-COMMENT NOT = '*' 02310000 '*' EUROCUR 000296
ADD 1 TO LINE-NUMBER. 02550000 1 EUROCUR 000320
ADD 1 TO PAGE-NUMBER. 02580000 1 EUROCUR 000323
MOVE 0 TO LINE-NUMBER. 02600000 0 EUROCUR 000325
WRITE PRINT-RECORD FROM HD1. ADD 1 TO LINE-NUMBER. 02610000 1 EUROCUR 000326
WRITE PRINT-RECORD. ADD 1 TO LINE-NUMBER. 02630000 1 EUROCUR 000328
WRITE PRINT-RECORD FROM HD2. ADD 1 TO LINE-NUMBER. 02640000 1 EUROCUR 000329
WRITE PRINT-RECORD FROM HD3. ADD 1 TO LINE-NUMBER. 02650000 1 EUROCUR 000330
WRITE PRINT-RECORD FROM HD4. ADD 1 TO LINE-NUMBER. 02660000 1 EUROCUR 000331
PM@CTX-M04 WEBLIT02 REPLACED IN PMLIB AS: KWIC
--------------------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:03.32
--------------------