The IODIAGRAM function produces a set of Job Step I/O
diagrams based on data found in the JCL libraries (JOB
and PROC libraries.)
The first step uses the Job library to create a list of all
members that begin with 'CTL', and catalogs that list.
The second step uses the above cataloged list (of 'CTL'
members) to process only the jobs for those members.
This information includes job names (from the JOB cards,)
step names in the jobs, and any PROCs (procedures) used
by those jobs, and step names inside the PROCs
themselves.
The third step uses the information from the first two steps
to display the actual I/O Diagram.
Note: some of the graphics characters in this example may
seem odd. This is because ADPAC does not have a Laser
Printer. However, when SystemVision is installed
at your site, the graphics character set which applies to
your printer(s) will be installed.
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:19
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.MEMBER TITLE='MEM: MEMBER LIST.'
@SV MEM=CTL*
@SV LAN=JCL
@SV SOU=JOBCNTL
@SV CAT=WEBIODML
@SV ERR=GO,PMR=NO
MEMBER NAMES MEM: MEMBER LIST. ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
RPT USER MEMBER
LINE CODES NAME
1--------- 11--------
1 J CTLCRE8
2 J CTLRPT
3 J CTLUPDT
PM@ENT-M04 WEBIODML REPLACED IN PMLIB AS: MLIST
--------------------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:01.45
--------------------
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:19
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.JOB TITLE='JOB: '
@SV MLI=WEBIODML
@SV
@SV
@SV CAT=WEBIOD02
@SV ERR=GO,PMR=NO
------------------------------------- PMLIB LIST USAGE --------------------------------------
@LIST WEBIODML MLIST C306M1C 2003/06/14 11:19 ADPRBH1H
---------------------------------------------------------------------------------------------
WHERE MESSAGES: JOB: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
START: CTLCRE8
START: CTLRPT
START: CTLUPDT
WHERE MESSAGES: 1
JCLIST JOB: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 2
RPT USER JOBCNTL JOB JOB PROC PROC PGM XREF
LINE CODES NAME IDENT STEP NAME STEP IDENT LINE
---------- 11-------- 21------ 31------ 41------ 51------ 61------ 73----
1 000001UJJ CTLCRE8 ADRBHRE8 VSAM IDCAMS 000006
2 000002 JJ CTLCRE8 ADRBHRE8 CNTLCRE8 CNTLCRE8 000017
3 000003UJJ CTLCRE8 ADRBHRE8 VERIFY IDCAMS 000028
4 000004 JJ CTLRPT ADRBHRPT CNTLRPT CNTLRPT 000006
5 000005 JJ CTLUPDT ADRBHPDT CNTLUPDT CNTLUPDT 000006
PM@JPT-M04 WEBIOD02 REPLACED IN PMLIB AS: JCLIST
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:02.74
--------------------
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:19
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.DSNAMES TITLE='DSN: '
@SV MLI=WEBIODML
@SV
@SV
@SV CAT=WEBIOD03
@SV ERR=GO,PMR=NO
------------------------------------- PMLIB LIST USAGE --------------------------------------
@LIST WEBIODML MLIST C306M1C 2003/06/14 11:19 ADPRBH1H
---------------------------------------------------------------------------------------------
WHERE MESSAGES: DSN: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
START: CTLCRE8
START: CTLRPT
START: CTLUPDT
WHERE MESSAGES: 1
DATASET LIST DSN: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
RPT USER PROCEDURE PGM DATA SET I/O RECFM F XREF
LINE CODES MEMBER NAME NAME DISP DDNAME UNIT LRECL BLKSZ FORM ID T LINE
1--------- 11-------- 21------ 31------------------------------------------ 45- 61------ 70 48- 51--- 56--- 61------69 73----
1 000001UJJ IDCAMS ***SYS:* OD SYSIN IC T 000007
2 000001UJJ IDCAMS ***SYS:SYSOUT=Q ND SYSPRINT OP T 000014
3 000002 JJ CNTLCRE8 ADRBH.PDS.LOAD S STEPLIB ID 000018
4 000002 JJ CNTLCRE8 ADRBH.CNTL.MASTER S CNTLER I 000019
5 000002 JJ CNTLCRE8 ***SYS:* OD DATAIN IC 000020
6 000002 JJ CNTLCRE8 ***SYS:SYSOUT=Q ND SYSDSPLY OP 000024
7 000003UJJ IDCAMS ADRBH.CNTL.MASTER S CNTLMSTR I T 000029
8 000003UJJ IDCAMS ***SYS:SYSOUT=Q ND SYSPRINT OP T 000030
9 000003UJJ IDCAMS ***SYS:* OD SYSIN IC T 000031
10 000004 JJ CNTLRPT ADRBH.PDS.LOAD S STEPLIB ID 000007
11 000004 JJ CNTLRPT ADRBH.CNTL.MASTER S CNTLER I 000008
12 000004 JJ CNTLRPT ***SYS:SYSOUT=Q ND PRINTER OP 000009
13 000004 JJ CNTLRPT ***SYS:SYSOUT=Q ND SYSDSPLY OP 000010
14 000005 JJ CNTLUPDT ADRBH.PDS.LOAD S STEPLIB ID 000007
15 000005 JJ CNTLUPDT ADRBH.CNTL.MASTER S CNTLER I 000008
16 000005 JJ CNTLUPDT ***SYS:SYSOUT=Q ND SYSDSPLY OP 000009
PM@DSL-M04 WEBIOD03 REPLACED IN PMLIB AS: DSLIST
--------------------
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:04.92
--------------------
SV RELEASE: C306M1C FUNCTION: WHERE
VBASE: O : ADPRBH1.ZEX.VBASE DATE: 06/14/2003
SYSLIB: O : ADPRBH1.ZEX.SOURCE TIME: 11:19
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.IODIAGRA TITLE='DIA: '
@SV JCL=WEBIOD02
@SV DSL=WEBIOD03
@SV
@SV ERR=GO,PMR=NO
------------------------------------- PMLIB LIST USAGE --------------------------------------
@LIST WEBIOD02 JCLIST C306M1C 2003/06/14 11:19 ADPRBH1H
@LIST WEBIOD03 DSLIST C306M1C 2003/06/14 11:19 ADPRBH1H
---------------------------------------------------------------------------------------------
I/O DIAGRAM DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
LIBRARY MEMBER DATA SET NAME RUN NO:00001
------- ---------- --------------------------------------------
JOBCNTL: CTLCRE8 ADPRBH1.ZEX.JOB
START START
JOB: ADRBHRE8 JOB STEP: VSAM
/------------.
// SYSIN |
|--DISP=OD ---|
|***SYS:* |
| |
'------+------'
|
|
|
|
|
|
|
|
.--------------------+--------------------.
| |
| |
| PGM=IDCAMS |
| |
| |
'--------------------+--------------------'
|
|
|
|
|
|
.------+------.
| SYSPRINT |
|--DISP=ND ---|
|***SYS:SYSOUT|
|=Q |
| |
'-----------'
JOB: ADRBHRE8 JOB STEP: VSAM
CONT'D END
I/O DIAGRAM DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 2
LIBRARY MEMBER DATA SET NAME RUN NO:00002
------- ---------- --------------------------------------------
JOBCNTL: CTLCRE8 ADPRBH1.ZEX.JOB
CONT'D START
JOB: ADRBHRE8 JOB STEP: CNTLCRE8
.------------. /------------.
.. CNTLER .. // DATAIN |
.--DISP=S --. |--DISP=OD ---|
.ADRBH.CNTL.M. |***SYS:* |
.ASTER . | |
.. .. '------+------'
.-----+------. |
| |
| |
| |
| |
'-------------+-----------'
|
|
.--------------------+--------------------.
| |
| |
| PGM=CNTLCRE8 |
| USING STEPLIB |
| DSN=ADRBH.PDS.LOAD |
'--------------------+--------------------'
|
|
|
|
|
|
.------+------.
| SYSDSPLY |
|--DISP=ND ---|
|***SYS:SYSOUT|
|=Q |
| |
'-----------'
JOB: ADRBHRE8 JOB STEP: CNTLCRE8
CONT'D END
I/O DIAGRAM DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 3
LIBRARY MEMBER DATA SET NAME RUN NO:00003
------- ---------- --------------------------------------------
JOBCNTL: CTLCRE8 ADPRBH1.ZEX.JOB
CONT'D START
JOB: ADRBHRE8 JOB STEP: VERIFY
.------------. /------------.
.. CNTLMSTR .. // SYSIN |
.--DISP=S --. |--DISP=OD ---|
.ADRBH.CNTL.M. |***SYS:* |
.ASTER . | |
.. .. '------+------'
.-----+------. |
| |
| |
| |
| |
'-------------+-----------'
|
|
.--------------------+--------------------.
| |
| |
| PGM=IDCAMS |
| |
| |
'--------------------+--------------------'
|
|
|
|
|
|
.------+------.
| SYSPRINT |
|--DISP=ND ---|
|***SYS:SYSOUT|
|=Q |
| |
'-----------'
JOB: ADRBHRE8 JOB STEP: VERIFY
END END
I/O DIAGRAM DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 4
LIBRARY MEMBER DATA SET NAME RUN NO:00004
------- ---------- --------------------------------------------
JOBCNTL: CTLRPT ADPRBH1.ZEX.JOB
START START
JOB: ADRBHRPT JOB STEP: CNTLRPT
.------------.
.. CNTLER ..
.--DISP=S --.
.ADRBH.CNTL.M.
.ASTER .
.. ..
.-----+------.
|
|
|
|
|
|
|
.--------------------+--------------------.
| |
| |
| PGM=CNTLRPT |
| USING STEPLIB |
| DSN=ADRBH.PDS.LOAD |
'--------------------+--------------------'
|
|
.-------------+-----------.
| |
| |
| |
.------+------. .------+------.
| PRINTER | | SYSDSPLY |
|--DISP=ND ---| |--DISP=ND ---|
|***SYS:SYSOUT| |***SYS:SYSOUT|
|=Q | |=Q |
| | | |
'-----------' '-----------'
JOB: ADRBHRPT JOB STEP: CNTLRPT
END END
I/O DIAGRAM DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 5
LIBRARY MEMBER DATA SET NAME RUN NO:00005
------- ---------- --------------------------------------------
JOBCNTL: CTLUPDT ADPRBH1.ZEX.JOB
START START
JOB: ADRBHPDT JOB STEP: CNTLUPDT
.------------.
.. CNTLER ..
.--DISP=S --.
.ADRBH.CNTL.M.
.ASTER .
.. ..
.-----+------.
|
|
|
|
|
|
|
.--------------------+--------------------.
| |
| |
| PGM=CNTLUPDT |
| USING STEPLIB |
| DSN=ADRBH.PDS.LOAD |
'--------------------+--------------------'
|
|
|
|
|
|
.------+------.
| SYSDSPLY |
|--DISP=ND ---|
|***SYS:SYSOUT|
|=Q |
| |
'-----------'
JOB: ADRBHPDT JOB STEP: CNTLUPDT
END END
CROSS REFERENCE OF JOB NAME DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 1
JOB NAME I/O DIAGRAM PAGE NUMBER
----------- --------------------------------- ---------------------------------------------------------------------
ADRBHPDT 5
ADRBHRE8 1 2 3
ADRBHRPT 4
CROSS REFERENCE OF JOB STEP DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 2
JOB STEP I/O DIAGRAM PAGE NUMBER
----------- --------------------------------- ---------------------------------------------------------------------
CNTLCRE8 2
CNTLRPT 4
CNTLUPDT 5
VERIFY 3
VSAM 1
CROSS REFERENCE OF PGM NAME DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 3
PGM NAME I/O DIAGRAM PAGE NUMBER
----------- --------------------------------- ---------------------------------------------------------------------
CNTLCRE8 2
CNTLRPT 4
CNTLUPDT 5
IDCAMS 1 3
CROSS REFERENCE OF DDNAME DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 4
DDNAME I/O DIAGRAM PAGE NUMBER
--------- --------------------------------- ---------------------------------------------------------------------
CNTLER 2 4 5
CNTLMSTR 3
DATAIN 2
PRINTER 4
SYSDSPLY 2 4 5
SYSIN 1 3
SYSPRINT 1 3
CROSS REFERENCE OF DATA SET NAMES DIA: ADPAC, USE BY AGREEMENT ONLY 06/14/2003 PAGE 5
DATA SET NAME I/O DIAGRAM PAGE NUMBER
----------- --------------------------------- ---------------------------------------
***SYS:* 1 2 3
***SYS:SYSOUT=Q 1 2 3 4 4 5
ADRBH.CNTL.MASTER 2 3 4 5
PM@000-10 NORMAL EOJ CPU HRS:00 MIN:00 SEC:06.39
--------------------