Enterprise Information Portals
Download
Report
Transcript Enterprise Information Portals
Application
Packaging Services
• This presentation was developed for Information
Architects, a software services organization.
• The presentation contains 18 slides.
• It has opened in a separate window and will run
automatically.
• The purpose of showing it here is to demonstrate my
Powerpoint development skills.
• To return to the website, simply close this window.
- Peter Martin
7/6/2015
2
Business Objectives
• To support Onsite Application Packaging Activity
– Field Based Results
• To insure Application Completeness
– No missing Programs
– No duplicates names
– No mixed languages
• To enhance Billing and Cash Flow
7/6/2015
3
Business Results
• Cross Application Information
– Cross team identification of ‘missing modules’
– Reduced set up time
• Increased Throughput
• Enhanced Productivity
7/6/2015
4
Proven Language Capabilities
COBOL
Assembler
Dyl280
Eztrieve
PL1
FORTRAN
Focus
Natural [Systrans]
RPG
Quickjob
CICS Maps
IDMS Schemas
JCL –
Procedures -
MVS Job Control
without Job Cards
Sorts -
external
Abstracts –
modules that
contain only comments and
blank lines.
10 languages to date
and still learning…...
7/6/2015
MVS Job Control
5
Packaging Steps
• Identify all Source Programs
– Determine Language Type
– Inventory and Line Counts
• Identify Duplicate Modules
• Identify External References
– Calls, Copys, Includes
– Assembler Macros
– Programs executed and Datasets Used
• Determine Missing Modules
• Automate Application Packaging
7/6/2015
6
Client
Tapes
7/6/2015
MVS
MVSMVS
Memtype
Dupcheck
External
references
Language +
Line counts
Duplicate
Modules
Copys,
Calls, etc
7
MVS
7/6/2015
Macros
Where
Missing
Assembler
Macros
Where Used
Report
Missing
Modules
8
MVS
Summary
Selecting
Application
Summary
Modules by
Language
Package
Unix
7/6/2015
9
Tape
Member Type Report
#
#
#
#
@
@
@
@
@
@
@
@
@
@
@
@
@
@
@
@
HUM001B1.QJB
L0PMAT1
MEMBER
COMBINE
FLUSTUDY
MAST
MEMBERS
MOVZON
MSRDAYS
OBGYN
QJSAMP01
QJSAMP02
QJSAMP03
QJSAMP04
QJSAMP05
QJSAMP06
QJSAMP07
QJSAMP08
URINC
# MEMBERS
##
16
7/6/2015
Q
Q
Q
Q
Q
Q
Q
Q
Q
Q
Q
Q
Q
Q
Q
Q
J
J
J
J
J
J
J
J
J
J
J
J
J
J
J
TYPE
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
QJB
test02
MEMBER TYPE REPORT
LINES
196
1
77
1
100
1
196
5
26
1
167
118
7
684
28
6
3996
187
96
1274
95
33
5809
359
97
2476
162
37
1422
57
25
1533
50
19
93
11
145
1
RUN TIME 01/25/1999
DATASET NAME
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:315
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
98:324
HUM001B1.QJB
RECORDS
18,312
NET
7,033
COM
965
BLANKS
314
HUM001B1.QJB
10
10:43
VOL SER
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
test02
1.2.0
Duplicate Members Report
# MEMBER
**** WX52
WX52
WX52
**** WX51
WX51
WX51
**** WX50
WX50
WX50
**** WXMI
WXMI
WXMI
TYPE
LINES
DATASET Name
CBL
ASM
581
419
DLS002A2.FILE3.CBL
DLS002A3.FILE4.ASM
CBL
JOB
1187
29
DLS002A2.FILE3.CBL
DLS002A3.FILE4.JCL
CBL
CBL
628
501
DLS002A2.FILE3.CBL
DLS002A3.FILE4.CBL
CBL
CBL
615
517
DLS002A2.FILE3.CBL
DLS002A3.FILE4.CBL
1,078,071
528
Early detection of duplicates!
7/6/2015
11
lines are in duplicate members
members are duplicates
External References Report
#
#
#
#
*
*
*
*
*
*
@
@
@
*
*
*
*
*
*
*
@
@
HUM001B1.QJB
L0PMAI1
EXTERNAL REFERENCES REPORT
7/6/2015
RUN TIME
FLUSTUDY DSN
|QUIKJOB.LOADLIB
3
FLUSTUDY EXEC |FOCUCC
5
FLUSTUDY EXEC |PGM=QUIKJOB
6
FLUSTUDY DSN
|PRODDWN.DW202.HOSP.INPAT
9
FLUSTUDY DSN
|PRODDWN.DW202.OTHER.FAC.
11
FLUSTUDY DSN
|BKM5955.FLUSTD.EXTRACT
13
MEMBER
LINES
COPYS
INCLUDES SORTS
FLUSTUDY
77
- - - - - - - - - |
MAST
DSN
|QUIKJOB.LOADLIB
3
MAST
EXEC |FOCUCC
5
MAST
EXEC |PGM=QUIKJOB
6
MAST
DSN
|PRODDWN.DW202.HOSP.INPAT
9
MAST
DSN
|PRODDWN.DW202.OTHER.FAC.
11
MAST
DSN
|BKM5955.MAST.EXT9698
13
MAST
DSN
|BKM5955.MAST.TABLE
18
MEMBER
LINES
COPYS
INCLUDES SORTS
MAST
100
## MEMBERS RECORDS
##
TEST02
16
18312
COPYS
INCLUDES
1
01/22/1999
15:15
1.2.0
18 |//JOBLIB
DD DSN=QUIKJOB.LOADLIB,DISP=SHR
15 |//FOCUCC
EXEC FOCUCC
15 |//STEP01
EXEC PGM=QUIKJOB
18 |//SYSUT1
DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0),
18 |//
DD DSN=PRODDWN.DW202. INPAT.FILE(0),
18 |//SYSUT2
DD DSN=BKM5955.FLUSTD.EXTRACT,
EXECS
CALLS
DSNS
2
4 | HUM001B1.QJB
TEST02
18 |//JOBLIB
DD DSN=QUIKJOB.LOADLIB,DISP=SHR
15 |//FOCUCC
EXEC FOCUCC
15 |//STEP01
EXEC PGM=QUIKJOB
18 |//SYSUT1
DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0),
18 |//
DD DSN=PRODDWN.DW202.INPAT.FILE(0),
18 |//SYSUT2
DD DSN=BKM5955.MAST.EXT9698,
18 |//SYSUT3
DD DSN=BKM5955.MAST.TABLE,
EXECS
CALLS
DSNS
2
5 | HUM001B1.QJB
TEST02
SORTS
EXECS
CALLS
47
125
51
12
DSNS
485
ALYDAAR.HUM001B1.QJB
External References - MVS JCL
#
#
#
#
*
*
*
*
*
*
@
@
@
*
*
*
*
*
*
*
@
@
HUM001B1.QJB
L0PMAI1
EXTERNAL REFERENCES REPORT
7/6/2015
RUN TIME
FLUSTUDY DSN
|QUIKJOB.LOADLIB
3
FLUSTUDY EXEC |FOCUCC
5
FLUSTUDY EXEC |PGM=QUIKJOB
6
FLUSTUDY DSN
|PRODDWN.DW202.HOSP.INPAT
9
FLUSTUDY DSN
|PRODDWN.DW202.OTHER.FAC.
11
FLUSTUDY DSN
|BKM5955.FLUSTD.EXTRACT
13
MEMBER
LINES
COPYS
INCLUDES SORTS
FLUSTUDY
77
- - - - - - - - - |
MAST
DSN
|QUIKJOB.LOADLIB
3
MAST
EXEC |FOCUCC
5
MAST
EXEC |PGM=QUIKJOB
6
MAST
DSN
|PRODDWN.DW202.HOSP.INPAT
9
MAST
DSN
|PRODDWN.DW202.OTHER.FAC.
11
MAST
DSN
|BKM5955.MAST.EXT9698
13
MAST
DSN
|BKM5955.MAST.TABLE
18
MEMBER
LINES
COPYS
INCLUDES SORTS
MAST
100
## MEMBERS RECORDS
##
TEST02
16
18312
COPYS
INCLUDES
1
01/22/1999
15:15
1.2.0
18 |//JOBLIB
DD DSN=QUIKJOB.LOADLIB,DISP=SHR
15 |//FOCUCC
EXEC FOCUCC
15 |//STEP01
EXEC PGM=QUIKJOB
18 |//SYSUT1
DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0),
18 |//
DD DSN=PRODDWN.DW202. INPAT.FILE(0),
18 |//SYSUT2
DD DSN=BKM5955.FLUSTD.EXTRACT,
EXECS
CALLS
DSNS
2
4 | HUM001B1.QJB
TEST02
18 |//JOBLIB
DD DSN=QUIKJOB.LOADLIB,DISP=SHR
15 |//FOCUCC
EXEC FOCUCC
15 |//STEP01
EXEC PGM=QUIKJOB
18 |//SYSUT1
DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0),
18 |//
DD DSN=PRODDWN.DW202.INPAT.FILE(0),
18 |//SYSUT2
DD DSN=BKM5955.MAST.EXT9698,
18 |//SYSUT3
DD DSN=BKM5955.MAST.TABLE,
EXECS
CALLS
DSNS
2
5 | HUM001B1.QJB
TEST02
SORTS
EXECS
CALLS
47
125
51
13
DSNS
485
ALYDAAR.HUM001B1.QJB
External References- Programs
#
#
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
MEMBER
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
CA4000
TYPE
SQL INC
SQL INC
COPY
COPY
COPY
COPY
CICS
CICS
CICS
CICS
CICS
SQL SEL
SQL SEL
SQL SEL
SQL SEL
CICSLINK
CALL
SQL SEL
CICSLINK
CALL
SQL SEL
SQL UPD
SQL SEL
SQL UPD
## MEMBERS RECORDS
##
7/6/2015
16
18312
11/02/1998
LINE
|TOCEMPC
539
|TOCFEMC
542
|HEXTBL
643
|CWADSECT
1327
|TWADSECT
1331
|OCTIOA
1335
|XCTL
10292
|RECEIVE
10329
|SEND
10447
|RETURN
10457
|INQUIRE
10512
|LOC_CD
10516
|USERID
10524
|USERID
10534
|LOC_CD
10759
|OLC1000
10799
|OLC1300
10820
|LOC_CD
11459
|OLC1000
11499
|OLC1300
11520
|COUNT(*)
11707
|TOCMEMO
11723
|COUNT(*)
11747
|TOCMEMO
11763
COPYS
INCLUDES
1
COLUMN
21
21
17
17
17
17
24
30
24
24
22
21
21
21
25
38
19
25
38
19
21
23
21
23
TEST04
AL0PMA.TEST.ONE
- - - - - - - - - - LINE IMAGE- - - - - - - - - |001158
EXEC SQL INCLUDE TOCEMPC
|001164
EXEC SQL INCLUDE TOCFEMC
|001366
COPY HEXTBL SUPPRESS.
|002734
COPY CWADSECT SUPPRESS.
|002742
COPY TWADSECT SUPPRESS.
|002750
COPY OCTIOA SUPPRESS.
|020664
EXEC CICS XCTL
|020738
EXEC CICS RECEIVE
|020974
EXEC CICS SEND TEXT
|020994
EXEC CICS RETURN END-EXEC.
|021104
EXEC CICS INQUIRE
|021112
EXEC SQL SELECT LOC_CD
|021128
EXEC SQL SELECT USERID
|021148
EXEC SQL SELECT USERID
|021598
EXEC SQL SELECT LOC_CD
|021678
EXEC CICS LINK PROGRAM( 'OLC1000')
|021720
CALL 'OLC1300' USING OLC1300C-WS.
|022998
EXEC SQL SELECT LOC_CD
|023078
EXEC CICS LINK PROGRAM( 'OLC1000')
|023120
CALL 'OLC1300' USING OLC1300C-WS.
|023494
EXEC SQL SELECT COUNT(*)
|023526
EXEC SQL UPDATE TOCMEMO
|023574
EXEC SQL SELECT COUNT(*)
|023606
EXEC SQL UPDATE TOCMEMO
SORTS
EXECS
CALLS
47
125
51
14
DSNS
485
ALYDAAR.HUM001B1.QJB
Where Used Report
# COPYS AND INCLUDES
10/08/1998
# MEMBER
TYPE COUNT
*
*
*
*
*
*
*
*
*
*
*
*
*
*
GETDTT
CALL
OPENA
OPENA
POSB
CLOSE
GET
POSR
READ
READ
DUMP
FDCARD
DATEEDIT
DATEEDI
CALL
CALL
CALL
CALL
INCLUDE
COPY
COPY
CALL
CALL
-INC
-INC
CALL
7
7
2
1
3
4
6
3
2
3
3
2
#
MEMBERS
RECORDS
COPYS
#
7/6/2015
822
20897
18
|
|
|
|
|
|
|
|
|
|
|
|
|
|
55
LINE
A00061
E00061
A00065
A00070
C00098
D00099
A00098
A00098
G00067
J00087
K00098
A00061
A00065
A00098
TEST02
DLS101A1.CBL
- - - - - - - - - - LINE IMAGE- - - - - - - - - -
A00065
F00065
A00067
A00087
D00099
A00067
G00067
A00068
A00098
A00099
A00099
H00068
K00098
M00099
A00065
A00087
D00088
B00087
C00098 D00099
I00070 J00087 K00098 M00099
M00099
INCLUDES
81
COLUMN
A00068
H00068
A00070
A00099
A00070
I00070
A00087
B00087
A00087
J00087
A00098
C00098
A00098 A00099 C00098 D00099
K00098 M00099
A00099
D00099
A00087
C00077
-INCS
++INC
362
15
CALLS
EXECS
5591
TEST02
DLS101A1.CBL
Assembler Macro Report
*
*
*
*
*
*
*
*
*
*
*
*
*
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MCPNMA00
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
MACRO/OP
@
@
MEMBER
MCPNMA00
RECORDS
919
7/6/2015
|XPCC
|XPCC
|SETIME
|WAITM
|PWRSPL
|XPCC
|XPCC
|XPCC
|EOJ
|DTFCN
|PWRSPL
|PWRSPL
|MAPXPCC
UNKNOWNS
14
116
139
165
168
195
526
602
620
643
865
883
889
895
10
10
10
10
10
10
10
10
10
10
10
10
10
OPCODES
593
|
|
|
|
|
|
|
|
|
|CONSOLE
|OWNSPL
|OWNSPLDS
|
MACROS
2
XPCC XPCCB=(R4),FUNC=IDENT
IDENTIFY 'MCKJA' TO AF-XPCC
XPCC XPCCB=(R4),FUNC=CONNECT
CONNECT TO VSE/POWER
SETIME 120,INTECB
INSTALL WAIT INTERVAL OF TWO MIN.
WAITM WAITLIST
WAIT FOR CONNECTION OR 2 MIN.
PWRSPL TYPE=UPD,SPL=OWNSPL,REQ=PUT,QUEUE=RDR
XPCC XPCCB=(R4),FUNC=SENDR
SEND BUFFER TO VSE/POWER
XPCC XPCCB=(R4),FUNC=DISCONN
DISCONNECT LINK TO VSE/POWER
XPCC XPCCB=(R4),FUNC=TERMIN
TERMINATE CROSS PART. INTERFACE
EOJ
NORMAL END OF MCKJA
PROGRAM
DTFCN DEVADDR=SYSLOG,
PWRSPL TYPE=GEN,USERID=RDFUSER1,PRFX=OWN
PWRSPL TYPE=MAP
MAPXPCCB
JCL
16
COMMENT
300
MISC |
|
TEST02
SFI101A1.ASM
Macro Where Used Report
WHERE USED REPORT
12/04/1998
MEMBER
USAGE
IS USED BY
* SETIME
8
9 |MCKJAA00 MCKJAA01 MCPNMA00 MCKJBA02 MCKJBA05 MCPOFA00 MCKJBA02 MCKJBA05
*+ SWI
9
9 |MCFKLA00 MCFKNA00 MCFKNA02 MCFKMA03 MGY00A00 MCFKLA00 MCFKNA00 MCFKMA03
* SWI
4
5 |MCF62A02 MCFKNA02 MCFKLA00 MCF62A05 MCF62A07
* S0GIVEM
1 |MGA86A00
* S0SAVEM
1 |MGA86A00
* S1ENTER
7
8 |MCF62A02 MGY00A00 MCFKNA00 MCFKLA00 MCF62A05 MCFKNA02 MCFKMA03 MCF62A07
* S1EXIT
7
8 |MGY00A00 MCFKMA03 MCFKNA00 MCFKNA02 MCFKLA00 MCF62A02 MCF62A05 MCF62A07
* TBTR
3 |MCCAXA00
* TBTS
2 |MCCAXA00
*+ TWAIT
9
9 |M8486C07 M8493A05 M8474C11 M8310A02 M8477C18 M8310A06 M8477C18 M8494A03
* TWAIT
4
5 |M8494A05 M8457D01 M8488I51 M8488I22 M8488I49
* VARYOFF
1 |MCT03A00
* VARYON
1 |MCT03A00
* WAITM
5
6 |MCKJAA00 MCKJAA01 MCPNMA00 MCKJBA02 MCKJBA05 MCPOFA00
* WTL
1 |MGY00A00
*+ XPCC
9
9 |MCKJAA01 MCKJAA00 MCPNMA00 MCKJBA02 MCKJBA05 MCPOFA00 MCKJAA00 MCKJAA01
*+ XPCC
9
10 |MCKJBA02 MCKJBA05 MCPOFA00 MCKCCA00 MCKJAA00 MCKJAA01 MCPNMA00 MCKJBA02
*+ XPCC
9
9 |MCPOFA00 MCKJAA00 MCKJAA01 MCPNMA00 MCKJAA00 MCKJAA01 MCPNMA00 MCKJBA02
* XPCC
4
7 |MCPOFA00 MCKJBA02 MCKJBA05 MCPOFA00 MCKCCA00
* XPCCB
6
6 |MCKJAA00 MCKJAA01 MCPNMA00 MCKJBA02 MCKJBA05 MCPOFA00 MCKCCA00
-------------------------------------------------------------------------------------------------------#
4395
RECORDS
2995
INCLUDES
UNIQUE - MEMBERS IN INVENTORY
7/6/2015
17
Missing Members Report
#
#
MISSING REFERENCES REPORT
MEMBER
*
@
@
@
*
@
@
*
#MISS
@
@
@
@
@
*
#MISS
*
#MISS
@
@
@
@
CETU
CETU
CEVALLOC
CMLGP
CMLSC
CMLSC
CODETAB
COMMIT
COMMIT
CSACCTLK
CSASGAPR
CSMSTR
CSTRACK
CTAPUNPK
DATECONV
DATECONV
DATEFIELD
DATEFIELD
DATEWORK
DATEWS
WSCOMPDT
ZIP
# MEMBERS
#
401
#MISS
7/6/2015
27
Y
Y
Y
CPY
CPY
CPY
32
56
51
Y
Y
CPY
CPY
87
28
Y
Y
Y
Y
Y
CPY
CPY
CPY
CPY
CPY
30
30
46
44
206
C
Y
Y
Y
CBL
CPY
CPY
CPY
5
20
40
61
04/14/1999
1 |KPVUS004
14
18
14
42
13
38
2 |KVCUV100 KQXEX003
13
74
14
14
2 |KPRUG001 KPPST100
< ? <
14
16
14
16
14
32
14
30
2
5
199
1 |KRCUN220
< ? <
1 |DATEWORK
< ? <
5
20
1
39
13
48
ALS001A1.CPY
ALS001A1.CPY
ALS001A1.CPY
TEST03
TEST03
TEST03
ALS001A1.CPY
ALS001A1.CPY
TEST03
TEST03
ALS001A1.CPY
ALS001A1.CPY
ALS001A1.CPY
ALS001A1.CPY
ALS001A1.CPY
TEST03
TEST03
TEST03
TEST03
TEST03
ALS001A1.CPY
ALS001A1.CPY
ALS001A1.CPY
ALS001A1.CPY
TEST03
TEST03
TEST03
TEST03
MISSING REFERENCES ARE IN THE APPLICATION
18
Based on Where Used Report