Application

1

• Application
• Packaging Services

2

• 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
• -

3
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

4
Business Results

• Cross Application Information
• Cross team identification of missing modules
• Reduced set up time
• Increased Throughput
• Enhanced Productivity

5
Proven Language Capabilities

• COBOL
• Assembler
• Dyl280
• Eztrieve
• PL1
• FORTRAN
• Focus
• Natural Systrans
• RPG
• Quickjob

• CICS Maps
• IDMS Schemas
• JCL MVS Job Control
• 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...
6
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
Application Inventory
8
Application Inventory
9
Application Inventory
10
Member Type Report

• HUM001B1.QJB
  test02
• L0PMAT1 MEMBER TYPE REPORT
  RUN TIME 01/25/1999 1043 1.2.0
• MEMBER TYPE LINES
  DATASET NAME VOL SER
• _at_ COMBINE Q J QJB 196 1
  98324 HUM001B1.QJB test02
• _at_ FLUSTUDY Q J QJB 77 1
  98324 HUM001B1.QJB test02
• _at_ MAST Q J QJB 100 1
  98324 HUM001B1.QJB test02
• _at_ MEMBERS Q J QJB 196 5
  98324 HUM001B1.QJB test02
• _at_ MOVZON Q QJB 26 1
  98324 HUM001B1.QJB test02
• _at_ MSRDAYS Q J QJB 167
  98315 HUM001B1.QJB test02
• _at_ OBGYN Q J QJB 118 7
  98324 HUM001B1.QJB test02
• _at_ QJSAMP01 Q J QJB 684 28 6
  98324 HUM001B1.QJB test02
• _at_ QJSAMP02 Q J QJB 3996 187 96
  98324 HUM001B1.QJB test02
• _at_ QJSAMP03 Q J QJB 1274 95 33
  98324 HUM001B1.QJB test02
• _at_ QJSAMP04 Q J QJB 5809 359 97
  98324 HUM001B1.QJB test02
• _at_ QJSAMP05 Q J QJB 2476 162 37
  98324 HUM001B1.QJB test02
• _at_ QJSAMP06 Q J QJB 1422 57 25
  98324 HUM001B1.QJB test02
• _at_ QJSAMP07 Q J QJB 1533 50 19
  98324 HUM001B1.QJB test02
• _at_ QJSAMP08 Q J QJB 93 11
  98324 HUM001B1.QJB test02

MEMBERS RECORDS COM BLANKS
NET 16 18,312 965 314
7,033 HUM001B1.QJB test02
11
Duplicate Members Report

• MEMBER TYPE LINES DATASET Name
• WX52
• WX52 CBL 581 DLS002A2.FILE3.CBL
• WX52 ASM 419 DLS002A3.FILE4.ASM
• WX51
• WX51 CBL 1187 DLS002A2.FILE3.CBL
• WX51 JOB 29 DLS002A3.FILE4.JCL
• WX50
• WX50 CBL 628 DLS002A2.FILE3.CBL
• WX50 CBL 501 DLS002A3.FILE4.CBL
• WXMI
• WXMI CBL 615 DLS002A2.FILE3.CBL
• WXMI CBL 517 DLS002A3.FILE4.CBL

1,078,071 lines are in duplicate members
528 members are
duplicates
12
External References Report

• HUM001B1.QJB
  TEST02
  
• 
  
  
• L0PMAI1 EXTERNAL REFERENCES REPORT
  RUN TIME 01/22/1999 1515
  1.2.0
• 
  
  
• FLUSTUDY DSN QUIKJOB.LOADLIB
  3 18 //JOBLIB DD DSNQUIKJOB.LOADLIB,DISPS
  HR
• FLUSTUDY EXEC FOCUCC
  5 15 //FOCUCC EXEC FOCUCC
  
• FLUSTUDY EXEC PGMQUIKJOB
  6 15 //STEP01 EXEC PGMQUIKJOB
  
