The CALL function finds where programs CALL other
programs.
For this example, we first display a very simple COBOL
program that makes two CALLs to other programs.
The first CALL is a standard COBOL CALL, with the CALLed
program name in quotes. The second CALL is a dynamic
CALL. It uses a variable that contains the name of
the program being CALLed.
The first CALL report is a simple reference to all CALLed
programs, in CALLed program sequence.
The second CALL report is being cataloged, so the CALLed
program names are listed in the order they were found.
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.REGASAUQ.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.REGASAUQ.SOURCE TIME: 11:16
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.REGASAUQ.COPY TAPE: D00110
C2COPY: O : ADPRBH1.REGASAUQ.COPY2 USERID: ADPRBH1H
P1PROC: N : *** NOT ALLOCATED ***
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: N : *** NOT ALLOCATED ***
OUTLIB: N : *** NOT ALLOCATED ***
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: N : *** NOT ALLOCATED ***
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.DISPLAY TITLE='DIS: DISPLAY.'
@SV MEM=CAL03CBA
@SV ERR=GO,PMR=NO
DISPLAY DIS: DISPLAY. ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
CCCCCC AAAA LL 0000 333333 CCCCCC BBBBBBB AAAA
CCCCCCCC AAAAAA LL 00 00 33333333 CCCCCCCC BBBBBBBB AAAAAA
CC CC AAA AAA LL 00 00 33 33 CC CC BB BB AAA AAA
CC AA AA LL 00 00 3333 CC BBBBBBB AA AA
CC AAAAAAAA LL 00 00 3333 CC BBBBBBB AAAAAAAA
CC CC AAAAAAAA LL 00 00 33 33 CC CC BB BB AAAAAAAA
CCCCCCCC AA AA LLLLLLLL 00 00 33333333 CCCCCCCC BBBBBBBB AA AA
CCCCCC AA AA LLLLLLLL 0000 333333 CCCCCC BBBBBBB AA AA
SEQ DISPLAY OF CAL03CBA FROM LIBRARY:ADPRBH1.REGASAUQ.SOURCE SOURCE COPY
NUMBER 1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80 LINENO MEMBER
1 IDENTIFICATION DIVISION. 000001
2 PROGRAM-ID. CAL03CBA. 000002
3 000003
4 ENVIRONMENT DIVISION. 000004
5 DATA DIVISION. 000005
6 000006
7 WORKING-STORAGE SECTION. 000007
8 01 CAL03CBA-USING PIC X(20). 000008
9 000009
10 01 CAL03CBA-CALLED-01 PIC X(08) VALUE 'CAL03CAV'. 000010
11 000011
12 PROCEDURE DIVISION. 000012
13 000013
14 CALL 'CAL03NM8' USING CAL03CBA-USING. 000014
15 000015
16 CALL CAL03CBA-CALLED-01 USING CAL03CBA-USING. 000016
17 000017
18 GOBACK. 000018
19 000019
DISPLAY END: CAL03CBA
LINE COUNTS: 11=SOURCE =COMMENT 8=BLANK =COPY/INC 19=TOTAL
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:00.99
--------------------
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.REGASAUQ.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.REGASAUQ.SOURCE TIME: 11:16
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.REGASAUQ.COPY TAPE: D00110
C2COPY: O : ADPRBH1.REGASAUQ.COPY2 USERID: ADPRBH1H
P1PROC: N : *** NOT ALLOCATED ***
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: N : *** NOT ALLOCATED ***
OUTLIB: N : *** NOT ALLOCATED ***
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: N : *** NOT ALLOCATED ***
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.CALL TITLE='CAL: '
@SV MEM=CAL03CBA
@SV
@SV
@SV ERR=GO,PMR=NO
WHERE MESSAGES: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
CROSS REFERENCE OF CALLED PROGRAM CAL: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
CALLED IDENT OR DYNAMIC NAME LINE.MEMBER THAT CALLED PROGRAM
------------------------------ ----------------------------- ---------------------------------------
CAL03CAV 000016.CAL03CBA
CAL03NM8 000014.CAL03CBA
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:02.23
--------------------
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.REGASAUQ.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.REGASAUQ.SOURCE TIME: 11:16
ALTLIB: N : *** NOT ALLOCATED *** EXEC: BACKGROUND
COPYLIB: O : ADPRBH1.REGASAUQ.COPY TAPE: D00110
C2COPY: O : ADPRBH1.REGASAUQ.COPY2 USERID: ADPRBH1H
P1PROC: N : *** NOT ALLOCATED ***
P2PROC: N : *** NOT ALLOCATED ***
JOBCNTL: N : *** NOT ALLOCATED ***
OUTLIB: N : *** NOT ALLOCATED ***
PMHELP: N : *** NOT ALLOCATED ***
S1SCEN: N : *** NOT ALLOCATED ***
S2SCEN: N : *** NOT ALLOCATED ***
L1LOAD: N : *** NOT ALLOCATED ***
L2LOAD: N : *** NOT ALLOCATED ***
@SV INPUT:
@SV.CALL TITLE='CAL: '
@SV MEM=CAL03CBA
@SV
@SV CAT=WEBCAL02
@SV ERR=GO,PMR=NO
WHERE MESSAGES: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
IDLIST:WEBCAL02 CAL: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
RPT USER MEMBER PROG-ID
LINE CODES NAME CALLED
1--------- 11-------- 21------
1 CC CAL03CBA CAL03NM8 000014
2 CC CAL03CBA CAL03CAV 000016
PM@XRF-M04 WEBCAL02 REPLACED IN PMLIB AS: IDLIST
--------------------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:03.89
--------------------