Product Change Request ID TDG06444-24, Number of accounts presented on today's special action report that should not be - meter read on 063003 and customer requested disconnect completed 070103. ChangeMan Package # YCPS012657.
Test Changes in above package, compare results user designated bad entries.
6/29/2006 - Prod move date moved back, August or off sched load.
7/06/2006 - Review prod data & run both SQL's (modified & prod) against meter idn provided by BU-JC. Expectations; Start readings from modified SQL for designated accounts should be greater then hose taken from the production SQL.
7/27/2006 - Add left outer join to pull in readings with a final reading.
7/28/2006 - In the process of testing Left Outer Join/ discrepancies noted process of data or SQL mods?
Added Outer Left Join to pull in "Final" when occurring as apposed to "Scheduled" readings.
Modified SQL:
SELECT TABE.NAME
, TABE.MTR_TYPE_CODE
, TABE.SERIAL_NUM
, TABE.STAT_CODE
, TABE.READING_DATE
, TABE.STRTRDGV AS STARTRDG
, CASE
WHEN RDGEVF.SERV_IDN IS NOT NULL
THEN
RDGEVF.RDG_VALUE_NUM
ELSE
TABE.STOPRDGV
END AS STOPRDG
, CASE
WHEN RDGEVF.SERV_IDN IS NOT NULL
THEN
'F'
ELSE
'S'
END AS MTYPEIND
, TABE.IDN
, TABE.REGIS_TYPE_CODE
, TABE.CREATE_TMSTMP
, TABE.USAGE_QTY
, TABE.SERV_IDN
FROM
(SELECT BU.NAME
, METER1.MTR_TYPE_CODE
, METER1.SERIAL_NUM
, METER1.STAT_CODE
, RDGEVT.READING_DATE
, RDGREG.RDG_VALUE_NUM AS STRTRDGV
, RDGRE1.RDG_VALUE_NUM AS STOPRDGV
, SERV.METERED_IND AS TYPEIND
, SRVDLS.IDN
, SRVUSG.REGIS_TYPE_CODE
, SRVUSG.CREATE_TMSTMP
, SRVUSG.USAGE_QTY
, RDGRE1.SERV_IDN
FROM CBISCMPT.BUSINESS_UNIT BU
, CBISCMPT.METER METER1
, CBISCMPT.METER_RDG_EVENT RDGEVT
, CBISCMPT.METER_REGISTER_RDG RDGREG
, CBISCMPT.METER_REGISTER_RDG RDGRE1
, CBISCMPT.SERV_DLVRY_SITE SRVDLS
, CBISCMPT.SERV_REGIS_USAGE SRVUSG
, CBISCMPT.SERVICE SERV
, CBISCMPT.METER_INSTALLATION MTRINL
WHERE SRVUSG.USAGE_QTY > 100
--AND BU.IDN = 91
AND SRVUSG.CREATE_TMSTMP > '2006-07-20-10.00.00.000000'
--AND SRVUSG.CREATE_TMSTMP > '2005-01-20-10.00.00.000000'
AND NOT EXISTS
(SELECT 1
FROM CBISCMPT.UTIL_SERV_AGRMT UTSVAG
WHERE UTSVAG.CUSAGR_IDN = SRVUSG.CUSAGR_IDN
AND UTSVAG.STAT_CODE IN ('OPN','PFB','PDT'))
AND SRVUSG.SERV_IDN = SERV.IDN
AND SERV.INACT_MTR_USG_IND = 'Y'
AND SERV.SRVDLS_IDN = SRVDLS.IDN
AND SRVDLS.BU_IDN = BU.IDN
AND SRVUSG.STOP_RDGEVT_IDN = RDGEVT.IDN
AND RDGEVT.RDG_REASON_CODE <> 'N'
AND RDGEVT.MTRINL_IDN = MTRINL.IDN
AND MTRINL.METER_IDN = METER1.IDN
AND SRVUSG.START_RDGEVT_IDN = RDGREG.RDGEVT_IDN
AND SRVUSG.INSREG_IDN = RDGREG.INSREG_IDN
AND SRVUSG.STOP_RDGEVT_IDN = RDGRE1.RDGEVT_IDN
AND SRVUSG.INSREG_IDN = RDGRE1.INSREG_IDN
AND NOT EXISTS
(SELECT 1
FROM CBISCMPT.SERV_REGIS_USAGE SRVRG2
WHERE SRVRG2.START_RDGEVT_IDN =
SRVUSG.START_RDGEVT_IDN
AND SRVRG2.SERV_IDN = SRVUSG.SERV_IDN
AND SRVRG2.USAGE_QTY = SRVUSG.USAGE_QTY
AND SRVRG2.CUSACC_IDN IS NOT NULL)
)AS TABE
LEFT OUTER JOIN
(SELECT MRR.RDG_VALUE_NUM, MRR.SERV_IDN ,MRE.RDG_REASON_CODE
,MRE.CREATE_TMSTMP
FROM CBISCMPT.METER_RDG_EVENT MRE,
CBISCMPT.METER_REGISTER_RDG MRR
WHERE MRR.SERV_IDN = MRE.SERV_IDN
AND MRE.RDG_REASON_CODE = 'F'
AND MRE.IDN = MRR.RDGEVT_IDN
AND MRE.CREATE_TMSTMP =
(SELECT MAX(CREATE_TMSTMP)
FROM CBISCMPT.METER_RDG_EVENT MRE2
WHERE MRE.SERV_IDN = MRE2.SERV_IDN
AND MRE2.CREATE_TMSTMP > '2006-07-20-10.00.00.000000'
AND MRE2.RDG_REASON_CODE = 'F')
) AS RDGEVF
ON RDGEVF.SERV_IDN = TABE.SERV_IDN
ORDER BY TABE.IDN, TABE.SERIAL_NUM
Deans improved version of previous SQL:
SELECT TABE.NAME
, TABE.MTR_TYPE_CODE
, TABE.SERIAL_NUM
, TABE.STAT_CODE
, TABE.READING_DATE
, TABE.STRTRDGV AS STARTRDG
, CASE
WHEN MRR.SERV_IDN IS NOT NULL
THEN MRR.RDG_VALUE_NUM
ELSE TABE.STOPRDGV
END AS STOPRDG
, CASE
WHEN MRR.SERV_IDN IS NOT NULL
THEN 'F'
ELSE 'S'
END AS MTYPEIND
, TABE.IDN
, TABE.REGIS_TYPE_CODE
, CASE
WHEN MRR.SERV_IDN IS NOT NULL
THEN MRE.CREATE_TMSTMP
ELSE TABE.CREATE_TMSTMP
END AS CREATTSP
, CASE
WHEN MRR.SERV_IDN IS NOT NULL
THEN SRVUSG1.USAGE_QTY
ELSE TABE.USAGE_QTY
END AS USAGEQTY
, TABE.SERV_IDN
, TABE.BU_IDN
FROM
(SELECT BU.NAME
, METER1.MTR_TYPE_CODE
, METER1.SERIAL_NUM
, METER1.STAT_CODE
, RDGEVT.READING_DATE
, RDGREG.RDG_VALUE_NUM AS STRTRDGV
, RDGRE1.RDG_VALUE_NUM AS STOPRDGV
, SERV.METERED_IND AS TYPEIND
, SRVDLS.IDN
, SRVUSG.REGIS_TYPE_CODE
, SRVUSG.CREATE_TMSTMP
, SRVUSG.USAGE_QTY
, RDGRE1.SERV_IDN
, MTRINL.IDN AS MTRINL_IDN
, BU.IDN AS BU_IDN
FROM CBIS.BUSINESS_UNIT BU
, CBIS.METER METER1
, CBIS.METER_RDG_EVENT RDGEVT
, CBIS.METER_REGISTER_RDG RDGREG
, CBIS.METER_REGISTER_RDG RDGRE1
, CBIS.SERV_DLVRY_SITE SRVDLS
, CBIS.SERV_REGIS_USAGE SRVUSG
, CBIS.SERVICE SERV
, CBIS.METER_INSTALLATION MTRINL
WHERE SRVUSG.USAGE_QTY > 100
-- AND BU.IDN = 91
AND SRVUSG.CREATE_TMSTMP > '2006-08-08-02.47.00.000000'
AND NOT EXISTS
(SELECT 1
FROM CBIS.UTIL_SERV_AGRMT UTSVAG
WHERE UTSVAG.CUSAGR_IDN = SRVUSG.CUSAGR_IDN
AND UTSVAG.STAT_CODE IN ('OPN','PFB','PDT'))
AND SRVUSG.SERV_IDN = SERV.IDN
AND SERV.INACT_MTR_USG_IND = 'Y'
AND SERV.SRVDLS_IDN = SRVDLS.IDN
AND SRVDLS.BU_IDN = BU.IDN
AND SRVUSG.STOP_RDGEVT_IDN = RDGEVT.IDN
AND RDGEVT.RDG_REASON_CODE <> 'N'
AND RDGEVT.MTRINL_IDN = MTRINL.IDN
AND MTRINL.METER_IDN = METER1.IDN
AND SRVUSG.START_RDGEVT_IDN = RDGREG.RDGEVT_IDN
AND SRVUSG.INSREG_IDN = RDGREG.INSREG_IDN
AND SRVUSG.STOP_RDGEVT_IDN = RDGRE1.RDGEVT_IDN
AND SRVUSG.INSREG_IDN = RDGRE1.INSREG_IDN
AND NOT EXISTS
(SELECT 1
FROM CBIS.SERV_REGIS_USAGE SRVRG2
WHERE SRVRG2.START_RDGEVT_IDN =
SRVUSG.START_RDGEVT_IDN
AND SRVRG2.SERV_IDN = SRVUSG.SERV_IDN
AND SRVRG2.USAGE_QTY = SRVUSG.USAGE_QTY
AND SRVRG2.CUSACC_IDN IS NOT NULL)
)AS TABE
LEFT OUTER JOIN CBIS.METER_RDG_EVENT MRE
ON TABE.SERV_IDN = MRE.SERV_IDN
AND TABE.MTRINL_IDN = MRE.MTRINL_IDN
AND MRE.CREATE_TMSTMP > '2006-08-08-02.47.00.000000'
AND MRE.RDG_REASON_CODE = 'F'
LEFT OUTER JOIN CBIS.METER_REGISTER_RDG MRR
ON MRE.IDN = MRR.RDGEVT_IDN
LEFT OUTER JOIN CBIS.SERV_REGIS_USAGE SRVUSG1
ON TABE.SERV_IDN = SRVUSG1.SERV_IDN
AND MRE.IDN = SRVUSG1.STOP_RDGEVT_IDN
WHERE MRE.IDN IS NULL
OR (MRE.IDN IS NOT NULL
AND MRE.CREATE_TMSTMP =
(SELECT MAX(CREATE_TMSTMP)
FROM CBIS.METER_RDG_EVENT MRE1
WHERE MRE.SERV_IDN = MRE1.SERV_IDN
AND MRE.MTRINL_IDN = MRE1.MTRINL_IDN
AND MRE1.RDG_REASON_CODE = 'F'
)
)
ORDER BY TABE.BU_IDN, TABE.SERIAL_NUM
8/10/2006 - Modified via PXCode Wizard SQL Copy Book
Product Change Request ID KJB13771-59, Performer Transaction Log (Activity Viewer) - transaction code field is showing srvc idn, but should show acct #, ChangeMan Package # YCPS012679.
6/02/2006 - DEH - For the Tax Jurisdiction project mods modify PXDST529 as follows:
Program PXDST529:
*--------------------------------------------------------------*
* CALL PXSUT690 TO LOG PROXIX INFORMATION
*--------------------------------------------------------------*
PXSUT690-LOG-TRANSACTION.
MOVE 'LOG-TRANSACTION ' TO WS-PROGRAM-LOCATION
INITIALIZE WS-PXSUT690-DATA-AREA
MOVE WS-CURRENT-TIMESTAMP TO WS-PXSUT690-TIMESTAMP
MOVE WS-CNCRCY-USER-IDN TO WS-PXSUT690-PERFORMER-IDN
MOVE LK-PXDST529-DE-SRVDLS-IDN TO WS-PXSUT690-IDN
*06* ** MOVE LK-PXDST529-DE-SRVDLS-IDN TO WS-PXSUT690-IDN
*06* MOVE lK-PXDST529-DE-CUSACC-IDN TO WS-PXSUT690-IDN
*06* ** SET WS-PXSUT690-SRVDLS-IDN TO TRUE
*06* SET WS-PXSUT690-CUSTMR-IDN TO TRUE
MOVE 'P01' TO WS-PXSUT690-TRANS-CODE
MOVE 'PROXIX' TO WS-PXSUT690-TRANS-DESC
MOVE 'N' TO WS-PXSUT690-INQUIRY-TYPE
Mods made in red, & will effect only PROXIX entries only.
Additional Program mods: PXDST500, PXDST130, PXDST138 & PXDST180.
Copy Book mods PPDST130 & PPDST500.
6/14/2006 - Mods made, testing partially completed.
6/16/2006 - Corrective Mods made, testing completed.
7/12/2006 - Pulled PCR from 7/21/06 prod move, package will be loaded 9/15/06 (ommision of VB service classes).
7/28/2006 - Mods reimplemented, Stepnanies merged with own, testing in progress.
8/10/2006 - Continued GUI testing via CBISCMPT - AP. In progress, currently data out of sync acccounting for partial address update mishaps.
Data to be restored 8/11.
8/11/2006 - Tested partial tax updates, everything tests OK.
8/18/2006 - VB componentsmust be compiled to pull in modified sevice class updates, tested reversion coding.
8/21/2006 - Unit Testing complete.
Product Change Request ID RAC14233-46, Changes to FROMHOST Process. ChangeMan Package # YCPS012724.
8/07/2006 - PCR Program modified & tested, prod move 9/15/06.
8/11/2006 - Modified SQL via PXCode Wizard. Testing completed.
Lessons Learned:
1. Never resurrect a Tracking PCR
2. When XPeditor gets hung up, session times out while in the middle of XP, resources tied up & unable to gain access to XP session. Solution go to IOF & delete running job.
Off Schedule Load 10/13/2006
Product Change Request ID TLG14550-45, Associate/Disassociate sets the Last_eff_date on the customer and sets the Status to "D" when there are no accounts that reference the customer. ChangeMan Package # YCPS012767.
9/22/2006 - SQL count created - JCOUNT, unable to create update SQL in SRVDly access mod. Problem compiling Program PXRGRPCA - problem uder investigation. CID mods PXCAT071/72 created, testing under way.
9/28/2006 - CIDs PXCAT071/72, PXRGRPCA modified, package promoted to CBISCMPT, CINQ logic still required.
9/29/2006 - CPY's PPCAT071/72 CIDs PXCAT071/72, DXCOUNT & DXSERVDLS Tested & approved by CG. PXRGRPCA still requres CINQ logic added, package promoted to CBISCMPT.
10/04/2006 - Still not sure of addressability of nested program for returned error messages. Per JL removed CINQ write request, package recompiled & promoted to CBISCMPT.
10/10/2006 - New ChangeMan Package(YCPS01288) to test CINQ addressability question.
10/11/2006 - Off Schedule Load vice Oct's production move. Off Sched Load 10/11 backed out (one of the included queries not performing as expected).
10/13/2006 - Problems corrected for PCR TLG14550-45 Off Sched Load 10/13/06/1330.
Production Move 10/27/2006
Product Change Request ID PPJ14172-1, FTP request for TCFF TO PURCHASE PHONE NUMBERS. ChangeMan Package # YCPS012741.
8/14/2006 - PCR Analysis, if request under 80 hours PCR & possible off schedule else project.
Steps Involved:
1. Create SQL.
Send to Dean for review
2. Create Server, Test & Production.
Test in both environments.
3. Create JCL, Utility follwed by FTP step.
4. Schedule job via CA7.
SELECT DIGITS(P1.IDN)
, DIGITS(P1.CUSTMR_IDN)
, DIGITS(P1.PRIMARY_SRVDLS_IDN)
, CASE
WHEN P3.CUSTMR_IDN IS NULL
THEN ''
ELSE P3.FIRST_NAME
END AS FIRSTNME
, CASE
WHEN P3.CUSTMR_IDN IS NULL
THEN ''
ELSE P3.LAST_NAME
END AS LASTNME
, CASE
WHEN P3.CUSTMR_IDN IS NULL
THEN ''
ELSE P3.MIDDLE_NAME
END AS MIDNME
, CASE
WHEN P2.SRVDLS_IDN IS NULL
THEN ''
ELSE P2.STREET_NUM
END AS STRNBR
, CASE
WHEN P2.SRVDLS_IDN IS NULL
THEN ''
ELSE P2.STREET_NAME
END AS STRNME
, CASE
WHEN P2.SRVDLS_IDN IS NULL
THEN ''
ELSE P2.ZIP_CODE
END AS ZIPCODE
, CASE
WHEN P2.SRVDLS_IDN IS NULL
THEN ''
ELSE P2.ST_CODE
END AS STCODE
, CASE
WHEN P2.SRVDLS_IDN IS NULL
THEN ''
ELSE P2.CITY_NAME
END AS CITYNME
FROM
(SELECT DISTINCT A.IDN
, A.CUSTMR_IDN
, A.PRIMARY_SRVDLS_IDN
FROM CBISCMPT.CUSTOMER_ACCOUNT A
WHERE A.BILLABLE_STAT_CODE = 'ACT'
AND NOT EXISTS
(SELECT 1
FROM CBISCMPT.PHONE P
WHERE P.ALIAS_IDN = A.PRIMARY_SRVDLS_IDN
AND P.ALIAS_CODE = 'SRVDLS'
AND P.PHONE_TYPE_CODE = 'LOC'
AND P.LAST_EFF_DATE IS NULL)) AS P1
LEFT OUTER JOIN
(SELECT D.STREET_NUM
, D.STREET_NAME
, D.ZIP_CODE
, D.ST_CODE
, D.CITY_NAME
, U.SRVDLS_IDN
FROM CBISCMPT.US_ADDRESS D
,CBISCMPT.SITE_ADDRESS_USAGE U
WHERE D.IDN = U.USADR_IDN
AND U.LAST_EFF_DATE IS NULL) AS P2
ON P1.PRIMARY_SRVDLS_IDN = P2.SRVDLS_IDN
LEFT OUTER JOIN
(SELECT B.FIRST_NAME
, B.LAST_NAME
, B.MIDDLE_NAME
, B.CUSTMR_IDN
FROM CBISCMPT.PERSON B
, CBISCMPT.CUSTOMER_ACCOUNT A2
WHERE A2.CUSTMR_IDN = B.CUSTMR_IDN) AS P3
ON P1.CUSTMR_IDN = P3.CUSTMR_IDN
8/16/2006 - SQL created & sent to DB for review. Sql modified run in test.
8/18/2006 - Paperwork for FTP ID setup need to be sent to security (missing user EMail), code lock (8/23) looming.
8/21/2006 - 3rd Party IT Access Request & Service Account Request (Vendor contact data required/Tecnical & Application) initiated.
8/25/2006 - Requested resources from RB, given JK, initiated LAN Share & Access Request for access to EBill Server (waiting iss ADM approval).
8/28/2006 - LAN Share & Access Request has been rejected, Help Desk contacted Ticket # 2760896.
8/29/2006 - PGP key exchanged, vendor requesting the email address under which key was created.
9/06/2006 - PGP Key, problem with Duke Key EMail, note sent to LF. Request to create Temp DB2 Tables submitted, analsis of vendor output processing complete. Business Rules Received.
9/07/2006 - PGP Key, problem resolved per Vendor rep, test vendor output created via eztrie program.
9/08/2006 - Testing steps to load temp Table (Utility step provided by DBA).
9/12/2006 - DB2 Load Utility (temp DB2 table) completed (untested to date).
9/19/2006 - Merge program completed, testing in progress.
9/21/2006 - Merger Program (PXCAT070) created & tested.
9/29/2006 - Test DSN created for DBA to test utility load & Stored Procedures.
10/04/2006 - Still unable to pass viable file to external vendor, hex X'09' delimiters not passed. New DSN request submitted for FTP step (RACF Security Request). Delimiters Hex X'09' not passed to vendor, request to create new DSN (password & root directory) submitted RACF Security Request. New DSN request submitted for FTP step (RACF Security Request). Per security reopened RACF Security Request adding EBill Server & created new Service Account Request for new FTP ID.
10/10/2006 - RACF request approved, security called to bump up requests priority, New Program PXCAT073 created (creates FTP CNTL Card for job W037TCFS). Additional Security forms submitted for new FTP ID.
10/13/2006 - Sample extract file created/transmitted & processed by vendor, EBill FTP/Decryptions script to be tested 10/16/06.
10/17/2006 - Tested Decryption/FTP Scripts executed, successfully tested 10/17/2006.
Extracted from CBIS & loaded into CBISCMPT following CUSACC IDN’s
232, 425, 590, 835, 837, 996, 1023, 1032, 1054, 1336,
1447, 1491, 2107, 2161, 2421
Ran job PPJSQLI from ADS after load, extracted records stored in TSDS.DEHUENG.D091906D.DATA.
10/19/2006 - Modified PXCAT073 to generate FTP Cntl cards for both Send & Receive JCL
Generated Receive FTP Cards:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
CD TRANSFER\TCFF\TOVENDOR
DIR
GET DUK_EVCIS2006-10-19-07.38.36.381567.PGP 'DK037.U037TCFR.STEP010.DATA' (R
QUIT
******************************** Bottom of Data ********************************
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
CD TRANSFER\TCFF\TOVENDOR
DIR
DELETE DUK_EVCIS2006-10-19-07.47.35.276343.PGP
QUIT
******************************** Bottom of Data ********************************
Generated Send FTP Card:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
CD TRANSFER\TCFF\TOVENDOR
10/24/2006 - Retrieved vendor processed data, in the process discovered Phone Number appended to end of Vendor data not Duke supplied data.
Modified PXCAT070 accordingly
All Components of PCR PPJ14172-1 successfully tested.
Per LF 's note following mods applied to W037TCFR FTP CNTL Cards:
David,
I would suggest making the following changes in your TSDS.DEHUENG.CNTRCARD.DATA since it is an inbound file transfer:
From:
CD TCFF\ToVendor
DIR
GET DUK_EVCIS_20061023083947170897.PGP 'TSDS.DEHUENG.STEP020.STCFS.DATA' R
QUIT
To:
CD TCFF\ToCBIS
DIR
GET DUK_EVCIS.dat 'TSDS.DEHUENG.STEP020.STCFS.DATA' R
QUIT
The reasons I suggested using DUK_EVCIS.dat are:
1) We don’t need to worry about what file name the vendor is using. We just rename it to DUK_EVCIS.dat. So this data file name can be used in the control card over and over again.
2) I included a command to rename the file file the vendor in my script. If you have no objection, I would like to test this commnad in my script.
Thanks,
Modified PXCAT073 accordingly.
10/25/2006 - Modified PXCAT070 (adding pone number validation code), moving package into production during Oct Prod Move. Created 2nd ChangeMan Package, moved JCL into it. BU approved PCR.
Unfinished PCR Tasks:
None.
Untested PCR Components:
All package components tested.
Overall PCR Processing Questions:
Notification of vendor processing completion, assume Notes will be used.
Who will be notified?
DSN LF will be getting from vendor server, can it be fixed DSN or will the name change?
Periodicity of job?
Stumbling Blocks to Total Automation:
None
Production Move 12/08/2006
Product Change Request ID JSL14710-59, Create autocinq when associate/disassociate moves last site from a customer head that is used as a Landlord on a RTO.
If the last site is being moved from a customer head that is used as a Landlord on an RTO, create an autocinq to sas to verify.
The customer head will not be deleted if it is used as a Landlord on an RTO. It will be deleted by the RTO tool if it is taken off all RTO's and is not tied to any customer accounts. This was part of pcr TLG14550-45 that missed the October code lock and will be done for the December code release.
Program PXRGRPCA, add logic to create CINQ records. ChangeMan Package # YCPS012793.
10/18/2006 - Analysis started.
11/09/2006 - Resolved how to establish addresability with CEBR Error Structure. Tested writing to CINQ & reading CINQ, ready for Dec's Prod move.
Problems: How to pass CEBR error structure from REGROUP to PXSUT390?
New CEBR 01 Structure, 01 name changed due to compile restrictions.
WORKING-STORAGE SECTION.
01 WS-START PIC X(31)
VALUE 'WORKING-STORAGE STARTS HERE===>'.
01 WS-STATIC-AREA.
05 WS-PXWHOAMI PIC X(8) VALUE 'PXWHOAMI'.
05 WS-PXSUT690-PGM PIC X(8) VALUE 'PXSUT690'.
05 WS-PXTMSTMP-PGM PIC X(8) VALUE 'PXTMSTMP'.
05 WS-PUTCBIS-PGM PIC X(8) VALUE 'PUTCBIS '.
05 WS-PXSUT390-PGM PIC X(8) VALUE 'PXSUT390'.
05 WS-LPROGRAM-PGM PIC X(8).
*deh REPLACE ==:TAG:== BY ==WK==.
01 WK-ERROR-STRUCTURE.
COPY CBERRSTR.
*15* REPLACE OFF.
...
...
*15* ******************************************************************
01 WS-VIEW-ADDR POINTER.
*15* 01 WS-PREGROUP-ERROR-STRUC-ADDR POINTER.
01 WS-STOP PIC X(30)
VALUE '<===WORKING-STORAGE STOPS HERE'.
...
...
No mod to Linkage Section & Procedure.
Data Structure Allocation
ALLOCATE-DATA-STRUCTURES.
- - - - - - - - - - - - - - - 140 Line(s) not Displayed
*deh CALL 'PXGETADR' USING DFHEIBL1, DFHCOMMARE1,
WK-ERROR-STRUCTURE,
LK-PREGROUP-ERROR-STRUC-ADDR
END-CALL
*deh SET WS-PXSUT390-ERROR-STRUC-ADDR TO
LK-PREGROUP-ERROR-STRUC-ADDR
...
...
11/20/2006 - Program tested CINQ record generated, all thqt remains is to establish the requested Printer Destination (i.e. how to find CICS printer ID associated with requested Lan Printer ID?), SPOC request initiated.
11/21/2006 - Questions that must be resolved by user; A) Need CICS ID associated with requested Printer, found on printer or provided by Local IT Provider. Requested data Set following after Buss Tested:
Printer ID set to '!P01' & Switch WS-PXSUT390-PRINT-YES set to true
11/22/2006 - Code Lock, Package frozen, V10 Tracking Form completed. After Business Acceptance set production printer as default printer.
11/30/2006 - Business testing started.
12/01/2006 - Business testing completed.
Rejected PCR - 01/16/2007
Product Change Request ID LRV09652-19, Investigate why duplicate rows are being set up in PXCAA388. Under Analysis, ChangeMan Package # YCPS012829. Need to know why we are getting the -803.
11/30/2006 - Possible initialization problem, checking with DPA pro DC.
12/01/2006 - On hold per SP.
01/16/2007 - PCR rejected by user.
Production Move 01/19/2007
Product Change Request ID TLA15056-47, Old bill being pulled into query DXJAGBCA, statement JAGBCA-BC-GET-BILLS. This was caused by regrouping this particular account. Caused this old bill to come up into the cursor and caused issues with U037GB22. Leslie Henderson has suggested the following fix, so that this does not happen again. ChangeMan Package # YCPS012863.
12/19/2006 - Analysis started, coding complete, package ready for Jan Move.
Product Change Request ID DHU15082-12, Update & correct Stored Procedure SQL50666 for TCFF TO PURCHASE PHONE NUMBERS. ChangeMan Package # YCPS012868.
12/28/2006 - PCR Created, needs to be prioritized.
01/02/2007 - PCR prioritized.
01/04/2007 - PCR Audited/frozen, ready for 1/26 production move.
Product Change Request ID JLH13622-53, Investigate to see if it is true that the RMDS Report CBIS-Consumption on INA Serv does not take into account the BC when it determines usage for reporting accounts on the Inactive Usage Report. ChangeMan Package # YCPS99999.
5/18/2006 - Analysis complete, BUS notified.
5/22/2006 - Per LH the bill constant is applied to the Usage fields for Misc Agreements earlier in the process, note sent to BUS/JLH.
7/03/2006 - Per LH this PCR can not be resolved until the Bussiness users ID another such incidence.
2/09/2007 - Cancelled.
Product Change Request ID TLG15301-28, Phone numbers purchased posted to incorrect accounts. ChangeMan Package # YCPS012892.
02/08/2007 - ChangeMan package created, Rex & JCL components created & tested. Off Schedule Load steps completed.
02/09/2007 - Job & JCL loaded into prod, Job added to CA7 schedule. Job run (destructive mode) 1600 ended 1930, RC 00.
Production Move 03/09/2007
Product Change Request ID EQW09828-27, All ADAPT or AMS-read TOU meters are non-cumulative (i.e. KW readings are reset and start at 0.00 each month). These type of meters serve our largest revenue commercial and industrial customers.
ChangeMan Package # YCPS012875, install date 3/09/2007.
01/09/2007 - PCR assigned.
01/12/2007 - Problem analysed & Resolved, will extract EMR_RDG_MTHD_CODE from the METER_INSTALLATION table (PXDSA145 Paragraph GET-METER-PROPERTIES), If value brought back is "S" populate LK-PXDSA140-RDG-SOURCE-CODE with "O". This will set WS-RESET-DEMAND SW to "Y".
01/15/2007 - Submit PC Code Wizard request to create view for new Joined SQL (JINSRA/88 Label BS-MODMETER-PROPS).
01/17/2007 - Create view for new Joined SQL (JINSRA/88 Label BS-MODMETER-PROPS), View (JINSRA) created & program (PXDSA145) modified accordingly.
01/23/2007 - Access module (DXJINSRA) created & tested, package testing also complete.
Off Schedule Loads:
Product Change Request ID SEP15407-37, Stored Procedure UPD_INTL_USER_ID requires an Error handler coded in the procedure, ChangeMan Package # YCPS012910.
03/01/2007 - PCR assigned, SP mods made unable to test.
03/12/2007 - PCR tested (DBA), Frozen & ready for 3/14 off schedule load.
Production Move 04/27/2007
Monthly(Apr/27) Project/PCR Production Loads: RDT12319-5, EQW15348-6, LDT15416-47 & DHU15522-33
Product Change Request ID EQW15348-6, Final bills not sorting when usage extremely high, ChangeMan Package # YCPS012918.
03/07/2007 - PCR assigned, changeMan Package created.
03/08/2007 - Summary Bu requires that final bills use a different different Prev_MO_Hi_PCT Retrieved from the ESTIMATE_CATEGORY table.
Solution prior to Register Validation check if we are dealing with a Final Bill ( LK-READING-REASON EQUAL 'F' ) retrieving new value & if > 0 move global parm value into linkage field (LK-LST-MO-HI-PCT). Tested & Ready.
03/29/2007 - Review PCR prior to Code Lock.
Product Change Request ID LDT15416-47, UPDATE: .....vdw4681....Each month on the "last business day of the month", U037FWCR runs and cancels "RIPs" that meet the following date limitations:
Installs = 1 year
All other On's/Off's = 90 days
This pcr is requesting to change the date of the On's/Off's to 30 days. The installs are to remain at a 1 year limitation and the report should continue to print out monthly for review (to the same printer). Please also reference the closed/implemented PCR# VBG08708-1 for any technical details.
Currently an automatic run cancels RIPS 90 days and older. This is to change date range and cancel RIPs after 30 days., ChangeMan Package # YCPS012920.
03/08/2007 - PCR assigned, changeMan Package created.SQL in Access Mod(FWREQ) modified via PCode Wizard, SQL used only in PXWMP130. Tested & ready.
03/09/2007 - ChangeMan package Audited/Promoted/Frozen & CA7 entry created.
03/29/2007 - Review PCR prior to Code Lock.
Product Change Request ID RDT12319-5, Modification to Lapse Status for HRP (Home Repair Plan) II. ChangeMan Package # YCPS012908.
12/01/2006 - Analysis started
12/22/2006 - ChangeMan YCPS012870 created, checked out components PXCAT230 & DXJAGBAL.
01/31/2007 - PCR & Workup given to DW for review.
02/23/2007 - How to ID Lased Accounts? / How to ID if Lapsed Account should be Reinstated? These questions & others need to be answered. Per BU(JC) best to review job at the beggining of the month for Lapsed Accounts.
02/28/2007 - PXCAT230 Reinstate program logic appears to be in error, code for Lapsed Accounts compares the Contract Amount against the Past Due Amount (one of the criterea for a lapsed account is that the Past Due Amount > Contract Amount ), but when checking to reinstate no such check is made.
Solution Prior to executing Reinstatement logic retrieve past due amount & compare against contract amount if Contract Amount > Past Due Amount account should be reinstated else run it against existing reinstatement logic.
Brought Components into ChangeMan Package, compiled/promoted package into CBISCMPT (no program mods). Ran unmodified code againt test data (JCL TSDS.DEHUENG.JCL(RNCAT230)), no damage testing 04 return code.
03/01/2007 - Currently If there is a LAPSED-DATE
We currently check the following results
Condition one
CURRENT DATE <= (PAST-DUE-AFTER-DATE + 2 DAYS )
Condition two
CURRENT DATE <= (PAID-THRU-DATE + 30 DAYS)
Will add a new Condition:
Contract amount < Past Due Amount
If any of these three conditions are true the Misc acct will be reinstated
Ran above mods, No Damage Testing (result no damage).
03/02/2007 - Need to ID & extract prodaccounts that have currently lapsed.
03/06/2007 - Concentrate on Contract Amount & Past Due Amount. Tested & Ready.
03/29/2007 - Review PCR prior to Code Lock.
03/19/2007 - PCR assigned.
Product Change Request ID DHU15522-33, Make corrections to job W037TCFR, adding /*JOBPARM S=SYSI and correcting inserted space syntax error that passed JCL Scan check. ChangeMan Package # YCPS012938. Production move date 4/27/2007.
03/26/2007 - PCR created/assigned/completed.
03/29/2007 - Review PCR prior to Code Lock.
PCR's Analysis only
Product Change Request ID MLP15424-3, Time esitmate needed for giving a grace period on Late Payment Charges, ChangeMan Package # YCPS0129##.
03/14/2007 - PCR assigned.
03/19/2007 - PCR reviewed & Time esitmate completed, request will be in excess of 80 hours (outside PCR range).
Off Schedule Loads:
Product Change Request ID DHU15471-6, Store Procedure SQL50666 is out of SYNC , -805 , SP needs to be recompiled (no mods) with the correct DBRM, ChangeMan Package # YCPS012926.
03/14/2007 - PCR created & priortized, will be off schedule load (3/19).
03/19/2007 - PCR mods made & tested, package promoted/audited/frozen ready for prod move (OffScheduleLoad 3-19). BU problem with vendor returned data.
03/21/2007 - PCR moved into production.
Product Change Request ID DHU15502-17, Need to remove duplicate vendor/phone numbers from returned phone data, new EasyTriv program moved to source.
ChangeMan Package # YCPS012934.
03/21/2007 - PCR created & priortized, off schedule load (3/21).
Product Change Request ID DHU15508-14, Need to remove duplicate vendor/phone numbers from returned phone data, new EasyTriv program moved to source.
ChangeMan Package # YCPS012934.
03/21/2007 - PCR created & priortized.
03/22/2007 - Off schedule load (3/22).
Production Move 06/08/2007
Monthly(June/08) Project/PCR Production Loads: None
Cancelled Projects
Product Change Request ID TAH14402-30, CC.23 project. ChangeMan Package # YCPS012756, assigned 8/24/2006.
Project will be modeled after existing application, SpeedPay/PowerPay infrastructure for Carolinas only.
9/06/2006 - Dropping EF30 processing. Create PCR & ChangeMan Package for project. This project will mimick SpeedPay processing, but it will exclude job EF30.
9/08/2006 - Speed Pay lits in report come from input file, can clone & use JCL & program(s) in EF45.
10/26/2006 - Requested PGP Encryption/Decryption assistance for project, LF assigned.
11/27/2006 - Project canceled.
Top of Page
URL :PCRHistory.html
Revised:03/10/2005
Layout, design & revisions David E. Huenger