• FLUSTUDY DSN PRODDWN.DW202.HOSP.INPAT
  9 18 //SYSUT1 DD DSNPRODDWN.DW202.HOSP.INP
  AT.FILE(0),
• FLUSTUDY DSN PRODDWN.DW202.OTHER.FAC.
  11 18 // DD DSNPRODDWN.DW202.
  INPAT.FILE(0),
• FLUSTUDY DSN BKM5955.FLUSTD.EXTRACT
  13 18 //SYSUT2 DD DSNBKM5955.FLUSTD.EXTRAC
  T,
• _at_ MEMBER LINES COPYS INCLUDES SORTS
  EXECS CALLS DSNS
  
• _at_ FLUSTUDY 77
  2 4 HUM001B1.QJB
  TEST02
• _at_ - - - - - - - - -
  
  
• MAST DSN QUIKJOB.LOADLIB
  3 18 //JOBLIB DD DSNQUIKJOB.LOADLIB,DISPS
  HR
• MAST EXEC FOCUCC
  5 15 //FOCUCC EXEC FOCUCC
  
• MAST EXEC PGMQUIKJOB
  6 15 //STEP01 EXEC PGMQUIKJOB
  
• MAST DSN PRODDWN.DW202.HOSP.INPAT
  9 18 //SYSUT1 DD DSNPRODDWN.DW202.HOSP.INP
  AT.FILE(0),
• MAST DSN PRODDWN.DW202.OTHER.FAC.
  11 18 // DD DSNPRODDWN.DW202.INPAT.F
  ILE(0),
• MAST DSN BKM5955.MAST.EXT9698
  13 18 //SYSUT2 DD DSNBKM5955.MAST.EXT9698,
  

MEMBERS RECORDS COPYS INCLUDES SORTS
EXECS CALLS DSNS
16
18312 1 47 125
51 485 ALYDAAR.HUM001B1.QJB
13
External References - MVS JCL

• HUM001B1.QJB
  TEST02
  
• 
  
  
• L0PMAI1 EXTERNAL REFERENCES REPORT
  RUN TIME 01/22/1999 1515
  1.2.0
• 
  
  
• FLUSTUDY DSN QUIKJOB.LOADLIB
  3 18 //JOBLIB DD DSNQUIKJOB.LOADLIB,DISPS
  HR
• FLUSTUDY EXEC FOCUCC
  5 15 //FOCUCC EXEC FOCUCC
  
• FLUSTUDY EXEC PGMQUIKJOB
  6 15 //STEP01 EXEC PGMQUIKJOB
  
• FLUSTUDY DSN PRODDWN.DW202.HOSP.INPAT
  9 18 //SYSUT1 DD DSNPRODDWN.DW202.HOSP.INP
  AT.FILE(0),
• FLUSTUDY DSN PRODDWN.DW202.OTHER.FAC.
  11 18 // DD DSNPRODDWN.DW202.
  INPAT.FILE(0),
• FLUSTUDY DSN BKM5955.FLUSTD.EXTRACT
  13 18 //SYSUT2 DD DSNBKM5955.FLUSTD.EXTRAC
  T,
• _at_ MEMBER LINES COPYS INCLUDES SORTS
  EXECS CALLS DSNS
  
• _at_ FLUSTUDY 77
  2 4 HUM001B1.QJB
  TEST02
• _at_ - - - - - - - - -
  
  
• MAST DSN QUIKJOB.LOADLIB
  3 18 //JOBLIB DD DSNQUIKJOB.LOADLIB,DISPS
  HR
• MAST EXEC FOCUCC
  5 15 //FOCUCC EXEC FOCUCC
  
• MAST EXEC PGMQUIKJOB
  6 15 //STEP01 EXEC PGMQUIKJOB
  
• MAST DSN PRODDWN.DW202.HOSP.INPAT
  9 18 //SYSUT1 DD DSNPRODDWN.DW202.HOSP.INP
  AT.FILE(0),
• MAST DSN PRODDWN.DW202.OTHER.FAC.
  11 18 // DD DSNPRODDWN.DW202.INPAT.F
  ILE(0),
