000100 IDENTIFICATION DIVISION. 00010000 000200 PROGRAM-ID. TEPS1. 00020000 000300 AUTHOR. NEERAJ SINGH. ITS. 00030019 000400*-----------------------------------------------------------------00040000 000500* HUMAN RESOURCES INFORMATION AREA **00050000 000600* MOVED INTO PROD. VIA CMR. NO. DT. **00060000 000610* REASON : COMPUTE OPENING BALANCE OF TEPS **00061000 000620*----------------------------------------------------------------*00062000 000621******************************************************************00062133 000622* CMR NO 03/06/113/1 DATED 09/06/2003 BY SMITA ** 00062234 000623* PARAS AFFECTED : WORKING STORAGE ** 00062334 000625* REASON FOR CHANGE : DATA TRUNCATION IN VALUES OF TEPS FOR ** 00062533 000626* : ALL THE 12 MONTHS ** 00062633 000627******************************************************************00062733 000628******************************************************************00062829 000629* CMR NO : 3664 DTD :02/05/2K BY SAURABH 00062932 000630* PARAS AFFECTED : 00063029 000631* 00063129 000632* REASON FOR CHANGE : OUTPUT FILE TO BE CLOSED AFTER PRINTING* 00063229 000633* 00063329 000634******************************************************************00063429 000635 00063500 000640 INSTALLATION. ITS, TATA STEEL. 00064029 000650 DATE-WRITTEN. 26/04/99 00065000 000660 DATE-COMPILED. 26/04/99 00066000 000670* 00067000 000680 ENVIRONMENT DIVISION. 00068000 000690* 00069000 000700 CONFIGURATION SECTION. 00070000 000800*---------------------- 00080000 000900 SOURCE-COMPUTER. IBM-ES-9121-320. 00090000 001000 OBJECT-COMPUTER. IBM-ES-9121-320. 00100000 001100* 00110000 001200 INPUT-OUTPUT SECTION. 00120000 001300*--------------------- 00130000 001400 00140000 001500 FILE-CONTROL. 00150000 001600*-------------- 00160000 001700 00170000 001800 SELECT PRTF ASSIGN TO PRTF 00180000 001900 FILE STATUS IS WS-STAT-1. 00190000 002000 00200000 002100* 00210000 002200 DATA DIVISION . 00220000 002300*--------------- 00230000 002400 00240000 002500 FILE SECTION. 00250000 002600*-------------- 00260000 002700 00270000 002800 FD PRTF . 00280000 002900 01 PRT-REC PIC X(132). 00290000 003000 00300000 003100 WORKING-STORAGE SECTION. 00310000 003200 00320000 003300*---- LOCAL WORKING VARIABLES 00330000 003400 00340000 003500 01 WS-BLANK-LINE PIC X(132) VALUE ALL SPACES. 00350004 003510 01 WS-RECORD. 00351004 003600 05 FILLER PIC X(25) VALUE SPACES. 00360004 004500 05 MESSAGE-LINE PIC X(50). 00450018 004610 05 MESSAGE-VAR-INT PIC Z(15).99. 00461025 004700 00470000 004800 01 WS-HEADER1. 00480000 004900 05 FILLER PIC X(44) VALUE "REP. ID: TEPS101". 00490004 005000 05 FILLER PIC X(44) VALUE 00500000 005100 "THE TATA IRON AND STEEL CO. LTD., JAMSHEDPUR". 00510000 005200 00520000 005300 01 WS-HEADER2. 00530004 005400 05 FILLER PIC X(30) VALUE SPACES. 00540000 005500 05 FILLER PIC X(56) VALUE 00550000 005600 "OPENING BALANCE REPORT FOR TEPS FOR ". 00560000 005610 05 WS-REP-FINYEAR PIC X(07). 00561003 005700 00570000 005800 01 WS-HEADER3. 00580004 005900 05 FILLER PIC X(3) VALUE SPACES. 00590000 006000 05 FILLER PIC X(8) VALUE "PAGE NO:". 00600000 006100 05 P-PAGE PIC Z(3). 00610000 006200 05 FILLER PIC X(103) VALUE SPACES. 00620000 006300 05 FILLER PIC X(7) VALUE "DATE :". 00630000 006400 05 P-DATE . 00640000 006500 10 DD PIC 99. 00650000 006600 10 FILLER PIC X VALUE "/". 00660000 006700 10 MM PIC 99. 00670000 006800 10 FILLER PIC X VALUE "/". 00680000 006900 10 YY PIC 99. 00690000 007000 00700000 009700 01 WS-DATE. 00970000 009800 05 DD PIC 99. 00980000 009900 05 MM PIC 99. 00990000 010000 05 YY PIC 99. 01000000 010100 01010000 010200 01 WS-LOCAL. 01020000 010300 02 WS-EOF PIC X VALUE SPACES. 01030000 010400 02 WS-STAT-1 PIC XX VALUE SPACES. 01040000 010500 02 WS-REC-FETCH PIC 9(6) VALUE 0. 01050000 010600 02 WS-NEW-CASE PIC 9(6) VALUE 0. 01060009 011200 02 WS-AMT PIC S9(14)V99 VALUE 0. 01120010 011201**** START CMR 03/06/113/1 DATED 09/06/2003 BY SMITA 01120134 011202* 02 WS-TEPS-CONTR PIC S9(05)V99 USAGE COMP-3. 01120233 011203 02 WS-TEPS-CONTR PIC S9(06)V99 USAGE COMP-3. 01120333 011204**** END CMR 03/06/113/1 DATED 09/06/2003 BY SMITA 01120434 011210 02 WS-NEW-AMT PIC S9(14)V USAGE COMP-3. 01121010 011300 02 WS-LINE-CNT PIC 9(6) VALUE 0. 01130000 011400 02 WS-PAGE PIC 9(3) VALUE 0. 01140000 011800 02 WS-OLD-FIN-YEAR PIC X(7) . 01180000 011801 02 WS-CUR-FIN-YEAR1 PIC X(7) . 01180111 011802 02 WS-CUR-FIN-YEAR . 01180211 011810 05 WS-CUR-START-YEAR PIC 9(4) VALUE 0. 01181000 011820 05 FILLER PIC X VALUE "-". 01182021 011830 05 WS-CUR-END-YEAR PIC 9(2) VALUE 0. 01183008 011840 01184000 016300 01630000 016400** INCLUDE DCLGEN 01640000 016500 EXEC SQL 01650000 016600 INCLUDE SQLCA 01660000 016700 END-EXEC. 01670000 016800 01680000 016900*** DCLGEN FOR V_TEPS_MAST 01690000 017000 01700000 017100 EXEC SQL 01710000 017200 INCLUDE CRTPM 01720000 017300 END-EXEC. 01730000 017400 01740000 017410*** DCLGEN FOR V_TEPS 01741012 017420 01742012 017430 EXEC SQL 01743012 017440 INCLUDE CRTEPS 01744020 017450 END-EXEC. 01745012 017460 01746012 017500**** DCLGEN FOR V_ANNL_PARAM 01750000 017600 01760000 017700 EXEC SQL 01770000 017800 INCLUDE CRANP 01780000 017900 END-EXEC. 01790000 018000 01800000 020000**** CURSOR DECLARATION FOR V_TEPS_MAST 02000000 020100 02010000 020200 EXEC SQL 02020000 020300 DECLARE CUR-TPM CURSOR FOR 02030000 020400 SELECT TPM_PERNO 02040000 020500 ,TPM_CL_BAL_MEM 02050000 020600 ,TPM_CL_BAL_COM 02060000 020700 ,TPM_FIN_YEAR 02070000 020800 ,TPM_TRANS_STA 02080000 020900 ,TPM_CATEG 02090000 021100 FROM HRIA01.V_TEPS_MAST 02110000 021200 WHERE TPM_FIN_YEAR = :WS-OLD-FIN-YEAR 02120009 021300 AND TPM_TRANS_STA = 6 02130011 021500 ORDER BY TPM_PERNO 02150000 021600 END-EXEC. 02160000 021700 02170000 021710 EXEC SQL 02171009 021720 DECLARE CUR-TEP CURSOR FOR 02172009 021730 SELECT TEP_PERNO 02173009 021740 ,(VALUE(TEP_TEPS_1,0) + 02174015 021750 VALUE(TEP_TEPS_2,0) + 02175015 021760 VALUE(TEP_TEPS_3,0) + 02176015 021770 VALUE(TEP_TEPS_4,0) + 02177015 021780 VALUE(TEP_TEPS_5,0) + 02178015 021781 VALUE(TEP_TEPS_6,0) + 02178115 021782 VALUE(TEP_TEPS_7,0) + 02178215 021783 VALUE(TEP_TEPS_8,0) + 02178315 021784 VALUE(TEP_TEPS_9,0) + 02178415 021785 VALUE(TEP_TEPS_10,0) + 02178515 021786 VALUE(TEP_TEPS_11,0) + 02178615 021787 VALUE(TEP_TEPS_12,0)) 02178715 021790 FROM HRIA01.V_TEPS 02179009 021791 WHERE TEP_FIN_YEAR = :WS-CUR-FIN-YEAR1 02179113 021792 ORDER BY TEP_PERNO 02179209 021793 END-EXEC. 02179309 021794 02179409 021800 PROCEDURE DIVISION. 02180000 021900*-------------------- 02190000 022000 P-0000-MAIN-PARA. 02200000 022100*----------------- 02210000 022200 02220000 022300 PERFORM P-1000-INIT-PARA 02230000 022400 THRU P-1000-INIT-PARA-EXIT. 02240000 022500 02250000 022600 PERFORM P-2000-OPEN-CUR-PARA 02260000 022700 THRU P-2000-OPEN-CUR-PARA-EXIT 02270000 022800 02280000 022900 PERFORM P-3000-FETCH-TEPS 02290000 023000 THRU P-3000-FETCH-TEPS-EXIT UNTIL WS-EOF = "Y" . 02300000 023100 02310000 023200 PERFORM P-4000-CLOSE-CUR-PARA 02320000 023300 THRU P-4000-CLOSE-CUR-PARA-EXIT. 02330000 023400 02340000 023500 DISPLAY " NO. OF RECORDS FETCHED ......." WS-REC-FETCH. 02350000 024400 DISPLAY " TOTAL OPENING BALANCE ........" WS-AMT. 02440000 024500 MOVE WS-CUR-FIN-YEAR TO ANP-FIN-YEAR. 02450000 024501 MOVE " NO. OF RECORDS FETCHED ......." TO MESSAGE-LINE. 02450104 024502 MOVE WS-REC-FETCH TO MESSAGE-VAR-INT.02450217 024503 WRITE PRT-REC FROM WS-RECORD. 02450304 024504 MOVE " TOTAL OPENING BALANCE CREATED " TO MESSAGE-LINE. 02450404 024505 MOVE WS-AMT TO MESSAGE-VAR-INT.02450506 024506 WRITE PRT-REC FROM WS-RECORD. 02450604 024507 MOVE "N" TO WS-EOF. 02450717 024508 02450809 024509 PERFORM P-5000-OPEN-CUR-PARA 02450909 024510 THRU P-5000-OPEN-CUR-PARA-EXIT 02451009 024511 02451109 024512 PERFORM P-6000-FETCH-TEPS 02451209 024513 THRU P-6000-FETCH-TEPS-EXIT UNTIL WS-EOF = "Y" . 02451309 024514 02451409 024515*********START CMR NO 3664 DTD 02/05/2K BY SAURABH 02451532 024524* PERFORM P-7000-CLOSE-CUR-PARA 02452429 024525* THRU P-7000-CLOSE-CUR-PARA-EXIT. 02452529 024526*********END CMR NO 3664 DTD 02/05/2K BY SAURABH 02452632 024527 02452709 024528 DISPLAY " NO. OF RECORDS FETCHED ......." WS-REC-FETCH. 02452809 024529 DISPLAY " TOTAL CONTRIBUTION ..........." WS-AMT. 02452910 024530 DISPLAY " NO. OF NEW RECORDS ADDED ....." WS-NEW-CASE. 02453010 024531 DISPLAY " TOTAL CONTRIB. OF NEW RECDS .." WS-NEW-AMT. 02453110 024532 DISPLAY " WS-CUR-FIN-YEAR .." WS-CUR-FIN-YEAR.02453221 024533 DISPLAY " ANP-FIN-YEAR .." ANP-FIN-YEAR. 02453321 024534 MOVE WS-CUR-FIN-YEAR TO ANP-FIN-YEAR. 02453429 024535 DISPLAY " WS-REC-FETCH .." WS-REC-FETCH. 02453522 024536 DISPLAY " TOTAL CONTRIBUTION ..........." WS-AMT. 02453626 024537 DISPLAY "NO. OF NEW CASE ............" WS-NEW-CASE. 02453726 024538 MOVE " NO. OF RECORDS FETCHED ......." TO MESSAGE-LINE. 02453821 024539 DISPLAY "TOTAL CONTRIB. OF NEW CASES " WS-NEW-AMT. 02453926 024540 MOVE WS-REC-FETCH TO MESSAGE-VAR-INT.02454021 024541 WRITE PRT-REC FROM WS-RECORD. 02454125 024542 DISPLAY " TOTAL CONTRIBUTION ..........." WS-AMT. 02454222 024543 MOVE " TOTAL CONTRIBUTION ..........." TO MESSAGE-LINE. 02454321 024544 MOVE WS-AMT TO MESSAGE-VAR-INT.02454421 024545 WRITE PRT-REC FROM WS-RECORD. 02454521 024546 DISPLAY "NO. OF NEW CASE ............" WS-NEW-CASE. 02454622 024547 MOVE " NO. OF NEW CASE ..........." TO MESSAGE-LINE. 02454721 024548 MOVE WS-NEW-CASE TO MESSAGE-VAR-INT.02454821 024549 WRITE PRT-REC FROM WS-RECORD. 02454921 024550 DISPLAY "TOTAL CONTRIB. OF NEW CASES " WS-NEW-AMT. 02455022 024551 MOVE " TOTAL CONTRIB. OF NEW CASES " TO MESSAGE-LINE. 02455121 024552 MOVE WS-NEW-AMT TO MESSAGE-VAR-INT.02455221 024553 WRITE PRT-REC FROM WS-RECORD. 02455321 024554 EXEC SQL 02455421 024555 UPDATE HRIA01.V_ANNL_PARAM 02455521 024556 SET ANP_FIN_YEAR = :ANP-FIN-YEAR 02455621 024557 WHERE ANP_ANNL_TYP = 'TEP' 02455700 024558 END-EXEC. 02455800 024600 02460000 024601*********START CMR NO 3664 DTD 02/05/2K BY SAURABH 02460132 024610 PERFORM P-7000-CLOSE-CUR-PARA 02461028 024620 THRU P-7000-CLOSE-CUR-PARA-EXIT. 02462028 024630*********END CMR NO 3664 DTD 02/05/2K BY SAURABH 02463032 024700 STOP RUN. 02470000 024800 02480000 024900 P-1000-INIT-PARA. 02490000 025000*----------------- 02500000 025100 02510000 025200 INITIALIZE WS-LOCAL. 02520000 025300 INITIALIZE DCLV-TEPS-MAST. 02530000 025500 INITIALIZE DCLV-ANNL-PARAM. 02550000 025800 02580000 025900 ACCEPT WS-DATE FROM DATE. 02590000 026000 MOVE CORR WS-DATE TO P-DATE. 02600000 026010 EXEC SQL 02601000 026100 SELECT ANP_FIN_YEAR INTO 02610000 026200 :ANP-FIN-YEAR 02620000 026300 FROM HRIA01.V_ANNL_PARAM 02630000 026400 WHERE ANP_ANNL_TYP = 'TEP' 02640000 026500 END-EXEC. 02650000 026600 DISPLAY "ANP-FIN-YEAR " ANP-FIN-YEAR. 02660003 026700 MOVE ANP-FIN-YEAR TO WS-CUR-FIN-YEAR 02670000 026710 WS-OLD-FIN-YEAR. 02671000 026800 ADD 1 TO WS-CUR-START-YEAR. 02680000 026900 ADD 1 TO WS-CUR-END-YEAR. 02690000 026910 MOVE WS-CUR-FIN-YEAR TO ANP-FIN-YEAR. 02691011 026920 DISPLAY "PROCESSING FOR FINANCIAL YEAR.." 02692000 026930 ANP-FIN-YEAR. 02693000 026931 MOVE WS-CUR-FIN-YEAR TO TPM-FIN-YEAR. 02693101 026932 MOVE WS-CUR-FIN-YEAR TO WS-CUR-FIN-YEAR1. 02693211 026933 MOVE WS-CUR-FIN-YEAR TO WS-REP-FINYEAR. 02693311 026934 EXEC SQL 02693411 026935 DELETE FROM HRIA01.V_TEPS_MAST 02693511 026940 WHERE TPM_FIN_YEAR = :WS-CUR-FIN-YEAR1 02694012 027000 END-EXEC. 02700000 027001 EXEC SQL 02700100 027010 COMMIT 02701000 027011 END-EXEC. 02701100 027020 02702000 027100 02710000 028300 P-1000-INIT-PARA-EXIT. 02830000 028400*----------------------- 02840000 028500 EXIT. 02850000 028600 02860000 028700 P-2000-OPEN-CUR-PARA. 02870000 028800*---------------------- 02880000 028900 02890000 029000 EXEC SQL 02900000 029100 OPEN CUR-TPM 02910000 029200 END-EXEC. 02920000 029300 02930000 029400 IF SQLCODE NOT = 0 02940000 029500 DISPLAY "ERROR IN OPENING CURSOR .." 02950000 029600 GO TO P-9999-ABEND-ROUTINE 02960000 029700 END-IF. 02970000 029800 02980000 029900 OPEN OUTPUT PRTF. 02990000 030000 03000000 030100 IF WS-STAT-1 NOT = "00" 03010000 030200 DISPLAY "ERROR IN OPENING FILE ..." WS-STAT-1 03020000 030300 GO TO P-9999-ABEND-ROUTINE 03030000 030400 END-IF. 03040000 030500 03050000 030510 WRITE PRT-REC FROM WS-HEADER1. 03051004 030520 WRITE PRT-REC FROM WS-HEADER1. 03052004 030530 WRITE PRT-REC FROM WS-HEADER1. 03053004 030540 WRITE PRT-REC FROM WS-BLANK-LINE. 03054004 030550 WRITE PRT-REC FROM WS-BLANK-LINE. 03055004 030600 DISPLAY "OPEN CURSOR SUCCESSFUL". 03060000 030700 03070000 030800 P-2000-OPEN-CUR-PARA-EXIT. 03080000 030900*-------------------------- 03090000 031000 EXIT. 03100000 031100 03110000 031200 P-3000-FETCH-TEPS. 03120003 031300*------------------ 03130000 031400 03140000 031500 INITIALIZE DCLV-TEPS-MAST 03150000 031600 INITIALIZE DCLV-ANNL-PARAM 03160000 031700 03170000 031800 EXEC SQL 03180000 031900 FETCH CUR-TPM 03190000 032000 INTO :TPM-PERNO 03200000 032100 ,:TPM-CL-BAL-MEM 03210000 032200 ,:TPM-CL-BAL-COM 03220000 032300 ,:TPM-FIN-YEAR 03230000 032400 ,:TPM-TRANS-STA 03240000 032500 ,:TPM-CATEG 03250000 032700 END-EXEC. 03270000 032800 03280000 032900 IF SQLCODE NOT = (0 AND 100) 03290000 033000 DISPLAY "ERROR IN FETCH FROM V_TEPS_MAST." 03300000 033100 GO TO P-9999-ABEND-ROUTINE 03310000 033200 END-IF 03320000 033300 03330000 033400 IF SQLCODE = 100 03340000 033500 DISPLAY "ALL RECORDS FETCHED .." 03350000 033600 MOVE "Y" TO WS-EOF 03360000 033700 GO TO P-3000-FETCH-TEPS-EXIT 03370000 033800 END-IF. 03380000 033900 03390000 034000 ADD 1 TO WS-REC-FETCH. 03400000 034010 ADD TPM-CL-BAL-MEM TO WS-AMT. 03401004 034100 IF WS-REC-FETCH = (100 OR 200 OR 500 OR 1000 OR 5000 03410000 034200 OR 7000 OR 8000 OR 10000 OR 11000) 03420000 034300 DISPLAY "RECORDS FETCHED ..." WS-REC-FETCH 03430000 034400 END-IF. 03440000 034500 03450000 038900 PERFORM P-3100-INS-TEPS-PARA 03890000 039000 THRU P-3100-INS-TEPS-PARA-EXIT. 03900000 042600 04260000 042700 P-3000-FETCH-TEPS-EXIT. 04270000 042800*----------------------- 04280000 042900 EXIT. 04290000 043000 04300000 043100 P-3100-INS-TEPS-PARA. 04310000 043200*---------------------* 04320000 043300 04330000 043800 EXEC SQL 04380000 043900 INSERT INTO HRIA01.V_TEPS_MAST 04390000 044000 ( TPM_PERNO 04400000 044010 ,TPM_INT_COM 04401010 044020 ,TPM_INT_MEM 04402010 044030 ,TPM_OB_CORR_COM 04403010 044040 ,TPM_OB_CORR_MEM 04404010 044050 ,TPM_PAID_COM_1 04405010 044060 ,TPM_PAID_MEM_2 04406013 044070 ,TPM_SRLNO 04407010 044080 ,TPM_TOTAL_CONT 04408010 044100 ,TPM_CL_BAL_MEM 04410000 044200 ,TPM_CL_BAL_COM 04420000 044300 ,TPM_FIN_YEAR 04430000 044400 ,TPM_TRANS_STA 04440000 044500 ,TPM_CATEG 04450000 044510 ,TPM_OP_BAL_MEM 04451000 044520 ,TPM_OP_BAL_COM 04452000 044530 ,TPM_ENTRY_DT 04453000 044540 ,TPM_OP_CODE) 04454000 044550 VALUES 04455000 044560 (:TPM-PERNO 04456000 044570 ,0 04457000 044571 ,0 04457110 044572 ,0 04457210 044573 ,0 04457310 044574 ,0 04457410 044575 ,0 04457510 044576 ,0 04457610 044577 ,0 04457710 044578 ,0 04457810 044580 ,0 04458000 044590 ,:WS-CUR-FIN-YEAR1 04459011 044591 ,:TPM-TRANS-STA 04459101 044592 ,:TPM-CATEG 04459201 044593 ,:TPM-CL-BAL-MEM 04459301 044594 ,:TPM-CL-BAL-COM 04459401 044595 ,CURRENT DATE 04459500 044596 ,'TEPS1') 04459600 044600 END-EXEC. 04460000 044700 04470000 044800 IF SQLCODE NOT = (0 AND 100) 04480000 044900 DISPLAY "ERROR INSERTING RECORD IN TEPS MAST." 04490000 045000 GO TO P-9999-ABEND-ROUTINE 04500000 045100 END-IF. 04510000 046400 04640000 046410 P-3100-INS-TEPS-PARA-EXIT. 04641000 046600*-------------------------* 04660000 046700 EXIT. 04670000 046800 04680000 053000 P-4000-CLOSE-CUR-PARA. 05300000 053100*---------------------- 05310000 053200 05320000 053500 EXEC SQL 05350000 053600 CLOSE CUR-TPM 05360000 053700 END-EXEC. 05370000 053800 DISPLAY "CLOSE CURSOR SUCCESSFUL". 05380000 053900 05390000 054000 P-4000-CLOSE-CUR-PARA-EXIT. 05400000 054100*-------------------------- 05410000 054200 EXIT. 05420000 054300 05430000 054310 P-5000-OPEN-CUR-PARA. 05431009 054320*---------------------- 05432009 054330 05433009 054340 EXEC SQL 05434009 054350 OPEN CUR-TEP 05435009 054360 END-EXEC. 05436009 054370 05437009 054380 IF SQLCODE NOT = 0 05438009 054390 DISPLAY "ERROR IN OPENING CURSOR .." 05439009 054391 GO TO P-9999-ABEND-ROUTINE 05439109 054392 END-IF. 05439209 054393 05439309 054404 WRITE PRT-REC FROM WS-BLANK-LINE. 05440409 054405 WRITE PRT-REC FROM WS-BLANK-LINE. 05440509 054406 DISPLAY "OPEN CURSOR SUCCESSFUL". 05440609 054407 INITIALIZE WS-AMT 05440709 054408 WS-REC-FETCH 05440809 054409 WS-NEW-CASE 05440909 054410 WS-NEW-AMT. 05441009 054411 05441109 054412 P-5000-OPEN-CUR-PARA-EXIT. 05441209 054413*-------------------------- 05441309 054414 EXIT. 05441409 054415 05441509 054416 P-6000-FETCH-TEPS. 05441609 054417*------------------ 05441709 054418 05441809 054419 INITIALIZE DCLV-TEPS-MAST 05441909 054420 INITIALIZE DCLV-TEPS 05442009 054421 05442109 054422 EXEC SQL 05442209 054423 FETCH CUR-TEP 05442309 054424 INTO :TEP-PERNO 05442409 054425 ,:WS-TEPS-CONTR 05442510 054426 END-EXEC. 05442609 054427 05442709 054428 IF SQLCODE NOT = (0 AND 100) 05442809 054429 DISPLAY "ERROR IN FETCH FROM V_TEPS" 05442909 054430 GO TO P-9999-ABEND-ROUTINE 05443009 054431 END-IF 05443109 054432 05443209 054433 IF SQLCODE = 100 05443309 054434 DISPLAY "ALL RECORDS FETCHED .." 05443409 054435 MOVE "Y" TO WS-EOF 05443509 054436 GO TO P-6000-FETCH-TEPS-EXIT 05443609 054437 END-IF. 05443709 054438 05443809 054439 ADD 1 TO WS-REC-FETCH. 05443909 054440 ADD WS-TEPS-CONTR TO WS-AMT. 05444010 054441 IF WS-REC-FETCH = (100 OR 200 OR 500 OR 1000 OR 5000 05444109 054442 OR 7000 OR 8000 OR 10000 OR 11000) 05444209 054443 DISPLAY "RECORDS FETCHED ..." WS-REC-FETCH 05444309 054444 END-IF. 05444409 054445 05444509 054446 PERFORM P-6100-UPD-TEPS-PARA 05444609 054447 THRU P-6100-UPD-TEPS-PARA-EXIT. 05444709 054448 05444809 054449 P-6000-FETCH-TEPS-EXIT. 05444909 054450*----------------------- 05445009 054451 EXIT. 05445109 054452 05445209 054453 P-6100-UPD-TEPS-PARA. 05445309 054454*---------------------* 05445409 054455 05445509 054456 MOVE WS-CUR-FIN-YEAR TO TPM-FIN-YEAR. 05445609 054457 MOVE TEP-PERNO TO TPM-PERNO. 05445709 054458 05445809 054459 EXEC SQL 05445909 054460 UPDATE HRIA01.V_TEPS_MAST 05446009 054461 SET TPM_TOTAL_CONT = :WS-TEPS-CONTR 05446110 054462 WHERE TPM_PERNO = :TPM-PERNO AND 05446211 054463 TPM_FIN_YEAR = :TPM-FIN-YEAR 05446309 054482 END-EXEC. 05448209 054483 05448309 054484 IF SQLCODE = 100 05448409 054485 ADD 1 TO WS-NEW-CASE 05448510 054486 ADD WS-TEPS-CONTR TO WS-NEW-AMT 05448610 054487 EXEC SQL 05448709 054488 INSERT INTO HRIA01.V_TEPS_MAST 05448809 054489 ( TPM_PERNO 05448909 054490 ,TPM_INT_COM 05449010 054491 ,TPM_INT_MEM 05449110 054492 ,TPM_OB_CORR_COM 05449210 054493 ,TPM_OB_CORR_MEM 05449310 054494 ,TPM_PAID_COM_1 05449410 054495 ,TPM_PAID_MEM_2 05449513 054496 ,TPM_SRLNO 05449610 054498 ,TPM_CL_BAL_MEM 05449810 054499 ,TPM_CL_BAL_COM 05449910 054500 ,TPM_FIN_YEAR 05450010 054501 ,TPM_TRANS_STA 05450110 054502 ,TPM_CATEG 05450210 054503 ,TPM_OP_BAL_MEM 05450310 054504 ,TPM_OP_BAL_COM 05450410 054505 ,TPM_ENTRY_DT 05450510 054506 ,TPM_OP_CODE 05450610 054507 ,TPM_TOTAL_CONT) 05450710 054508 VALUES 05450810 054509 (:TPM-PERNO 05450911 054510 ,0 05451010 054511 ,0 05451110 054512 ,0 05451210 054513 ,0 05451310 054514 ,0 05451410 054515 ,0 05451510 054516 ,0 05451610 054517 ,0 05451710 054518 ,0 05451810 054519 ,:TPM-FIN-YEAR 05451910 054520 ,6 05452014 054521 ,'R' 05452110 054522 ,0 05452210 054523 ,0 05452310 054524 ,CURRENT DATE 05452410 054525 ,'NEW' 05452510 054526 ,:WS-TEPS-CONTR) 05452610 054527 END-EXEC 05452712 054528 05452810 054529 IF SQLCODE NOT = (0 AND 100) 05452910 054530 DISPLAY "ERROR INSERTING RECORD IN TEPS MAST." 05453010 054531 GO TO P-9999-ABEND-ROUTINE 05453110 054532 END-IF 05453210 054533 ELSE 05453310 054534 IF SQLCODE NOT = 0 05453410 054535 DISPLAY "ERROR INSERTING RECORD IN TEPS MAST." 05453510 054536 GO TO P-9999-ABEND-ROUTINE 05453610 054537 END-IF 05453710 054538 END-IF. 05453810 054539 05453910 054540 P-6100-UPD-TEPS-PARA-EXIT. 05454010 054541*-------------------------* 05454110 054542 EXIT. 05454210 054543 05454310 054544 P-7000-CLOSE-CUR-PARA. 05454410 054545*---------------------- 05454510 054546 05454610 054547 CLOSE PRTF 05454710 054548 05454810 054549 EXEC SQL 05454910 054550 CLOSE CUR-TEP 05455010 054551 END-EXEC. 05455110 054552 DISPLAY "CLOSE CURSOR SUCCESSFUL". 05455210 054553 05455310 054554 P-7000-CLOSE-CUR-PARA-EXIT. 05455410 054555*-------------------------- 05455510 054556 EXIT. 05455610 054557 05455710 054558 P-9999-ABEND-ROUTINE. 05455810 054560*---------------------- 05456010 054600 05460000 054700 DISPLAY "SQLCODE ..." SQLCODE 05470000 054800 MOVE 12 TO RETURN-CODE 05480000 054900 EXEC SQL 05490000 055000 ROLLBACK 05500000 055100 END-EXEC. 05510000 055200 STOP RUN. 05520000 055300 05530000 055400 P-9999-ABEND-ROUTINE-EXIT. 05540000 055500*---------------------- 05550000 055600 EXIT. 05560000