190 likes | 521 Views
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.
E N D
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 -
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
Business Results • Cross Application Information • Cross team identification of ‘missing modules’ • Reduced set up time • Increased Throughput • Enhanced Productivity
CICS Maps IDMS Schemas JCL –MVSJob Control Procedures -MVS Job Control without Job Cards Sorts -external Abstracts –modules that contain only comments and blank lines. COBOL Assembler Dyl280 Eztrieve PL1 FORTRAN Focus Natural [Systrans] RPG Quickjob Proven Language Capabilities 10 languages to date and still learning…...
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
Client Tapes MVS MVS MVS Memtype Dupcheck External references Language + Line counts Duplicate Modules Copys, Calls, etc Application Inventory
MVS Macros Where Missing Assembler Macros Where Used Report Missing Modules Application Inventory
MVS Summary Selecting Package Application Summary Modules by Language Unix Tape Application Inventory
Member Type Report # HUM001B1.QJB test02 # # L0PMAT1 MEMBER TYPE REPORT RUN TIME 01/25/1999 10:43 1.2.0 # MEMBER TYPE LINES DATASET NAME VOL SER @ COMBINE Q J QJB 196 1 98:324 HUM001B1.QJB test02 @ FLUSTUDY Q J QJB 77 1 98:324 HUM001B1.QJB test02 @ MAST Q J QJB 100 1 98:324 HUM001B1.QJB test02 @ MEMBERS Q J QJB 196 5 98:324 HUM001B1.QJB test02 @ MOVZON Q QJB 26 1 98:324 HUM001B1.QJB test02 @ MSRDAYS Q J QJB 167 98:315 HUM001B1.QJB test02 @ OBGYN Q J QJB 118 7 98:324 HUM001B1.QJB test02 @ QJSAMP01 Q J QJB 684 28 6 98:324 HUM001B1.QJB test02 @ QJSAMP02 Q J QJB 3996 187 96 98:324 HUM001B1.QJB test02 @ QJSAMP03 Q J QJB 1274 95 33 98:324 HUM001B1.QJB test02 @ QJSAMP04 Q J QJB 5809 359 97 98:324 HUM001B1.QJB test02 @ QJSAMP05 Q J QJB 2476 162 37 98:324 HUM001B1.QJB test02 @ QJSAMP06 Q J QJB 1422 57 25 98:324 HUM001B1.QJB test02 @ QJSAMP07 Q J QJB 1533 50 19 98:324 HUM001B1.QJB test02 @ QJSAMP08 Q J QJB 93 11 98:324 HUM001B1.QJB test02 @ URINC Q J QJB 145 1 98:324 HUM001B1.QJB test02 # MEMBERS RECORDS COM BLANKS NET ## 16 18,312 965 314 7,033 HUM001B1.QJB test02
Early detection of duplicates! 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
External References Report # HUM001B1.QJB TEST02 # # L0PMAI1 EXTERNAL REFERENCES REPORT RUN TIME 01/22/1999 15:15 1.2.0 # * FLUSTUDY DSN |QUIKJOB.LOADLIB 3 18 |//JOBLIB DD DSN=QUIKJOB.LOADLIB,DISP=SHR * FLUSTUDY EXEC |FOCUCC 5 15 |//FOCUCC EXEC FOCUCC * FLUSTUDY EXEC |PGM=QUIKJOB 6 15 |//STEP01 EXEC PGM=QUIKJOB * FLUSTUDY DSN |PRODDWN.DW202.HOSP.INPAT 9 18 |//SYSUT1 DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0), * FLUSTUDY DSN |PRODDWN.DW202.OTHER.FAC. 11 18 |// DD DSN=PRODDWN.DW202. INPAT.FILE(0), * FLUSTUDY DSN |BKM5955.FLUSTD.EXTRACT 13 18 |//SYSUT2 DD DSN=BKM5955.FLUSTD.EXTRACT, @ MEMBER LINES COPYS INCLUDES SORTS EXECS CALLS DSNS @ FLUSTUDY 77 2 4 | HUM001B1.QJB TEST02 @ - - - - - - - - - | * MAST DSN |QUIKJOB.LOADLIB 3 18 |//JOBLIB DD DSN=QUIKJOB.LOADLIB,DISP=SHR * MAST EXEC |FOCUCC 5 15 |//FOCUCC EXEC FOCUCC * MAST EXEC |PGM=QUIKJOB 6 15 |//STEP01 EXEC PGM=QUIKJOB * MAST DSN |PRODDWN.DW202.HOSP.INPAT 9 18 |//SYSUT1 DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0), * MAST DSN |PRODDWN.DW202.OTHER.FAC. 11 18 |// DD DSN=PRODDWN.DW202.INPAT.FILE(0), * MAST DSN |BKM5955.MAST.EXT9698 13 18 |//SYSUT2 DD DSN=BKM5955.MAST.EXT9698, * MAST DSN |BKM5955.MAST.TABLE 18 18 |//SYSUT3 DD DSN=BKM5955.MAST.TABLE, @ MEMBER LINES COPYS INCLUDES SORTS EXECS CALLS DSNS @ MAST 100 2 5 | HUM001B1.QJB TEST02 ## MEMBERS RECORDS COPYS INCLUDES SORTS EXECS CALLS DSNS ## 16 18312 1 47 125 51 485 ALYDAAR.HUM001B1.QJB
External References - MVS JCL # HUM001B1.QJB TEST02 # # L0PMAI1 EXTERNAL REFERENCES REPORT RUN TIME 01/22/1999 15:15 1.2.0 # * FLUSTUDY DSN |QUIKJOB.LOADLIB 3 18 |//JOBLIB DD DSN=QUIKJOB.LOADLIB,DISP=SHR * FLUSTUDY EXEC |FOCUCC 5 15 |//FOCUCC EXEC FOCUCC * FLUSTUDY EXEC |PGM=QUIKJOB 6 15 |//STEP01 EXEC PGM=QUIKJOB * FLUSTUDY DSN |PRODDWN.DW202.HOSP.INPAT 9 18 |//SYSUT1 DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0), * FLUSTUDY DSN |PRODDWN.DW202.OTHER.FAC. 11 18 |// DD DSN=PRODDWN.DW202. INPAT.FILE(0), * FLUSTUDY DSN |BKM5955.FLUSTD.EXTRACT 13 18 |//SYSUT2 DD DSN=BKM5955.FLUSTD.EXTRACT, @ MEMBER LINES COPYS INCLUDES SORTS EXECS CALLS DSNS @ FLUSTUDY 77 2 4 | HUM001B1.QJB TEST02 @ - - - - - - - - - | * MAST DSN |QUIKJOB.LOADLIB 3 18 |//JOBLIB DD DSN=QUIKJOB.LOADLIB,DISP=SHR * MAST EXEC |FOCUCC 5 15 |//FOCUCC EXEC FOCUCC * MAST EXEC |PGM=QUIKJOB 6 15 |//STEP01 EXEC PGM=QUIKJOB * MAST DSN |PRODDWN.DW202.HOSP.INPAT 9 18 |//SYSUT1 DD DSN=PRODDWN.DW202.HOSP.INPAT.FILE(0), * MAST DSN |PRODDWN.DW202.OTHER.FAC. 11 18 |// DD DSN=PRODDWN.DW202.INPAT.FILE(0), * MAST DSN |BKM5955.MAST.EXT9698 13 18 |//SYSUT2 DD DSN=BKM5955.MAST.EXT9698, * MAST DSN |BKM5955.MAST.TABLE 18 18 |//SYSUT3 DD DSN=BKM5955.MAST.TABLE, @ MEMBER LINES COPYS INCLUDES SORTS EXECS CALLS DSNS @ MAST 100 2 5 | HUM001B1.QJB TEST02 ## MEMBERS RECORDS COPYS INCLUDES SORTS EXECS CALLS DSNS ## 16 18312 1 47 125 51 485 ALYDAAR.HUM001B1.QJB
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. * CA4000 SQL SEL |LOC_CD 11459 25 |022998 EXEC SQL SELECT LOC_CD * CA4000 CICSLINK |OLC1000 11499 38 |023078 EXEC CICS LINK PROGRAM( 'OLC1000') * CA4000 CALL |OLC1300 11520 19 |023120 CALL 'OLC1300' USING OLC1300C-WS. * CA4000 SQL SEL |COUNT(*) 11707 21 |023494 EXEC SQL SELECT COUNT(*) * CA4000 SQL UPD |TOCMEMO 11723 23 |023526 EXEC SQL UPDATE TOCMEMO * CA4000 SQL SEL |COUNT(*) 11747 21 |023574 EXEC SQL SELECT COUNT(*) * CA4000 SQL UPD |TOCMEMO 11763 23 |023606 EXEC SQL UPDATE TOCMEMO ## MEMBERS RECORDS COPYS INCLUDES SORTS EXECS CALLS DSNS ## 16 18312 1 47 125 51 485 ALYDAAR.HUM001B1.QJB
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
Assembler Macro Report * MCPNMA00 MACRO/OP |XPCC 116 10 | XPCC XPCCB=(R4),FUNC=IDENT IDENTIFY 'MCKJA' TO AF-XPCC * MCPNMA00 MACRO/OP |XPCC 139 10 | XPCC XPCCB=(R4),FUNC=CONNECT 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 TYPE=UPD,SPL=OWNSPL,REQ=PUT,QUEUE=RDR * MCPNMA00 MACRO/OP |XPCC 526 10 | XPCC XPCCB=(R4),FUNC=SENDR SEND BUFFER TO VSE/POWER * MCPNMA00 MACRO/OP |XPCC 602 10 | XPCC XPCCB=(R4),FUNC=DISCONN DISCONNECT LINK TO VSE/POWER * MCPNMA00 MACRO/OP |XPCC 620 10 | XPCC XPCCB=(R4),FUNC=TERMIN TERMINATE CROSS PART. INTERFACE * MCPNMA00 MACRO/OP |EOJ 643 10 | EOJ NORMAL END OF MCKJA PROGRAM * MCPNMA00 MACRO/OP |DTFCN 865 10 |CONSOLE DTFCN DEVADDR=SYSLOG, * MCPNMA00 MACRO/OP |PWRSPL 883 10 |OWNSPL PWRSPL TYPE=GEN,USERID=RDFUSER1,PRFX=OWN * MCPNMA00 MACRO/OP |PWRSPL 889 10 |OWNSPLDS PWRSPL TYPE=MAP * MCPNMA00 MACRO/OP |MAPXPCC 895 10 | MAPXPCCB @ MEMBER RECORDS UNKNOWNS OPCODES MACROS JCL COMMENT MISC | @ MCPNMA00 919 14 593 2 300 | 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
Missing Members Report # MISSING REFERENCES REPORT 04/14/1999 # MEMBER * CETU 1 |KPVUS004 @ CETU Y CPY 32 14 18 ALS001A1.CPY TEST03 @ CEVALLOC Y CPY 56 14 42 ALS001A1.CPY TEST03 @ CMLGP Y CPY 51 13 38 ALS001A1.CPY TEST03 * CMLSC 2 |KVCUV100 KQXEX003 @ CMLSC Y CPY 87 13 74 ALS001A1.CPY TEST03 @ CODETAB Y CPY 28 14 14 ALS001A1.CPY TEST03 * COMMIT 2 |KPRUG001 KPPST100 #MISS COMMIT < ? < @ CSACCTLK Y CPY 30 14 16 ALS001A1.CPY TEST03 @ CSASGAPR Y CPY 30 14 16 ALS001A1.CPY TEST03 @ CSMSTR Y CPY 46 14 32 ALS001A1.CPY TEST03 @ CSTRACK Y CPY 44 14 30 ALS001A1.CPY TEST03 @ CTAPUNPK Y CPY 206 2 5 199 ALS001A1.CPY TEST03 * DATECONV 1 |KRCUN220 #MISS DATECONV < ? < * DATEFIELD 1 |DATEWORK #MISS DATEFIELD < ? < @ DATEWORK C CBL 5 5 ALS001A1.CPY TEST03 @ DATEWS Y CPY 20 20 ALS001A1.CPY TEST03 @ WSCOMPDT Y CPY 40 1 39 ALS001A1.CPY TEST03 @ ZIP Y CPY 61 13 48 ALS001A1.CPY TEST03 # MEMBERS # 401 #MISS 27 MISSING REFERENCES ARE IN THE APPLICATION Based on Where Used Report