• MAST DSN BKM5955.MAST.EXT9698
  13 18 //SYSUT2 DD DSNBKM5955.MAST.EXT9698,
  

MEMBERS RECORDS COPYS INCLUDES SORTS
EXECS CALLS DSNS
16
18312 1 47 125
51 485 ALYDAAR.HUM001B1.QJB
14
External References- Programs

• 11/02/1998
  TEST04 AL0PMA.TEST.ONE
  
• MEMBER TYPE LINE COLUMN
  - - - - - - - - - - LINE IMAGE- - - - - - - - -
  -
• CA4000 SQL INC TOCEMPC 539 21
  001158 EXEC SQL INCLUDE TOCEMPC
  
• CA4000 SQL INC TOCFEMC 542 21
  001164 EXEC SQL INCLUDE TOCFEMC
  
• CA4000 COPY HEXTBL 643 17
  001366 COPY HEXTBL SUPPRESS.
  
• CA4000 COPY CWADSECT 1327 17
  002734 COPY CWADSECT SUPPRESS.
  
• CA4000 COPY TWADSECT 1331 17
  002742 COPY TWADSECT SUPPRESS.
  
• CA4000 COPY OCTIOA 1335 17
  002750 COPY OCTIOA SUPPRESS.
  
• CA4000 CICS XCTL 10292 24
  020664 EXEC CICS XCTL
  
• CA4000 CICS RECEIVE 10329 30
  020738 EXEC CICS RECEIVE
  
• CA4000 CICS SEND 10447 24
  020974 EXEC CICS SEND TEXT
  
• CA4000 CICS RETURN 10457 24
  020994 EXEC CICS RETURN END-EXEC.
  
• CA4000 CICS INQUIRE 10512 22
  021104 EXEC CICS INQUIRE
  
• CA4000 SQL SEL LOC_CD 10516 21
  021112 EXEC SQL SELECT LOC_CD
  
• CA4000 SQL SEL USERID 10524 21
  021128 EXEC SQL SELECT USERID
  
• CA4000 SQL SEL USERID 10534 21
  021148 EXEC SQL SELECT USERID
  
• CA4000 SQL SEL LOC_CD 10759 25
  021598 EXEC SQL SELECT LOC_CD
  
• CA4000 CICSLINK OLC1000 10799 38
  021678 EXEC CICS LINK PROGRAM( 'OLC1000')
  
• CA4000 CALL OLC1300 10820 19
  021720 CALL 'OLC1300' USING OLC1300C-WS.
  

MEMBERS RECORDS COPYS INCLUDES SORTS
EXECS CALLS DSNS
16
18312 1 47 125
51 485 ALYDAAR.HUM001B1.QJB
15
Where Used Report

• COPYS AND INCLUDES 10/08/1998
  TEST02 DLS101A1.CBL
  
• MEMBER TYPE COUNT LINE
  COLUMN - - - - - - - - - - LINE IMAGE- - - - -
  - - - - -
• GETDTT CALL 18 A00061 A00065
  A00067 A00068 A00070 A00087 A00098 A00099 C00098
  D00099
• E00061 F00065
  G00067 H00068 I00070 J00087 K00098 M00099
• OPENA CALL 7 A00065 A00067
  A00068 A00070 A00087 A00098 A00099
• OPENA CALL 7 A00070 A00087
  A00098 A00099 B00087 C00098 D00099
• POSB CALL 2 C00098 D00099
• CLOSE CALL 1 D00099
• GET INCLUDE 3 A00098 A00099
  B00087
• POSR COPY 4 A00098 A00099
  C00098 D00099
• READ COPY 6 G00067 H00068
  I00070 J00087 K00098 M00099
• READ CALL 3 J00087 K00098
  M00099
• DUMP CALL 2 K00098 M00099
• FDCARD -INC 3 A00061 A00065
  A00087
• DATEEDIT -INC 3 A00065 A00087
  C00077
