|Summary Code generation by hrs on 15/Jun/2007 |Group No Serial ReportNo Report Code Report Description Remark |1 1 1 tijwx840111000 Detail WIP Report || Parallel Summary |1 2 2 tijwx840117000 Summary Reports XX No Summary |1 3 3 tijwx840118000 Project wise Metal Control Report ~~ Embedded Summary |1 4 4 tijwx840119000 Daily Target Paper XX No Summary |1 5 5 tijwx840111100 Detail WIP Report (Finess and Origina|| Parallel Summary |1 6 6 tijwx840120000 Detail WIP Report - Without Fallen/Br|| Parallel Summary |1 7 7 tijwx840111200 Detail WIP Report - Fineness wiseWith|| Parallel Summary |1 8 8 tijwx840111209 Detail WIP Report -Fineness wiseWitho|| Parallel Summary |1 9 9 tijwx840118100 Project wise Metal Control Report - M~~ Embedded Summary |1 10 10 tijwx840118101 Detail WIP Report - Without F/B/L S/P|| Parallel Summary |1 11 11 tijwx840111210 Division and Finness wise WIP ~~ Embedded Summary |1 12 12 tijwx840111218 Division and Finness wise WIP NEW ~~ Embedded Summary |Sortfields for tijwx840111000 Detail WIP Report 101 |Sort field Sortno Domain Length |sumflag 1 tcsrnb 2 |metc 2 tcsrnb 2 |ststr 3 tcstr8 8 |mtstr 4 tcstr8 8 |tirou001.mnwc 5 tccwoc 3 |Sortfields for tijwx840117000 Summary Reports 102 |Sort field Sortno Domain Length |Sortfields for tijwx840118000 Project wise Metal Control Report 103 |Sort field Sortno Domain Length |tijwx800.cprj 1 tccprj 6 |Sortfields for tijwx840119000 Daily Target Paper 104 |Sort field Sortno Domain Length |Sortfields for tijwx840111100 Detail WIP Report (Finess and Original I 105 |Sort field Sortno Domain Length |sumflag 1 tcsrnb 2 |metc 2 tcsrnb 2 |ststr 3 tcstr8 8 |mtstr 4 tcstr8 8 |tirou001.mnwc 5 tccwoc 3 |Sortfields for tijwx840120000 Detail WIP Report - Without Fallen/Broke 106 |Sort field Sortno Domain Length |sumflag 1 tcsrnb 2 |metc 2 tcsrnb 2 |ststr 3 tcstr8 8 |mtstr 4 tcstr8 8 |tirou001.mnwc 5 tccwoc 3 |Sortfields for tijwx840111200 Detail WIP Report - Fineness wiseWithout 107 |Sort field Sortno Domain Length |sumflag 1 tcsrnb 2 |metc 2 tcsrnb 2 |ststr 3 tcstr8 8 |mtstr 4 tcstr8 8 |tirou001.mnwc 5 tccwoc 3 |Sortfields for tijwx840111209 Detail WIP Report -Fineness wiseWithout 108 |Sort field Sortno Domain Length |sumflag 1 tcsrnb 2 |metc 2 tcsrnb 2 |ststr 3 tcstr8 8 |mtstr 4 tcstr8 8 |tirou001.mnwc 5 tccwoc 3 |Sortfields for tijwx840118100 Project wise Metal Control Report - Mac 109 |Sort field Sortno Domain Length |tijwx800.cprj 1 tccprj 6 |Sortfields for tijwx840118101 Detail WIP Report - Without F/B/L S/P - 110 |Sort field Sortno Domain Length |sumflag 1 tcsrnb 2 |ststr 2 tcstr8 8 |mtstr 3 tcstr8 8 |tirou001.mnwc 4 tccwoc 3 |Sortfields for tijwx840111210 Division and Finness wise WIP 111 |Sort field Sortno Domain Length |cwoc 1 tccwoc 3 |Sortfields for tijwx840111218 Division and Finness wise WIP NEW 112 |Sort field Sortno Domain Length |cwoc 2 tccwoc 3 |Accumulator details for tijwx840111000 Detail WIP Report 101 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |2 tijwx800.qcmp Total not sumflag tot__tijwx800.qcmpno tiqep3 |1 tijwx800.wght Total not sumflag tot__tijwx800.wghtno tcqiv1 |Accumulator details for tijwx840118000 Project wise Metal Control Report 103 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |1 tijwx800.qcmp Total tirou001.mnwc = " QC tot__tijwx800.qcmp0 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc<>"SL1" tot__tijwx800.qcmp1 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="CHK" tot__tijwx800.qcmp2 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="CLS" tot__tijwx800.qcmp3 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="CST" tot__tijwx800.qcmp4 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="EXP" tot__tijwx800.qcmp5 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="FIL" tot__tijwx800.qcmp6 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="GRD" tot__tijwx800.qcmp7 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="LNK" tot__tijwx800.qcmp8 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="MD1" tot__tijwx800.qcmp9 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="POL" tot__tijwx800.qcmp10 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="PR2" tot__tijwx800.qcmp11 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="PR6" tot__tijwx800.qcmp12 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="STP" tot__tijwx800.qcmp13 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="STT" tot__tijwx800.qcmp14 tiqep3 |Accumulator details for tijwx840111100 Detail WIP Report (Finess and Original I105 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |2 tijwx800.qcmp Total tot__tijwx800.qcmp tiqep3 |1 tijwx800.wght Total tot__tijwx800.wght tcqiv1 |Accumulator details for tijwx840120000 Detail WIP Report - Without Fallen/Broke106 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |2 tijwx800.qcmp Total not sumflag tot__tijwx800.qcmpno tiqep3 |1 tijwx800.wght Total not sumflag tot__tijwx800.wghtno tcqiv1 |Accumulator details for tijwx840111200 Detail WIP Report - Fineness wiseWithout107 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |2 tijwx800.qcmp Total not sumflag tot__tijwx800.qcmpno tiqep3 |1 tijwx800.wght Total not sumflag tot__tijwx800.wghtno tcqiv1 |Accumulator details for tijwx840111209 Detail WIP Report -Fineness wiseWithout 108 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |2 tijwx800.qcmp Total not sumflag tot__tijwx800.qcmpno tiqep3 |1 tijwx800.wght Total not sumflag tot__tijwx800.wghtno tcqiv1 |Accumulator details for tijwx840118100 Project wise Metal Control Report - Mac 109 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |1 tijwx800.qcmp Total tirou001.mnwc<>"BEG" tot__tijwx800.qcmp0 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc=" QC" tot__tijwx800.qcmp1 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="ASL" tot__tijwx800.qcmp2 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="BAG" tot__tijwx800.qcmp3 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="DLG" tot__tijwx800.qcmp4 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="EXP" tot__tijwx800.qcmp5 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="FCF" tot__tijwx800.qcmp6 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="GRO" tot__tijwx800.qcmp7 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="GRP" tot__tijwx800.qcmp8 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="LNK" tot__tijwx800.qcmp9 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="POL" tot__tijwx800.qcmp10 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="STC" tot__tijwx800.qcmp11 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="STL" tot__tijwx800.qcmp12 tiqep3 |1 tijwx800.qcmp Total tirou001.mnwc="STT" tot__tijwx800.qcmp13 tiqep3 |Accumulator details for tijwx840118101 Detail WIP Report - Without F/B/L S/P - 110 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |2 tijwx800.qcmp Total not sumflag tot__tijwx800.qcmpno tiqep3 |Accumulator details for tijwx840111210 Division and Finness wise WIP 111 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |1 pure Total tot__pure tcqiv1 |1 pure1 Total tot__pure1 tcqiv1 |1 qcmp Total tot__qcmp tiqep3 |1 ston Total tot__ston tiqep3 |1 ston1 Total tot__ston1 tiqep3 |1 wght Total finness = " 9" tot__wghtfinnessEQ9 tcqiv1 |1 wght Total finness = " 10" tot__wghtfinnessEQ10 tcqiv1 |1 wght Total finness = " 14" tot__wghtfinnessEQ14 tcqiv1 |1 wght Total finness = " 18" tot__wghtfinnessEQ18 tcqiv1 |1 wght Total finness = "950" tot__wghtfinnessEQ95 tcqiv1 |Accumulator details for tijwx840111218 Division and Finness wise WIP NEW 112 |Seq Print Expression Agg Func Agg Condition Prog Var Domain |1 gld10 Total tot__gld10 tcqiv1 |1 gld14 Total tot__gld14 tcqiv1 |1 gld18 Total tot__gld18 tcqiv1 |1 gld9 Total tot__gld9 tcqiv1 |1 gld9+gld10+gld14+gld18 Total total__4 tcqiv1 |1 pld95 Total tot__pld95 tcqiv1 |1 plt950 Total tot__plt950 tcqiv1 |1 pure Total tot__pure tcqiv1 |1 pure1 Total tot__pure1 tcqiv1 |1 pure2 Total tot__pure2 tcqiv1 |1 pure3 Total tot__pure3 tcqiv1 |1 qcmp.new Total tot__qcmp.new tiqep3 |1 slv925 Total tot__slv925 tcqiv1 |1 ston.cpr Total tot__ston.cpr tiqep3 |1 ston.csp Total tot__ston.csp tiqep3 |1 ston.cz Total tot__ston.cz tiqep3 |1 ston.dia Total tot__ston.dia tiqep3 |1 ston.dia+ston.csp+ston.cpr+ston.cz Total total__17 tcqiv1 |1 ston1.cpr Total tot__ston1.cpr tiqep3 |1 ston1.csp Total tot__ston1.csp tiqep3 |1 ston1.cz Total tot__ston1.cz tiqep3 |1 ston1.dia Total tot__ston1.dia tiqep3 |1 ston1.dia+ston1.csp+ston1.cpr+ston1 Total total__22 tcqiv1 #pragma used dll otdjwxperforman declaration: |Performance dll grouping declarations extern string grpstr_arr_code(1,1) based |Group String array Code extern string grpstr_search_code(1) based |Group String SEarch Code extern long arrayidx |Array Index extern long totalarrayelem |Total Array Element extern long searchposition |Search Position extern long indexlen |Index Length extern long search_len |Search Length extern long totgrplen |Total Group Length extern domain tcbool dllsucc |Success in DLL grouping extern long reportcode |Report Serl Code 100*group + reportno |Accumulator Declarations double tot__tijwx800.qcmp0(1) based |Total of tijwx800.qcmp for tirou001.mnwc = " QC" or tirou001.mnwc = "QC1" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc<>"BEG" and tirou001.mnwc<>"SL1" in rpt seq 1 in tijwx840118100 double tot__pure(1) based |Total of pure in rpt seq 1 in tijwx840111210 double tot__gld10(1) based |Total of gld10 in rpt seq 1 in tijwx840111218 |Total of pure in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp1(1) based |Total of tijwx800.qcmp for tirou001.mnwc<>"SL1" and tirou001.mnwc<>"SLO" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc=" QC" in rpt seq 1 in tijwx840118100 double tot__pure1(1) based |Total of pure1 in rpt seq 1 in tijwx840111210 double tot__gld14(1) based |Total of gld14 in rpt seq 1 in tijwx840111218 |Total of pure1 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp2(1) based |Total of tijwx800.qcmp for tirou001.mnwc="CHK" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="ASL" in rpt seq 1 in tijwx840118100 double tot__qcmp(1) based |Total of qcmp in rpt seq 1 in tijwx840111210 double tot__gld18(1) based |Total of gld18 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp3(1) based |Total of tijwx800.qcmp for tirou001.mnwc="CLS" or tirou001.mnwc="PDC" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="BAG" in rpt seq 1 in tijwx840118100 double tot__ston(1) based |Total of ston in rpt seq 1 in tijwx840111210 double tot__gld9(1) based |Total of gld9 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp4(1) based |Total of tijwx800.qcmp for tirou001.mnwc="CST" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="DLG" in rpt seq 1 in tijwx840118100 double tot__ston1(1) based |Total of ston1 in rpt seq 1 in tijwx840111210 double total__4(1) based |Total of gld9+gld10+gld14+gld18 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp5(1) based |Total of tijwx800.qcmp for tirou001.mnwc="EXP" or tirou001.mnwc="RFE" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="EXP" or tirou001.mnwc="RFE" in rpt seq 1 in tijwx840118100 double tot__wghtfinnessEQ9(1) based |Total of wght for finness = " 9" in rpt seq 1 in tijwx840111210 double tot__pld95(1) based |Total of pld95 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp6(1) based |Total of tijwx800.qcmp for tirou001.mnwc="FIL" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="FCF" or tirou001.mnwc="GRD" in rpt seq 1 in tijwx840118100 double tot__wghtfinnessEQ10(1) based |Total of wght for finness = " 10" in rpt seq 1 in tijwx840111210 double tot__plt950(1) based |Total of plt950 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp7(1) based |Total of tijwx800.qcmp for tirou001.mnwc="GRD" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="GRO" in rpt seq 1 in tijwx840118100 double tot__wghtfinnessEQ14(1) based |Total of wght for finness = " 14" in rpt seq 1 in tijwx840111210 double tot__tijwx800.qcmp8(1) based |Total of tijwx800.qcmp for tirou001.mnwc="LNK" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="GRP" in rpt seq 1 in tijwx840118100 double tot__wghtfinnessEQ18(1) based |Total of wght for finness = " 18" in rpt seq 1 in tijwx840111210 double tot__tijwx800.qcmp9(1) based |Total of tijwx800.qcmp for tirou001.mnwc="MD1" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="LNK" in rpt seq 1 in tijwx840118100 double tot__wghtfinnessEQ950(1) based |Total of wght for finness = "950" in rpt seq 1 in tijwx840111210 double tot__pure2(1) based |Total of pure2 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp10(1) based |Total of tijwx800.qcmp for tirou001.mnwc="POL" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="POL" in rpt seq 1 in tijwx840118100 double tot__pure3(1) based |Total of pure3 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp11(1) based |Total of tijwx800.qcmp for tirou001.mnwc="PR2" or tirou001.mnwc="PR3" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="STC" in rpt seq 1 in tijwx840118100 double tot__qcmp.new(1) based |Total of qcmp.new in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp12(1) based |Total of tijwx800.qcmp for tirou001.mnwc="PR6" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="STL" in rpt seq 1 in tijwx840118100 double tot__slv925(1) based |Total of slv925 in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp13(1) based |Total of tijwx800.qcmp for tirou001.mnwc="STP" in rpt seq 1 in tijwx840118000 |Total of tijwx800.qcmp for tirou001.mnwc="STT" in rpt seq 1 in tijwx840118100 double tot__ston.cpr(1) based |Total of ston.cpr in rpt seq 1 in tijwx840111218 double tot__tijwx800.qcmp14(1) based |Total of tijwx800.qcmp for tirou001.mnwc="STT" in rpt seq 1 in tijwx840118000 double tot__ston.csp(1) based |Total of ston.csp in rpt seq 1 in tijwx840111218 double tot__ston.cz(1) based |Total of ston.cz in rpt seq 1 in tijwx840111218 double tot__ston.dia(1) based |Total of ston.dia in rpt seq 1 in tijwx840111218 double total__17(1) based |Total of ston.dia+ston.csp+ston.cpr+ston.cz in rpt seq 1 in tijwx840111218 double tot__ston1.cpr(1) based |Total of ston1.cpr in rpt seq 1 in tijwx840111218 double tot__ston1.csp(1) based |Total of ston1.csp in rpt seq 1 in tijwx840111218 double tot__ston1.cz(1) based |Total of ston1.cz in rpt seq 1 in tijwx840111218 double tot__ston1.dia(1) based |Total of ston1.dia in rpt seq 1 in tijwx840111218 double total__22(1) based |Total of ston1.dia+ston1.csp+ston1.cpr+ston1.cz in rpt seq 1 in tijwx840111218 |Call function mem_rprt_open instead of rprt_open existing in the script function long mem_rprt_open() { if rprt_open() then dllsucc = true |Success memory based grouping - for error handling in worst case scenario totalarrayelem = 0 |Intialization for total array count indexlen = 6 |Intialization for max array Element based on experience and knowledge of data. e.g. | 3 for 999 , 4 for 9999 , 5 for 99999 and 6 for 999999 | Beyond 6 digit index len , memory may be insufficient reportcode = reportgrp*100 + reportno |In order to have separate detail logic for each attached report on case reportcode case 101: | Report group 1 reportno 1 tijwx840111000 Detail WIP Report 101 |Assign searchlen here with help of tudll8200m001 |In case u assign searchlen , pipe the following 2 lines dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 102: | Report group 1 reportno 2 tijwx840117000 Summary Reports 102 |Detail lines present no improvement possible dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 103: search_len = 6 | Report group 1 reportno 3 tijwx840118000 Project wise Metal Control Report 103 break case 104: | Report group 1 reportno 4 tijwx840119000 Daily Target Paper 104 |Detail lines present no improvement possible dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 105: | Report group 1 reportno 5 tijwx840111100 Detail WIP Report (Finess and Original I 105 |Assign searchlen here with help of tudll8200m001 |In case u assign searchlen , pipe the following 2 lines dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 106: | Report group 1 reportno 6 tijwx840120000 Detail WIP Report - Without Fallen/Broke 106 |Assign searchlen here with help of tudll8200m001 |In case u assign searchlen , pipe the following 2 lines dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 107: | Report group 1 reportno 7 tijwx840111200 Detail WIP Report - Fineness wiseWithout 107 |Assign searchlen here with help of tudll8200m001 |In case u assign searchlen , pipe the following 2 lines dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 108: | Report group 1 reportno 8 tijwx840111209 Detail WIP Report -Fineness wiseWithout 108 |Assign searchlen here with help of tudll8200m001 |In case u assign searchlen , pipe the following 2 lines dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 109: search_len = 6 | Report group 1 reportno 9 tijwx840118100 Project wise Metal Control Report - Mac 109 break case 110: | Report group 1 reportno 10 tijwx840118101 Detail WIP Report - Without F/B/L S/P - 110 |Assign searchlen here with help of tudll8200m001 |In case u assign searchlen , pipe the following 2 lines dllsucc = false |To re-direct the code to normal reporting operations return(true) break case 111: search_len = 3 | Report group 1 reportno 11 tijwx840111210 Division and Finness wise WIP 111 break case 112: search_len = 3 | Report group 1 reportno 12 tijwx840111218 Division and Finness wise WIP NEW 112 break endcase totgrplen = search_len + indexlen define_search_criteria() init.groupstr(totgrplen , 1 ,grpstr_arr_code) alloc.mem(grpstr_search_code , search_len) on case reportcode case 101:| tijwx840111000 Detail WIP Report break case 103:| tijwx840118000 Project wise Metal Control Report init.accumulator(1,tot__tijwx800.qcmp0) init.accumulator(1,tot__tijwx800.qcmp1) init.accumulator(1,tot__tijwx800.qcmp2) init.accumulator(1,tot__tijwx800.qcmp3) init.accumulator(1,tot__tijwx800.qcmp4) init.accumulator(1,tot__tijwx800.qcmp5) init.accumulator(1,tot__tijwx800.qcmp6) init.accumulator(1,tot__tijwx800.qcmp7) init.accumulator(1,tot__tijwx800.qcmp8) init.accumulator(1,tot__tijwx800.qcmp9) init.accumulator(1,tot__tijwx800.qcmp10) init.accumulator(1,tot__tijwx800.qcmp11) init.accumulator(1,tot__tijwx800.qcmp12) init.accumulator(1,tot__tijwx800.qcmp13) init.accumulator(1,tot__tijwx800.qcmp14) break case 105:| tijwx840111100 Detail WIP Report (Finess and Original I break case 106:| tijwx840120000 Detail WIP Report - Without Fallen/Broke break case 107:| tijwx840111200 Detail WIP Report - Fineness wiseWithout break case 108:| tijwx840111209 Detail WIP Report -Fineness wiseWithout break case 109:| tijwx840118100 Project wise Metal Control Report - Mac init.accumulator(1,tot__tijwx800.qcmp0) init.accumulator(1,tot__tijwx800.qcmp1) init.accumulator(1,tot__tijwx800.qcmp2) init.accumulator(1,tot__tijwx800.qcmp3) init.accumulator(1,tot__tijwx800.qcmp4) init.accumulator(1,tot__tijwx800.qcmp5) init.accumulator(1,tot__tijwx800.qcmp6) init.accumulator(1,tot__tijwx800.qcmp7) init.accumulator(1,tot__tijwx800.qcmp8) init.accumulator(1,tot__tijwx800.qcmp9) init.accumulator(1,tot__tijwx800.qcmp10) init.accumulator(1,tot__tijwx800.qcmp11) init.accumulator(1,tot__tijwx800.qcmp12) init.accumulator(1,tot__tijwx800.qcmp13) break case 110:| tijwx840118101 Detail WIP Report - Without F/B/L S/P - break case 111:| tijwx840111210 Division and Finness wise WIP init.accumulator(1,tot__pure) init.accumulator(1,tot__pure1) init.accumulator(1,tot__qcmp) init.accumulator(1,tot__ston) init.accumulator(1,tot__ston1) init.accumulator(1,tot__wghtfinnessEQ9) init.accumulator(1,tot__wghtfinnessEQ10) init.accumulator(1,tot__wghtfinnessEQ14) init.accumulator(1,tot__wghtfinnessEQ18) init.accumulator(1,tot__wghtfinnessEQ950) break case 112:| tijwx840111218 Division and Finness wise WIP NEW init.accumulator(1,tot__gld10) init.accumulator(1,tot__gld14) init.accumulator(1,tot__gld18) init.accumulator(1,tot__gld9) init.accumulator(1,total__4) init.accumulator(1,tot__pld95) init.accumulator(1,tot__plt950) init.accumulator(1,tot__pure) init.accumulator(1,tot__pure1) init.accumulator(1,tot__pure2) init.accumulator(1,tot__pure3) init.accumulator(1,tot__qcmp.new) init.accumulator(1,tot__slv925) init.accumulator(1,tot__ston.cpr) init.accumulator(1,tot__ston.csp) init.accumulator(1,tot__ston.cz) init.accumulator(1,tot__ston.dia) init.accumulator(1,total__17) init.accumulator(1,tot__ston1.cpr) init.accumulator(1,tot__ston1.csp) init.accumulator(1,tot__ston1.cz) init.accumulator(1,tot__ston1.dia) init.accumulator(1,total__22) break endcase return(true) endif return(false) } |Replace function rprt_close function with this mem_rprt_close function function mem_rprt_close() { for arrayidx = 1 to totalarrayelem |assign break up value of grpstr to report variables |assign accumulator qty according to index in grpstr(search_len+1,kk) on case reportcode case 101:| tijwx840111000 Detail WIP Report break case 102:| tijwx840117000 Summary Reports break case 103:| tijwx840118000 Project wise Metal Control Report tijwx800.cprj=grpstr_arr_code(1,arrayidx;6) break case 104:| tijwx840119000 Daily Target Paper break case 105:| tijwx840111100 Detail WIP Report (Finess and Original I break case 106:| tijwx840120000 Detail WIP Report - Without Fallen/Broke break case 107:| tijwx840111200 Detail WIP Report - Fineness wiseWithout break case 108:| tijwx840111209 Detail WIP Report -Fineness wiseWithout break case 109:| tijwx840118100 Project wise Metal Control Report - Mac tijwx800.cprj=grpstr_arr_code(1,arrayidx;6) break case 110:| tijwx840118101 Detail WIP Report - Without F/B/L S/P - break case 111:| tijwx840111210 Division and Finness wise WIP cwoc=grpstr_arr_code(1,arrayidx;3) break case 112:| tijwx840111218 Division and Finness wise WIP NEW cwoc=grpstr_arr_code(1,arrayidx;3) break endcase accumulator.assignment.to.rprtvar.and.rprt_send() endfor free.mem(grpstr_arr_code) on case reportcode case 101:|Detail WIP Report break case 102:|Summary Reports break case 103:|Project wise Metal Control Report free.mem(tot__tijwx800.qcmp0) free.mem(tot__tijwx800.qcmp1) free.mem(tot__tijwx800.qcmp2) free.mem(tot__tijwx800.qcmp3) free.mem(tot__tijwx800.qcmp4) free.mem(tot__tijwx800.qcmp5) free.mem(tot__tijwx800.qcmp6) free.mem(tot__tijwx800.qcmp7) free.mem(tot__tijwx800.qcmp8) free.mem(tot__tijwx800.qcmp9) free.mem(tot__tijwx800.qcmp10) free.mem(tot__tijwx800.qcmp11) free.mem(tot__tijwx800.qcmp12) free.mem(tot__tijwx800.qcmp13) free.mem(tot__tijwx800.qcmp14) break case 104:|Daily Target Paper break case 105:|Detail WIP Report (Finess and Original I break case 106:|Detail WIP Report - Without Fallen/Broke break case 107:|Detail WIP Report - Fineness wiseWithout break case 108:|Detail WIP Report -Fineness wiseWithout break case 109:|Project wise Metal Control Report - Mac free.mem(tot__tijwx800.qcmp0) free.mem(tot__tijwx800.qcmp1) free.mem(tot__tijwx800.qcmp2) free.mem(tot__tijwx800.qcmp3) free.mem(tot__tijwx800.qcmp4) free.mem(tot__tijwx800.qcmp5) free.mem(tot__tijwx800.qcmp6) free.mem(tot__tijwx800.qcmp7) free.mem(tot__tijwx800.qcmp8) free.mem(tot__tijwx800.qcmp9) free.mem(tot__tijwx800.qcmp10) free.mem(tot__tijwx800.qcmp11) free.mem(tot__tijwx800.qcmp12) free.mem(tot__tijwx800.qcmp13) break case 110:|Detail WIP Report - Without F/B/L S/P - break case 111:|Division and Finness wise WIP free.mem(tot__pure) free.mem(tot__pure1) free.mem(tot__qcmp) free.mem(tot__ston) free.mem(tot__ston1) free.mem(tot__wghtfinnessEQ9) free.mem(tot__wghtfinnessEQ10) free.mem(tot__wghtfinnessEQ14) free.mem(tot__wghtfinnessEQ18) free.mem(tot__wghtfinnessEQ950) break case 112:|Division and Finness wise WIP NEW free.mem(tot__gld10) free.mem(tot__gld14) free.mem(tot__gld18) free.mem(tot__gld9) free.mem(total__4) free.mem(tot__pld95) free.mem(tot__plt950) free.mem(tot__pure) free.mem(tot__pure1) free.mem(tot__pure2) free.mem(tot__pure3) free.mem(tot__qcmp.new) free.mem(tot__slv925) free.mem(tot__ston.cpr) free.mem(tot__ston.csp) free.mem(tot__ston.cz) free.mem(tot__ston.dia) free.mem(total__17) free.mem(tot__ston1.cpr) free.mem(tot__ston1.csp) free.mem(tot__ston1.cz) free.mem(tot__ston1.dia) free.mem(total__22) break endcase rprt_close() } function accumulator.assignment.to.rprtvar.and.rprt_send() { long agex__ctr on case reportcode case 101:|Detail WIP Report break case 103:|Project wise Metal Control Report for agex__ctr = 1 to 15 |~~~~~All aggregate condtions have to be mutually exclusive and not overlapping tijwx800.qcmp = 0 on case agex__ctr case 1:|not sumflag |~~~~~ Program statement must be written to make above conditions true break case 2:|tirou001.mnwc<>"SL1" and tirou001.mnwc<>"SLO" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp1(val(grpstr_arr_code(search_len+1,arrayidx))) break case 3:|tirou001.mnwc="CHK" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp2(val(grpstr_arr_code(search_len+1,arrayidx))) break case 4:|tirou001.mnwc="CLS" or tirou001.mnwc="PDC" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp3(val(grpstr_arr_code(search_len+1,arrayidx))) break case 5:|tirou001.mnwc="CST" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp4(val(grpstr_arr_code(search_len+1,arrayidx))) break case 6:|tirou001.mnwc="EXP" or tirou001.mnwc="RFE" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp5(val(grpstr_arr_code(search_len+1,arrayidx))) break case 7:|tirou001.mnwc="FIL" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp6(val(grpstr_arr_code(search_len+1,arrayidx))) break case 8:|tirou001.mnwc="GRD" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp7(val(grpstr_arr_code(search_len+1,arrayidx))) break case 9:|tirou001.mnwc="LNK" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp8(val(grpstr_arr_code(search_len+1,arrayidx))) break case 10:|tirou001.mnwc="MD1" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp9(val(grpstr_arr_code(search_len+1,arrayidx))) break case 11:|tirou001.mnwc="POL" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp10(val(grpstr_arr_code(search_len+1,arrayidx))) break case 12:|tirou001.mnwc="PR2" or tirou001.mnwc="PR3" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp11(val(grpstr_arr_code(search_len+1,arrayidx))) break case 13:|tirou001.mnwc="PR6" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp12(val(grpstr_arr_code(search_len+1,arrayidx))) break case 14:|tirou001.mnwc="STP" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp13(val(grpstr_arr_code(search_len+1,arrayidx))) break case 15:|tirou001.mnwc="STT" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp14(val(grpstr_arr_code(search_len+1,arrayidx))) break endcase rprt_send() endfor break case 105:|Detail WIP Report (Finess and Original I break case 106:|Detail WIP Report - Without Fallen/Broke break case 107:|Detail WIP Report - Fineness wiseWithout break case 108:|Detail WIP Report -Fineness wiseWithout break case 109:|Project wise Metal Control Report - Mac for agex__ctr = 1 to 14 |~~~~~All aggregate condtions have to be mutually exclusive and not overlapping tijwx800.qcmp = 0 on case agex__ctr case 1:|1 |~~~~~ Program statement must be written to make above conditions true break case 2:|tirou001.mnwc=" QC" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp1(val(grpstr_arr_code(search_len+1,arrayidx))) break case 3:|tirou001.mnwc="ASL" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp2(val(grpstr_arr_code(search_len+1,arrayidx))) break case 4:|tirou001.mnwc="BAG" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp3(val(grpstr_arr_code(search_len+1,arrayidx))) break case 5:|tirou001.mnwc="DLG" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp4(val(grpstr_arr_code(search_len+1,arrayidx))) break case 6:|tirou001.mnwc="EXP" or tirou001.mnwc="RFE" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp5(val(grpstr_arr_code(search_len+1,arrayidx))) break case 7:|tirou001.mnwc="FCF" or tirou001.mnwc="GRD" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp6(val(grpstr_arr_code(search_len+1,arrayidx))) break case 8:|tirou001.mnwc="GRO" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp7(val(grpstr_arr_code(search_len+1,arrayidx))) break case 9:|tirou001.mnwc="GRP" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp8(val(grpstr_arr_code(search_len+1,arrayidx))) break case 10:|tirou001.mnwc="LNK" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp9(val(grpstr_arr_code(search_len+1,arrayidx))) break case 11:|tirou001.mnwc="POL" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp10(val(grpstr_arr_code(search_len+1,arrayidx))) break case 12:|tirou001.mnwc="STC" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp11(val(grpstr_arr_code(search_len+1,arrayidx))) break case 13:|tirou001.mnwc="STL" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp12(val(grpstr_arr_code(search_len+1,arrayidx))) break case 14:|tirou001.mnwc="STT" |~~~~~ Program statement must be written to make above conditions true tijwx800.qcmp = tot__tijwx800.qcmp13(val(grpstr_arr_code(search_len+1,arrayidx))) break endcase rprt_send() endfor break case 110:|Detail WIP Report - Without F/B/L S/P - break case 111:|Division and Finness wise WIP for agex__ctr = 1 to 6 |~~~~~All aggregate condtions have to be mutually exclusive and not overlapping pure = 0 pure1 = 0 qcmp = 0 ston = 0 ston1 = 0 wght = 0 on case agex__ctr case 1:|1 |~~~~~ Program statement must be written to make above conditions true pure = tot__pure(val(grpstr_arr_code(search_len+1,arrayidx))) pure1 = tot__pure1(val(grpstr_arr_code(search_len+1,arrayidx))) qcmp = tot__qcmp(val(grpstr_arr_code(search_len+1,arrayidx))) ston = tot__ston(val(grpstr_arr_code(search_len+1,arrayidx))) ston1 = tot__ston1(val(grpstr_arr_code(search_len+1,arrayidx))) break case 2:|finness = " 9" |~~~~~ Program statement must be written to make above conditions true wght = tot__wghtfinnessEQ9(val(grpstr_arr_code(search_len+1,arrayidx))) break case 3:|finness = " 10" |~~~~~ Program statement must be written to make above conditions true wght = tot__wghtfinnessEQ10(val(grpstr_arr_code(search_len+1,arrayidx))) break case 4:|finness = " 14" |~~~~~ Program statement must be written to make above conditions true wght = tot__wghtfinnessEQ14(val(grpstr_arr_code(search_len+1,arrayidx))) break case 5:|finness = " 18" |~~~~~ Program statement must be written to make above conditions true wght = tot__wghtfinnessEQ18(val(grpstr_arr_code(search_len+1,arrayidx))) break case 6:|finness = "950" |~~~~~ Program statement must be written to make above conditions true wght = tot__wghtfinnessEQ950(val(grpstr_arr_code(search_len+1,arrayidx))) break endcase rprt_send() endfor break case 112:|Division and Finness wise WIP NEW gld10 = tot__gld10(val(grpstr_arr_code(search_len+1,arrayidx))) gld14 = tot__gld14(val(grpstr_arr_code(search_len+1,arrayidx))) gld18 = tot__gld18(val(grpstr_arr_code(search_len+1,arrayidx))) gld9 = tot__gld9(val(grpstr_arr_code(search_len+1,arrayidx))) gld9+gld10+gld14+gld18 = total__4(val(grpstr_arr_code(search_len+1,arrayidx)))|~~~~~ pld95 = tot__pld95(val(grpstr_arr_code(search_len+1,arrayidx))) plt950 = tot__plt950(val(grpstr_arr_code(search_len+1,arrayidx))) pure = tot__pure(val(grpstr_arr_code(search_len+1,arrayidx))) pure1 = tot__pure1(val(grpstr_arr_code(search_len+1,arrayidx))) pure2 = tot__pure2(val(grpstr_arr_code(search_len+1,arrayidx))) pure3 = tot__pure3(val(grpstr_arr_code(search_len+1,arrayidx))) qcmp.new = tot__qcmp.new(val(grpstr_arr_code(search_len+1,arrayidx))) slv925 = tot__slv925(val(grpstr_arr_code(search_len+1,arrayidx))) ston.cpr = tot__ston.cpr(val(grpstr_arr_code(search_len+1,arrayidx))) ston.csp = tot__ston.csp(val(grpstr_arr_code(search_len+1,arrayidx))) ston.cz = tot__ston.cz(val(grpstr_arr_code(search_len+1,arrayidx))) ston.dia = tot__ston.dia(val(grpstr_arr_code(search_len+1,arrayidx))) ston.dia+ston.csp+ston.cpr+ston.cz = total__17(val(grpstr_arr_code(search_len+1,arrayidx)))|~~~~~ ston1.cpr = tot__ston1.cpr(val(grpstr_arr_code(search_len+1,arrayidx))) ston1.csp = tot__ston1.csp(val(grpstr_arr_code(search_len+1,arrayidx))) ston1.cz = tot__ston1.cz(val(grpstr_arr_code(search_len+1,arrayidx))) ston1.dia = tot__ston1.dia(val(grpstr_arr_code(search_len+1,arrayidx))) ston1.dia+ston1.csp+ston1.cpr+ston1.cz = total__22(val(grpstr_arr_code(search_len+1,arrayidx)))|~~~~~ break endcase } function mem_rprt_send_101() { |tijwx840111000 Detail WIP Report 101 if dllsucc then if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_102() { |tijwx840117000 Summary Reports 102 rprt_send() } function mem_rprt_send_103() { |tijwx840118000 Project wise Metal Control Report 103 if dllsucc then grpstr_search_code(1;6) = tijwx800.cprj if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 if tirou001.mnwc = " QC" or tirou001.mnwc = "QC1" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp0,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp0) endif endif if tirou001.mnwc<>"SL1" and tirou001.mnwc<>"SLO" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp1,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp1) endif endif if tirou001.mnwc="CHK" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp2,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp2) endif endif if tirou001.mnwc="CLS" or tirou001.mnwc="PDC" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp3,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp3) endif endif if tirou001.mnwc="CST" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp4,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp4) endif endif if tirou001.mnwc="EXP" or tirou001.mnwc="RFE" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp5,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp5) endif endif if tirou001.mnwc="FIL" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp6,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp6) endif endif if tirou001.mnwc="GRD" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp7,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp7) endif endif if tirou001.mnwc="LNK" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp8,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp8) endif endif if tirou001.mnwc="MD1" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp9,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp9) endif endif if tirou001.mnwc="POL" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp10,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp10) endif endif if tirou001.mnwc="PR2" or tirou001.mnwc="PR3" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp11,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp11) endif endif if tirou001.mnwc="PR6" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp12,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp12) endif endif if tirou001.mnwc="STP" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp13,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp13) endif endif if tirou001.mnwc="STT" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp14,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp14) endif endif else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_104() { |tijwx840119000 Daily Target Paper 104 rprt_send() } function mem_rprt_send_105() { |tijwx840111100 Detail WIP Report (Finess and Original I 105 if dllsucc then if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_106() { |tijwx840120000 Detail WIP Report - Without Fallen/Broke 106 if dllsucc then if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_107() { |tijwx840111200 Detail WIP Report - Fineness wiseWithout 107 if dllsucc then if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_108() { |tijwx840111209 Detail WIP Report -Fineness wiseWithout 108 if dllsucc then if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_109() { |tijwx840118100 Project wise Metal Control Report - Mac 109 if dllsucc then grpstr_search_code(1;6) = tijwx800.cprj if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 if tirou001.mnwc<>"BEG" and tirou001.mnwc<>"SL1" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp0,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp0) endif endif if tirou001.mnwc=" QC" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp1,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp1) endif endif if tirou001.mnwc="ASL" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp2,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp2) endif endif if tirou001.mnwc="BAG" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp3,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp3) endif endif if tirou001.mnwc="DLG" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp4,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp4) endif endif if tirou001.mnwc="EXP" or tirou001.mnwc="RFE" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp5,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp5) endif endif if tirou001.mnwc="FCF" or tirou001.mnwc="GRD" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp6,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp6) endif endif if tirou001.mnwc="GRO" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp7,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp7) endif endif if tirou001.mnwc="GRP" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp8,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp8) endif endif if tirou001.mnwc="LNK" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp9,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp9) endif endif if tirou001.mnwc="POL" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp10,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp10) endif endif if tirou001.mnwc="STC" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp11,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp11) endif endif if tirou001.mnwc="STL" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp12,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp12) endif endif if tirou001.mnwc="STT" then sum.accumulators(tijwx800.qcmp, tot__tijwx800.qcmp13,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__tijwx800.qcmp13) endif endif else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_110() { |tijwx840118101 Detail WIP Report - Without F/B/L S/P - 110 if dllsucc then if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_111() { |tijwx840111210 Division and Finness wise WIP 111 if dllsucc then grpstr_search_code(1;3) = cwoc if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 sum.accumulators(pure, tot__pure,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(pure1, tot__pure1,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(qcmp, tot__qcmp,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston, tot__ston,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston1, tot__ston1,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) if finness = " 9" then sum.accumulators(wght, tot__wghtfinnessEQ9,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__wghtfinnessEQ9) endif endif if finness = " 10" then sum.accumulators(wght, tot__wghtfinnessEQ10,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__wghtfinnessEQ10) endif endif if finness = " 14" then sum.accumulators(wght, tot__wghtfinnessEQ14,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__wghtfinnessEQ14) endif endif if finness = " 18" then sum.accumulators(wght, tot__wghtfinnessEQ18,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__wghtfinnessEQ18) endif endif if finness = "950" then sum.accumulators(wght, tot__wghtfinnessEQ950,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else if searchposition = -1 then init.accumulator(totalarrayelem,tot__wghtfinnessEQ950) endif endif else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif } function mem_rprt_send_112() { |tijwx840111218 Division and Finness wise WIP NEW 112 if dllsucc then grpstr_search_code(1;3) = cwoc if sort.grpstr.and.search.position(grpstr_search_code,grpstr_arr_code,search_len,totgrplen , totalarrayelem,searchposition) = 0 then |any detail specific to the new found grpstr , too can be coded here if searchposition is -1 sum.accumulators(gld10, tot__gld10,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(gld14, tot__gld14,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(gld18, tot__gld18,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(gld9, tot__gld9,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(gld9+gld10+gld14+gld18, total__4,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(pld95, tot__pld95,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(plt950, tot__plt950,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(pure, tot__pure,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(pure1, tot__pure1,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(pure2, tot__pure2,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(pure3, tot__pure3,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(qcmp.new, tot__qcmp.new,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(slv925, tot__slv925,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston.cpr, tot__ston.cpr,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston.csp, tot__ston.csp,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston.cz, tot__ston.cz,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston.dia, tot__ston.dia,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston.dia+ston.csp+ston.cpr+ston.cz, total__17,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston1.cpr, tot__ston1.cpr,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston1.csp, tot__ston1.csp,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston1.cz, tot__ston1.cz,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston1.dia, tot__ston1.dia,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) sum.accumulators(ston1.dia+ston1.csp+ston1.cpr+ston1.cz, total__22,grpstr_arr_code, search_len,totgrplen, searchposition,totalarrayelem) else dllsucc = false message("INFORMATION : Switch to report based data transformation from memory based") rprt_send() endif else rprt_send() endif }