Project Status
Client/Agency: Colonial Life/TEK Systems
Project Duration: July 2008 - December 2008.
-09/02/2008 Contract cut short(9/19/08) due to monetary constraints - Managers reference available for explaination.
-09/19/2008 Contract picked up by new group at Colonial September - November 14.
-09/30/2008 Contract extended same group at Colonial November - December 31.
Hours Monday thru Thurseday 0730 - 1700, Friday 0730 - 1600.
Bottom of Page/ Linkage Sites
/Last Week//Passion for Java Technology
Project Summary:
To add new Data Warehouse core tables & business views to include paid commission data for both Accrued & Actual Pay transactions.
New processing:
FormatDSS or APAY records(converting to statement format), using sorts(SORTER) port changes & date checks(commands in EXPRESSION columns) to create intermediate DSN (used for table loads).
Skillsets Employed:
COBOL 370/DB2/IMS/Informatica.
Classes Attended:
None
Week 1, 7/23 - 7/28
Goals: Review project requirements, getting up to speed with shop standards & INFORMATICA, administrative tasks i.e. ID's, badge, weekly status reports.
Weekly Status: Logon Id's established(TSO & Network), printers connected ID acquired, LAN, TSO & E-Mail set up, RACF authorities granted. Tested DB2 Access to core tables(SPUFI). Reviewed Daily, Weekly & Monthly Batch support job streams.
Problems: Unable to load INFORMATICA software to machine(authority problem, Access problem logging on to TimeReporting System.
Week 2, 7/28 - 8/03.
Goals: Complete Assigned tasks, Master following; INFORMATICA, Batch update stream & Table relationships (core-historical subset of ODS & ODS-business). Gain Admin access to machine, resolve access problems to colonialnet (required for time reporting system). Fax last weeks hours. Get authority to create mapps into INFORMATEC ACCEPTTEST repository.
Weekly Status: Completed following: Faxed timesheet to Tek systems, installed INFORMATICA & gained access to time reporting system. Hours established Monday thru Thurseday 0730 - 1700, Friday 0730 - 1600. Established working sessions with Teradata and SPUFI. Insight,MVS - DB2 tool to evaluate running querys, similar to DB2 EXPLAIN. Successfully created mapping to sort MVS flat file by company code & send results to server.
Classes Attended:
N/A.
Required Knowledge: Teradata SQL Assistant (Server Data Base Access), Spufi (MVS Data Base Access) and INFORMATICA (Power Center Designer, Work Flow Manager & Work Flow Monitor).
Problems: Unable to assign hours to shop time reporting system - resolved 7/30.
Week 3, 8/04 - 8/10.
Goals: Complete Assigned tasks, Gain proficiency with following INFORMATICA components;
Power Center Designer, Work Flow Manager and Work Flow Monitor.
Master following; INFORMATICA, Batch update stream & Table relationships (core-historical subset of ODS & ODS-business). Gain proficiency with interactive software apps to access MVS DB2 tables (SPUFI, Teradata & INFORMATICA-PowerBuilder). walk thru Colonial tables via Teradata. Need simple tasks to solidify INFORMATICA software abilities.
Weekly Status: Completed following: Completed VISIO diagram to describe project processing, reviewed core table relationships. Modified existing program (ZDWPPSPD), added logic to remove left leading spaces from W03-PLAN-CD-DESCR. Program mods tested, loaded into DBT for user OK. Created JCL to compile/link DB2/Cobol batch programs.
INFORMATICA Tasks:
Create simple sort of flat file as input onto server as output, completed.
Required Knowledge: Panvalet (Source control), Compile rtn (JCL/Dialog) and Programming standards.
Problems: Lacking CCCPROD authority.
Week 4, 8/11 - 8/17.
Goals: Complete Assigned tasks, Gain proficiency with following INFORMATICA components;
Power Center Designer, Work Flow Manager and Work Flow Monitor.
Master following; INFORMATICA, Batch update stream & Table relationships (core-historical subset of ODS & ODS-business). Gain proficiency with interactive software apps to access MVS DB2 tables (SPUFI, Teradata & INFORMATICA-PowerBuilder). Modify program ADWPPAPZ, to include new sort logic & move program mods(ZDWPPSPD) to production.
Weekly Status: Completed following: Completed mods to ADWPPAPZ, ran job stream with unmodified DSN(OK), modified 1st middle & last records(duplicating records-OK) also tested output modifications (tested OK). Created JCL to compile/link Cobol batch programs(A6608.LIB.CNTL(COMP)). Added DB2 steps to ADWPPAPZ, tested against prod load run, OK. User Approved test for LTRIM program mods.
Problems: Still Lacking CCCPROD authority.
Week 5, 8/18 - 8/24.
Goals: Complete Assigned tasks, Gain proficiency with following INFORMATICA components;
Power Center Designer, Work Flow Manager and Work Flow Monitor.
Master following; INFORMATICA, Batch update stream & Table relationships (core-historical subset of ODS & ODS-business). Continue to work with interactive software apps to access MVS DB2 tables (SPUFI, Teradata & INFORMATICA-PowerBuilder).
Move LTRIM mods to production, initiate parallel testing for ADWPPAPZ
Weekly Status: Completed following: Started Parallel Testing 8/19/2008 11:29:18 AM for sort task(8/19-8/21). Mods for LTRIM to program ZDWPPSPD moved to production.
Assigned new task;
New one ZDWTHGRP – This was my production issue from yesterday. We have a way to make a change to this process, but it requires a change to a flat file. I wish to be able to make a change to a table using update sql which is less risky. The program is ADWPGIFE which is part of job ADWZAGEX. We will be adding a DB2 call to this program to get the SIC code of all BCNs in ZGITACCT so that a change can be made to the ACCT table to correct SIC codes that have been entered incorrectly. The preference would be to do this in a cursor to save CPU time. The thing that may cause a problem is that the input file is compared to another file in ADWPGIFE. I don’t know what order they are in but they are both created in MGIZGIF1 which creates ZGITACCT. Please check the order of the two files and determine the best way to change the sic code of the file that loads ZDWTHGRP. Currently program comparing two input files will add cursor & in effect throw a 3rd file compare, writing Matching BCN/SIC_CD into non used output files.
Problems: Still Lacking CCCPROD authority.
Week 6, 8/25 - 8/31.
Goals: Complete Assigned tasks, Gain proficiency with following INFORMATICA components;
Power Center Designer, Work Flow Manager and Work Flow Monitor.
Master following; INFORMATICA, Batch update stream & Table relationships (core-historical subset of ODS & ODS-business). Gain proficiency with interactive software apps to access MVS DB2 tables (SPUFI, Teradata & INFORMATICA-PowerBuilder). Continue Parallel Testing for sort task(8/25-8/30), resolve question(s) from 8/22 - results OK. Run JCL for ADWZAGEX (prod load). Tested mods to ADWZAGEX 8/27-8/29, testing OK.
Weekly Status: Completed following: Continued Parallel Testing 8/25/2008 11:29:18 AM for sort task(8/25), 8/26 - 8/29 Replace vice Resume testing. Mods for LTRIM to program ZDWPPSPD OKed by uusers, already in production. Modified & tested program changes to ADWPGIFE, SIC field add(DB2 Cursor add), tested 8/27-8/29.
Task Assigned: In that program where you just did the LTRIM, there’s a problem with the logic in which records we want to keep. Currently it is doing an inner join between the product data and the plan data. We need it to be a left join keeping all of the data from the product table and matching the appropriate plan data if it exists. This affects the same program, ZDWPPSPL. Let me know what questions you have. The matching key in the program is UWG_CO_ID, PLAN_CD, GAAP_CD.
Problems: None.
Week 7, 9/01 - 9/07.
Goals: Complete Assigned tasks, Gain proficiency with following INFORMATICA components;
Power Center Designer, Work Flow Manager and Work Flow Monitor.
Master following; INFORMATICA, Batch update stream & Table relationships (core-historical subset of ODS & ODS-business). Gain proficiency with interactive software apps to access MVS DB2 tables (SPUFI, Teradata & INFORMATICA-PowerBuilder). Continue Parallel Testing for sort task(9/02-9/05). Resolve questions for ZDWPPSPD modification request(8/28/2008), continue testing of ADWPPAPZ(8/08/2008). Problem with origional code.
Assigned (9/05) following task: Modify above code, just keeping policy number and payor IPN which are in the output of the program already. The rest can be stripped.
Compile using IMS compile.
Create JC, using proc ADWACWD step PS40.
The final output file needs to be in a TEST.ADW… format so that I’m able to read it. I assume by TEST.ADW I have free reign to name remainder of DSN?
Weekly Status: Completed following: Testing ADWPPAPZ(9/02 OK) & ZDWTHGRP(9/02 OK). Modified & tested changes for program ZDWPPSPD. Created new IMS program CDWPCWD4 (Compiled/Linked 04 return code). Run JCL with prod load OK, run with test load OC1(Calling external modual). Reviewing Compile/Link JCL for linkage error.
Problems: None.
Week 8, 9/08 - 9/14.
Goals: Complete Assigned tasks, Gain proficiency with following INFORMATICA components;
Power Center Designer, Work Flow Manager and Work Flow Monitor.
Master following; INFORMATICA, Batch update stream & Table relationships (core-historical subset of ODS & ODS-business). Gain proficiency with interactive software apps to access MVS DB2 tables (SPUFI, Teradata & INFORMATICA-PowerBuilder). Continue Parallel Testing for sort task(8/25-8/30). Resolve questions for ZDWPPSPD modification request(8/28/2008), continue testing of ADWPPAPZ(8/08/2008). Problem with origional code.
Weekly Status: Completed following: Modified program CDWPCWD4/CDWXCWD4 testing started Tuesday, September 02, 2008. Compile/Link problems, faulty JCL. System took a hit 9/10, problems corrected 9/11(correct output generated). Job running 9/12 0800, 26 million records.
Assigned following task:
The program to modify is ZDWPDBCN from job ADWZDMNS. ZWVRDBCN is calculating its market dimensions from ZDWRSMDF using MKT_METH_ID = '02'. It should be using MKT_METH_ID = '04'. The field in ZWVRDBCN that need updating are:
- SUB_MKT_ID
- TARGET_MKT_ID
- PS_IND
- SUB_MKT_ID_DESC
This request is related to New Sales Dimension Tables (UL Deliverable III).
Status: Program ZDWPDBCN compiled & run (no mods) to create bench mark.
Problems: None.
Week 9, 9/15 - 9/21. *******
Goals: Last week, clean up any remaining tasks, time sheet signed & shore up skills with informatica.
Weekly Status: Completed following:
Ad-Hoc extract job completed 9/13 10 million IPN's found 19 million not found. Completed mods & testing of 9/12 task, passed on to client.
Program ZDWPDBCN modified/tested. 9/12 request, modified data loaded into test DB2 table (9/17), waiting user approval.
Problems: None.
Week 10, 9/22 - 9/28.
Goals: Transition to new group, gain familiarity with new group, coding three tasks:
1) Break current program into two , one to generate error free pols & a 2nd to generate error pols.
2) Add sort to process, to sort on date vice summary number.
3) Plug up current system DB2 commit/rollback flaws.
Also need to resolve problems Identified by user for task Assigned: 08/28/2008
Three problems:
1. 42 combos missing from the DBT table. They are all GAAP code 54, Group Hybrid Cancer.
2. "Initialize" & Zero initilization problem, matter for user clarification.
3. The addition of a another column, indicating the “source” of the data, and therefore, whether the columns values are accurate, matter for user clarification.
Weekly Status: Completed following: Verified missing 42 combos not coming from left outer join, they coming from inner join (waiting for user feed back).
Analyzed new groups request, Identified programs, compile JCL & reviewed three programs.
Reinstalled VISIO on machine, created a flow chart for program AEAPPCCD. Need to review program for DB2 Commit/Rollback problems.
Entered time with clarity (new time reporting system).
Problems: None.
Week 11, 9/29 - 10/05.
Goals: Transition to new group, gain familiarity with new group, coding three tasks:
1) Break current program into two , one to generate error free pols & a 2nd to generate error pols.
2) Add sort to process, to sort on date vice summary number.
3) Plug up current system DB2 commit/rollback flaws.
Weekly Status: Completed following:
Interviewed with Hagemeyer Group, first impressions: Totalitarian Marxist Group.
Programs ZEAPEASD, ZEAPSSM0 modified, compiled and linked, Programs AEAPSSUM compiled and linked (to bring in new copybooks). Production & Qual JCL, Procs & SYSINs modified/created.
Job scan performed on following:
QEAZEASB No Errors
QEAZEASC Missing SYSIN
AEAZEASB No Errors
AEAZEASC Missing SYSIN
SYSIN overrides moved into Qual JCL members, GDG had to be renamed, shop standards preclude DSN with more then three qualifiers.
Task components under review by MH.
Problems: None.
Week 12, 10/06 - 10/12.
Goals: Continued Transition, complete following;
Complete currenttask & test.
Plug up current system DB2 commit/rollback flaws in program AEAPPCCD.
Weekly Status: Completed following:
Interviewed with Hagemeyer Group, first impressions: Totalitarian Marxist Group.
Programs ZEAPEASD, ZEAPSSM0 modified, compiled and linked, Programs AEAPSSUM compiled and linked (to bring in new copybooks). Production & Qual JCL, Procs & SYSINs modified/created.
Job scan performed on following:
QEAZEASB No Errors
QEAZEASC Missing SYSIN
AEAZEASB No Errors
AEAZEASC Missing SYSIN
SYSIN overrides moved into Qual JCL members, GDG had to be renamed, shop standards preclude DSN with more then three qualifiers.
All Modifications made waiting until the changes currently being tested in the unit level can be moved on out of the way (ETC 10/16/08).
Currently tearing apart program ZEAPPCCD, in a attempt to get to know it better.
Problems: None.
Week 13, 10/13 - 10/19.
Goals: Test mods (UNIT) for 9/22 task, complete analysis of AEAPPCD.
Weekly Status: Completed following:
Completed flow chart for APEAPCCD, continued testing task 8/20/2008. Ran data against system DBT, OPEN CURSOR DECLARE RETURN CODE = - 805.
Starting UNIT testing for Testing the splitting of AEAZEASB 10/16/08. Returned data questioned, added displays waiting for application expertise for resolution.
Moved AEAPPCCD documents to 'O' drive (VISIO & WORD).
Problems: Irregularities in summary sales data returned in UNIT test run, task 08/20/2008 bounded, when run strange results.
Week 14, 10/20 - 10/26.
Goals: Complete testing for current assigned tasks. Complete analysis of AEAPPCD & start something new.
Weekly Status: Completed following:
AEAPPCCD Analysis (10/20 1500-1730).
For details see 20081020-Task. Completed VISIO flow chart for AEAPPCCD. Completed analysis of AEAPPCCD Screen System Abends.
Problems: None.
Week 15, 10/27 - 11/02.
Goals: Continue analysis of AEAPPCCD, focusing on TTA processing, it should not over lay AEAPPCCD status code, possibly use new status code? TTA processing should also take place after normal processing completed. Review active task attempt to tie up loose ends.
Weekly Status: Completed following:
Contract extension End of Year.
Completed analysis of AEAPPCCD for the following areas:
System Error Modifications, Primary Processing Routine Modifications, Error Tracking (TAA) Modifications, ID'ed ERROR Routines for “Data Getters” ie. “ZEAP* Calls” & ID Code with no error checking. VISIO/Word/Excel Documenting AEAPPCCD logic flow completed & moved to ‘O' Drive.
Problems: None.
Week 16, 11/03 - 11/09.
Goals: Reinstall INFORMATICA on machine, review dormant tasks, waiting on Mathew. Get approval for proposed AEAPPCCD modifications & clear up data problems from job split task(assigned 9/22)/ZEAPSSM0 modifications(not all table rows returned) ID tables rows not returned.
Its official we have gone to "HELL" and may all those scum bags that voted for that scum bag enjoy the ride.
Weekly Status: Completed following:
New tack taken on AEAPPCCD analysis, will starting from routine 2000 analyzing all routines performed in 2000 in detail. Shop protocol requires a detailed document listing all code modification (for each routine). Following code mods moved to production; ZDWPPSPD and ZDWPDBCN 11/06/08.
Problems: None.
Week 17, 11/10 - 11/16. *******
Goals: Complete detailed analysis of routine 2000-CALL-MAINLINES. New tasks. TEK Systems rep coming to site 11/10, purpose query user about contract continuation into 2009. 11/10/08 unattended FRAG job hosed DB2 tables, Disaster Recovery successfully performed.
Weekly Status: Completed following:
Scheduled AEAPPCCD code review meeting for 11/17, proposed code modifications phase a completed:
Subject modifications fall into three categories:
Main Screen System Error Modifications for Sales Summary, Policy & Application Screens.
Error Tracking (TAA) Modifications.
Misc. Corrections.
Main screen system modifications hashed out during 11/06/08 meeting.
Error tracking I attempted to add some consistency, i.e. Applications Errors & System Errors should
be performing the same tasks, i.e. TAA DB2 table inserts(4001), table commits(else subsequent roll
backs will wipe out these inserts) & setting the program status codes.
Reviewed code modifications for job split project (project currently in limbo). Reviewed active tasks for Mathew (also in limbo).
Problems: None.
Week 18, 11/17 - 11/23.
Goals: Review logic flow for program AEAPPCCD & attend scheduled meeting with Mark & Karen (11/18,1500-1600/review of proposed code modifications for program AEAPPCCD). Contract End Date confirmed 12/31/2008. New tasks.
Weekly Status: Completed following: Attempted to rebind & rerun programs ADWPGIFE (BIND AUTHORIZATION ERROR), active task for MB. Met wit MH:
Following discrepancies noted from 11/18/2008 meeting:
1. Routine 3000-CALL-POLICY-COUNT fails to set AEAYSSM1-PROCESS-STAT to “F” and to create a sales summary
message table entry.
2. Routine 0100-PROCESS-CONTROL properly sets AEAYSSM1-PROCESS-STAT to “F” for W02-ERROR-WITH-SSUM but it
fails to create a sales summary message table entry.
3. I omitted to set AEAYSSM1-PROCESS-STAT to “F” for ‘DISASTER’ screen errors.
4. I misinterpreted the tracking error code, assuming that disaster errors were not committing TAA
table inserts, when in fact they are committed prior to routine 9900-TERMINATE.
Updated code document:
1. Modify 2000 routine error trap to write sales summary messages for discrepancies 1 & 2 sited above.
2. Modify 2000 routine error trap to set process-stat to ‘F’ for routine 3000 errors.
3. Will modify code in AEAPCNT/8400 to retrieve error description.
4. Will add code to set process stat field to ‘F’ for disaster situations & in some cases non successful events.
5. Reevaluate Error Tracking.
6. Reviewed scenario if discription field blank uuse designated code literal.
'DISASTER/SUICIDE' senarios drop ouut to routine 0200. No disaster message generated & responce code not set. No appropriate message, no appropriate responce code, possible displays thats all.
11/20/08 meeting canceled, extensive production problems.
11/19 INFORMATICA reinstalled on machine, created a a simple script to sort input file by company ID & Policy number, ascending order. No access to repositories.
11/20 Official Last Day 12/31/08.
11/21 Walked thru AEAPPCCD, Problem if App error switch set for all non NO-ERROR-EIA errors then the current TAA logic hosed. Currently program logic differentiates between system errors & W02-ERROR-WITH-APP-SW errrors. Solution convert TAA 'IF's to IF/ELSE i.e. if disaster else if app error. Meeting with MH set up for 11/26-1400.
Problems: Unable to BIND program ADWPGIFE (BIND AUTHORIZATION ERROR), active task for MB.
Week 19, 11/24 - 11/30.Short week(11.24-11.26/Thanksgiving - finding less & less to be thankfull for) MH out 11/24-11/25, will probaply be swamped 11/26. Do not expect to get anything done this week. Identify individual error traps & required settings for each trap. Add code modifications outlined below. Meeting 11/26, per modifications to program AEAPPCCD.
Weekly Status: Completed following:
Problems: No application resources available to answer following app questions for AEAPPCCD:
AEAYSSM1-PROCESS-STAT set by RTN 9600, controls program flow, acceptable values R/C/F.
ATRYTAA0-NOT-SUCCESSFUL/ ATRYTAA0-SUCCESSFUL-processing complete /processing not complete set in RTN 9650.
ATRYM001-M006-PROC-STATUS set in RTN 0200, TTA field acceptable values R/C/F.
W02-ERROR-WITH-SSUM-SW Switch initialized in 0100, set throughout
W02-ERROR-WITH-APP-SW Switch set throughout, init in 0100/2000/8000.
W02-ERROR-WITH-POL-SW Switch set 2000 RTN’s.
1. Should all Non Successful(Disaster level) errors & Disaster errors set AEAYSSM1-PROCESS-STAT to ‘F’ &
generate appropriate AEAYSMG0 table entry? If so need to place code in final nested ‘IF’ to handle non
successful system errors generated from data getters etc?
ANSWER: AEAYSSM1-PROCESS-STAT set to 'F' for all policy errors ie roll backs, add code in nested 'IF'.
2. Sales Summary Errors, per last conversation added AEAYSMG0 table insert routine.
3. Policy Errors generate a table tracking entry and a Sales Summary table entry, nothing that indicates a
policy error has occurred. Error tracking for Non Successful (TTA) inserted. RTN 0200 will Set
ATRYM001-M006-PROC-STATUS to ‘R’. desired?
ANSWER: AEAYSSM1-PROCESS-STAT set to 'F' & AEAYPMG0 table entry inserted for all policy errors error traps.
4. By setting all MainLine Screen errors to app errors we will be setting their ATRYM001-M006-PROC-STATUS to ‘R’
(RTN 0200-TAA), desired results?
ANSWER: ATRYM001-M006-PROC-STATUS to 'F' system level(code resulting in program termination).
Prepare documentation for MH's meeting:
0100-PROCESS-CONTROL(additional Disaster Error Trapping), Modification to Main Line Error Trapping (setting AEAYSSM1-PROCESS-STAT/9600) and Error Tracking code(TAA).
Meeting with MH set for 11/26-1500-1600, IAW created word document summarizing proposed code mods from 11/17 meeting.
11/26 Created VISIO diagrams of modified code.
Week 20, 12/01 - 12/07.
Goals: Find answers to following:
1. Do I have all the required data Disaster Error Trap in nested IF?
2. How will I test run job when code finally approved?
New tasks, update code mods IAW 11/26 meeting.
Weekly Status: Completed following:
Meeting with MH & KH scheduled for 12/02-1500 - 1600, pertaining to remainder of 11/26 agenda items. Ran full virus scan on machine (761,539 recs scanned - 0 threats/scanned stick 164,003 recs scanned - 0 threats).
Summary of Changes to attached code document from 12/0208 meeting:
1. Reviewed Nested “IF’ in 0100 RTN (Error Trap for uncaught ‘Disaster’ errors.
2. Reviewed Main Line Screen error trap mods for RTN’s 3100/3200/3300.
3. Modified RTNs 4000 (app level & ind App), removing unset 88’s & perform untils performed once.
12/04 meeting reviewed program mods for routines MainLine, 2000, 3100, 3200, 3300, 4000-APP-UNIT-OF-WORK & 4000-PROCESS-ONE-APP.
ods OK'ed (additional code mods added). Adding code review to routines 5000+ and 8000+ (for obsolescent code, updated VISIO diagrams for routines that will be modified)in preparation for 12/09 meeting. Completed Preliminary Code modification document for routines 4000+ & 5000+, will review befor diseminating (moved to 'O' drive for save keepings).
Problems: None.
Week 21, 12/08 - 12/14.
Goals: Review code mods for routines 5000+ & 8000+ and add to code document for review, Meeting with MH 12/09 to review code mods for AEAPPCCD.
Weekly Status: Completed following:
12/08-09 - Mods completed for routines 3000+, 4000+ and 5000+. Still to be comleted routines 8000+. Complete VISIO updates for modified routines (4000+), expectations for 12/09 meeting; completion of 4000+ routine review & partial completion of routines 5000+.
12/10 - Complete code mods for routines 8000+, schedule next review meeting with MH. Meeting resched to 12/10, completed code review (routine 5000) up to routine 5201, corrected code mods made.
New tasks.
Problems: None.
Week 22, 12/15 - 12/22.
Goals: Attend meeting with MH 3/15.1530-1630 AEAPPCCD (completed up to 5000/5201). Compile approved program modifications(AEAPPCCD), pseudo name, objective clean compile.
Weekly Status: Completed following:
Meeting with MH cancelled, to be resheculed 12/17.
12/17 meeting left off at routine 5000, perform 5900. Next meeting 12/22.
Question, are all errors captured (DISASTER & application level errors)? Code standardization achieved (to an acceptable degree)? Simplification of main routine? TTA processing, does it over lay AEAPPCCD status code? Does TTA processing take place after the completion of normal processing?
Review AEAPPCCD mods in reference to above questions. Disaster errors effectively handled (caught; appropriate DB2 table message generated & process status set to FATAL). Application errors not so sure. Code standardization achieved (to an acceptable degree). Code standardization achieved at least to an acceptable degree. Simplification of main routine also achieved. TTA processing appears to function within required parameters, will continue review.
Problems: None.
Week 23, 12/23 - 12/28. Short Week (30 hours)
Goals:Clean up & close program modification, document follows:
Revisit original assumptions & objectives of project, restated as follows:
1. Review known program run problems, list follows;
a. Agent submittals are lost.
b. Large amount of manual intervention required.
c. Disaster records not written.
d. Program processing flow.
e. Program code inconsistent.
2. Program modifications;
a. Create a common disaster/disaster+/other routine, It should enerate a status code (not necessarily an “E”),
generate a DB2 message entry (SMGO/AMGO/PMGO dependent on where in the program the disaster occurred),
commit these changes & gracefully drop out of processing that particular record.
b. Modify the primary processing routine (should be a lot simpler).
c. Reviewed TTA processing, it should not over lay AEAPPCCD status code, possibly use new status code?
Found no problem with TTA processing code.
d. Modify programming flow, fatal (disaster) errors will be dealt with as application errors, status code
generated, message written & next record processed.
3. Code modification document is in the process of construction, currently reviewing routine 5000
(perform routine 5900), next meeting with MH expected early next week. Code document should be completed
by next week.
4. Plan on implementing code in copy of production program (different name) shortly after document completion.
5. Code modifications do they correct run problems identified in step one, plan on reviewing program & code
codifications to answer this question.
Preliminary analysis indicates following:
a. Majority (if not all) of code drop outs are corrected.
b. Redundant code removed, ie. switches never used & redundant 'perform untils' removed untils.
c. Standardization of error traps for main-line error traps.
d. Primary routine simplified and additional documentation added.
e. Program code where ‘DISASTER’ errors dropping out, corrected.
Weekly Status: Completed following:
Created copy of production AEAPPCCD (DEAPPCCD), will make program modifications after 12/23 meeting. Get time card signed by 12/24.
To copy PANVALET member program into a newly created PANVALET program member perform following:
C99999 in Column 1 thru 6 & type CUT on command line, then PF6 to recipient DSN. Type A on column 1 and PASTE on command line, hit enter.
Review a current production problem brought to my attention by MH (i.e. when a job abends and a policy
is marked non processed when the job is restarted the job should process all non errored policies.
Currently the policies after the restart
(THE SCREEN IS IN INTERRUPT RECOVERY/PREVIOUS TXN = PCCXA2ET)are completed and those policies preceding
the error are not processed. Thus mandating manual intervention on the remaining policies).
Problems: None.
Week 24, 12/29 - 12/31. Short Week (33 hours) *******
Goals: Last week, Review production problem ref in week 23, review code modification document for idiot errors, complete VISIO of modified routines, time sheet signed & faxed. Clean up all supportintg documentation on 'O' drive. Delete personal data from laptop & file for unemployment, effective 01/01/2009.
Weekly Status: Completed following:
Cleaned computer and ‘O’ drive of any personal data, Reviewing current production program design flaw(AEAPPCCD):
Batch/Policies finalized in routine 3300, each batch/policy processed in routine 4000 (also performed in routine 2000) & committed after successful processing (within routine 4000/4000 performed until all policies within a batch are successfully processed or system error occurs). When job restarted batch policies that were marked complete/committed prior to system error are omitted from restart processing and are subsequently not finalized in routine 3300, problem these policies must now be m manually processed.
Reviewing production abend AEAZEASR. Filed for unemployment(NC).
Solutions
1. Remove application level commit, just have batch commit.
2. Roll Back scenario encountered, perform routine 3300. Policies that have processed successfully already committed , policies in error rolled back. Perform step code thru.
Problems: None.
******* Contract Drop Dead Points
Usefull Shop Functions:
Testing production ABEND
Build test job in TEST.MUP.JCLLIB(jobname).
Place displays in program(ZEAPEASF), Compile JCL: TEST.MUP.JCLLIB(MAC4CMP*).
Rebind any DB2 programs using TEST.MUP.JCLLIB(READBIND).
Create requuired GDG's.
Change Jobcard.
SDSF Tips
1. PRE typed on the command line will change your PREFIX, i.e. pre a6608* will filter out all jobs not starting with a6608 i.e.
Display Filter View Print Options Help
--------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 1-2 (2)
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
A6608ASR JOB06481 A6608 9 EXECUTION H 308X
A6608 TSU03579 A6608 15 EXECUTION 308X 308X
COMMAND INPUT ===> pre a3t08rbd SCROLL ===>
hit enter
Display Filter View Print Options Help
---------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 1-9 (9)
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
A3T08RBD JOB06463 A6608 1 PRINT A 2995
A3T08RBD JOB06462 A6608 1 PRINT A 2994
A3T08RBD JOB06458 A6608 1 PRINT A 2993
A3T08RBD JOB06439 A6608 1 PRINT A 2992
A3T08RBD JOB06432 A6608 1 PRINT A 2989
A3T08RBD JOB06409 A6608 1 PRINT A 2985
A3T08RBD JOB06405 A6608 1 PRINT A 2984
A3T08RBD JOB06400 A6608 1 PRINT A 2983
A3T08RBD JOB06395 A6608 1 PRINT A 2982
COMMAND INPUT ===> SCROLL ===>
2. 'O' on the job line i.e.
Display Filter View Print Options Help
----------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 1-3 (3)
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
o A6608GDG JOB05976 A6608 1 PRINT A 2901
A6608ASR JOB06481 A6608 9 EXECUTION H 308X
A6608 TSU03579 A6608 15 EXECUTION 308X 308X
hit enter
Display Filter View Print Options Help
--------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES COMMAND ISSUED
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
A6608GDG JOB05976 A6608 1 PRINT A 2901
A6608ASR JOB06481 A6608 9 EXECUTION H 308X
A6608 TSU03579 A6608 15 EXECUTION 308X 308X
3. 'SJ' on the job line i.e. brings up the JCL which can be edited & submitted but not saved i.e.
Display Filter View Print Options Help
----------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES DATA SET DISPLAYED
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
sj A3T08RBD JOB06463 A6608 1 PRINT A 2990
A3T08RBD JOB06462 A6608 1 PRINT A 2989
A3T08RBD JOB06458 A6608 1 PRINT A 2988
A3T08RBD JOB06439 A6608 1 PRINT A 2987
A3T08RBD JOB06432 A6608 1 PRINT A 2984
A3T08RBD JOB06409 A6608 1 PRINT A 2980
A3T08RBD JOB06405 A6608 1 PRINT A 2979
A3T08RBD JOB06400 A6608 1 PRINT A 2978
A3T08RBD JOB06395 A6608 1 PRINT A 2977
hit enter
SDSF EDIT A3T08RBD (JOB06463) JCLEDIT Columns 00001 00072
****** ***************************** Top of Data *****************************
000001 //A3T08RBD JOB (T-8130-00,M387),'READ COLLID BIND',
000002 // MSGCLASS=Q,CLASS=A,NOTIFY=&SYSUID
000003 //*
000004 //*-------------------------------------------------------------------
000005 //* PACKAGE BIND TO THE READ COLLECTION ID - ZRDCLID0
000006 //* THE OWNER IS ZDBPREAD
000007 //* THE PLAN IS ZRDXTEST - THIS IS THE FIRST PARM FOR DFSRRCO00
000008 //* BE SURE TO SPECIFY ZRDXTEST AS THE PLAN IN YOUR JCL/PROC/SYSIN
000009 //*-------------------------------------------------------------------
000010 //*
000011 //JS10 EXEC PGM=IKJEFT01,DYNAMNBR=20
000012 //STEPLIB DD DSN=DBMS.MVS3.DBP.SDSNEXIT,DISP=SHR
000013 // DD DSN=DBMS.MVS3.DBP.SDSNLOAD,DISP=SHR
000014 //SYSTSPRT DD SYSOUT=*
000015 //SYSPRINT DD SYSOUT=*
000016 //SYSUDUMP DD SYSOUT=*
000017 //SYSOUT DD SYSOUT=*
000018 //REPORT DD SYSOUT=*
000019 //SYSTSIN DD *
000020 DSN SYSTEM (DBP)
Command ===> Scroll ===> CSR
Rebind any DB2 programs using TEST.MUP.JCLLIB(READBIND).
Create requuired GDG's.
Change Jobcard.
4. '?' on the specific job line i.e. brings up the Job in detail i.e.
Display Filter View Print Options Help
-----------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 1-12 (12)
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
? A6608ASR JOB02163 A6608 1 PRINT H 3133
A6608RBD JOB02140 A6608 1 PRINT A 3118
A6608RBD JOB02137 A6608 1 PRINT A 3117
A6608RBD JOB02135 A6608 1 PRINT A 3116
A6608RBD JOB02133 A6608 1 PRINT A 3115
A6608CBL JOB01974 A6608 1 PRINT C 3091
A6608CBL JOB01946 A6608 1 PRINT C 3083
A6608CBL JOB01898 A6608 1 PRINT C 3066
A6608ASR JOB01534 A6608 1 PRINT H 3016
A6608CBL JOB01508 A6608 1 PRINT C 3002
A6608CBL JOB01161 A6608 1 PRINT C 2986
A6608 TSU00706 A6608 15 EXECUTION 308X 308X
COMMAND INPUT ===> SCROLL ===> CSR
hit enter
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF JOB DATA SET DISPLAY - JOB A6608ASR (JOB02163) LINE 1-8 (8)
NP DDNAME StepName ProcStep DSID Owner C Dest Rec-Cnt Page
JESMSGLG JES2 2 A6608 Q LOCAL 47
JESJCL JES2 3 A6608 Q LOCAL 224
JESYSMSG JES2 4 A6608 Q LOCAL 142
SYSPRINT JS10 PS05 101 A6608 Q LOCAL 2
SYSTSPRT JS10 PS10 102 A6608 Q LOCAL 8
SYSPRINT JS10 PS15 108 A6608 Q LOCAL 2
SYSTSPRT JS10 PS20 109 A6608 Q LOCAL 6
SYSUDUMP JS10 PS20 111 A6608 3 LOCAL 53,615
COMMAND INPUT ===> SCROLL ===> CSR
1. Use of CA-Insight for DB2 to monitor DB2 batch jobsi.e.
TSO Path: V.11;P;O;5;6
Creation of Test/Production GDG's - A6608.LIB.CNTL(BUILDG)/TEST.WORK.SYSIN(BLDGDG)
/*******************************************************************/
/* ( DAVID HUENGER ) */
DEFINE GDG(NAME(TEST.AEAQ.xxxxxxxx) SCRATCH LIMIT(90))
DEFINE GDG(NAME(TEST.AEAQ.xxxxxxxx) SCRATCH LIMIT(90))
DEFINE GDG(NAME(CLA.AEA.xxxxxxxx) SCRATCH LIMIT(30))
DEFINE GDG(NAME(CLA.AEA.xxxxxxxx) SCRATCH LIMIT(30))
Note per shop standards can have no more then three quals.
Job Scans - TSO Option V.6;1
Comparison of Panval Source: V.9;3;7
Usefull DSN's:
TEST.WORK.SYSIN
TEST.WORK.JOBLIB
TEST.WORK.PROCLIB
TEST.WORK.COPYLIB
TEST.MUP.SYMBOLS
CLA.PROD.JCLLIB(ADW*)
CLA.PROD.PROCLIB(ADWA*)
CLA.PROD.SYSIN(ADW* AND ZDW*)
CLA.PROD.copylib(ANAYW004)
Tasks History
Active Tasks/Completed Tasks
SoftWare Linkage Sites:
IBM JCL Pub/ IBM OS 390 Pub /Microsoft Server /TekSystems On Line Training /Java Refresher On-line Training /INFORMATICA Slide Show
Passion for Java Technology:
Java Refresher On-line Training
- Java Programming (with Passion!)
In Progress - 9/03/08
- Performance, Debugging, Testing, Monitoring, and Management (with Passion!)
- Advanced Java Progamming (with Passion!) - work in progress
- Java EE Programming (with Passion!)
- Ajax Programming (with Passion!)
- Web Services Programming (with Passion!)
- Identity Manager (with Passion!)
- Java FX Programming (with Passion!) - work in progress
- Ruby/JRuby/Rails Development (with Passion!)
- Groovy and GRails (with Passion!) - work in progress
- Java ME Mobility Programming (with Passion!) - work in progress
Top of Page
URL :coloniallife-hist.html
Revised:7/25/2008
Layout, design & revisions David E. Huenger