• DATEEDI CALL 2 A00098 D00088
  

MEMBERS RECORDS COPYS INCLUDES -INCS
INC CALLS EXECS
822
20897 55 81 362
5591 TEST02 DLS101A1.CBL

16
Assembler Macro Report

• MCPNMA00 MACRO/OP XPCC 116 10
  XPCC XPCCB(R4),FUNCIDENT IDENTIFY 'MCKJA'
  TO AF-XPCC
• MCPNMA00 MACRO/OP XPCC 139 10
  XPCC XPCCB(R4),FUNCCONNECT CONNECT TO
  VSE/POWER
• MCPNMA00 MACRO/OP SETIME 165 10
  SETIME 120,INTECB INSTALL WAIT INTERVAL
  OF TWO MIN.
• MCPNMA00 MACRO/OP WAITM 168 10
  WAITM WAITLIST WAIT FOR CONNECTION
  OR 2 MIN.
• MCPNMA00 MACRO/OP PWRSPL 195 10
  PWRSPL TYPEUPD,SPLOWNSPL,REQPUT,QUEUERDR
  
• MCPNMA00 MACRO/OP XPCC 526 10
  XPCC XPCCB(R4),FUNCSENDR SEND BUFFER TO
  VSE/POWER
• MCPNMA00 MACRO/OP XPCC 602 10
  XPCC XPCCB(R4),FUNCDISCONN DISCONNECT LINK
  TO VSE/POWER
• MCPNMA00 MACRO/OP XPCC 620 10
  XPCC XPCCB(R4),FUNCTERMIN TERMINATE CROSS
  PART. INTERFACE
• MCPNMA00 MACRO/OP EOJ 643 10
  EOJ NORMAL END OF MCKJA
  PROGRAM
• MCPNMA00 MACRO/OP DTFCN 865 10
  CONSOLE DTFCN DEVADDRSYSLOG,
• MCPNMA00 MACRO/OP PWRSPL 883 10 OWNSPL
  PWRSPL TYPEGEN,USERIDRDFUSER1,PRFXOWN
  
• MCPNMA00 MACRO/OP PWRSPL 889 10
  OWNSPLDS PWRSPL TYPEMAP
  
• MCPNMA00 MACRO/OP MAPXPCC 895 10
  MAPXPCCB

_at_ MEMBER RECORDS UNKNOWNS OPCODES
MACROS JCL COMMENT MISC
_at_
MCPNMA00 919 14 593 2
300 TEST02
SFI101A1.ASM
17
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

18
Missing Members Report

• MISSING REFERENCES REPORT
  04/14/1999
• MEMBER
• CETU 1
  KPVUS004
• _at_ CETU Y CPY 32 14
  18 ALS001A1.CPY TEST03
• _at_ CEVALLOC Y CPY 56 14
  42 ALS001A1.CPY TEST03
• _at_ CMLGP Y CPY 51 13
  38 ALS001A1.CPY TEST03
• CMLSC 2
  KVCUV100 KQXEX003
• _at_ CMLSC Y CPY 87 13
  74 ALS001A1.CPY TEST03
• _at_ CODETAB Y CPY 28 14
  14 ALS001A1.CPY TEST03
• COMMIT 2
  KPRUG001 KPPST100
• MISS COMMIT lt ? lt
• _at_ CSACCTLK Y CPY 30 14
  16 ALS001A1.CPY TEST03
• _at_ CSASGAPR Y CPY 30 14
  16 ALS001A1.CPY TEST03
• _at_ CSMSTR Y CPY 46 14
  32 ALS001A1.CPY TEST03
• _at_ CSTRACK Y CPY 44 14
  30 ALS001A1.CPY TEST03
• _at_ CTAPUNPK Y CPY 206 2 5
  199 ALS001A1.CPY TEST03
• DATECONV 1
  KRCUN220

MEMBERS 401 MISS 27
MISSING REFERENCES ARE IN THE APPLICATION

Based on Where Used Report