loop 90'000'000 times with moving 1 byte to 1 field of a table 1. Perform binary until binary : 00.61 sec (TRUNC(OPT)) 2. perform decimal until decimal : 01.82 sec 3. perform display until display : 02.61 sec 4. perform binary n times / add 1: 00.34 sec 5. perform idex until binary : 00.76 sec 6. perform idx n times / set up 1: 00.36 sec P96N70B - Beginn Verarbeitung mit BIN -Feldern Anzahl Schleife :90000000 P96N70B - Ende 15:36:06 RVJSX1I CPU (Total) Elapsed CPU (TCB) CPU (SRB) 15:36:06 RVJSX2I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th 15:36:06 RVJSX3I XV8822DT STEP01 00 26 00.61 01.24 00.61 00.00 15:36:06 IEF404I XV8822DT - ENDED - TIME=15.36.06 15:36:06 RVJSX6I 15:36:06 RVJSX4I XV8822DT Job Service Totals 26 00.61 01.25 00.61 00.00 -------------------------------------------------------------------------------------------------------------------------------- P96N70B - Beginn Verarbeitung mit DEC -Feldern Anzahl Schleife :90000000 P96N70B - Ende 15:40:18 RVJSX1I CPU (Total) Elapsed CPU (TCB) CPU (SRB) 15:40:18 RVJSX2I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th 15:40:18 RVJSX3I XV8822DT STEP01 00 26 01.82 02.39 01.82 00.00 15:40:18 IEF404I XV8822DT - ENDED - TIME=15.40.18 15:40:18 RVJSX6I 15:40:18 RVJSX4I XV8822DT Job Service Totals 26 01.82 02.40 01.82 00.00 -------------------------------------------------------------------------------------------------------------------------------- P96N70B - Beginn Verarbeitung mit DIS -Feldern Anzahl Schleife :90000000 P96N70B - Ende 15:42:28 RVJSX1I CPU (Total) Elapsed CPU (TCB) CPU (SRB) 15:42:28 RVJSX2I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th 15:42:28 RVJSX3I XV8822DT STEP01 00 26 02.61 05.76 02.61 00.00 15:42:28 IEF404I XV8822DT - ENDED - TIME=15.42.28 15:42:28 RVJSX6I 15:42:28 RVJSX4I XV8822DT Job Service Totals 26 02.61 05.77 02.61 00.00 -------------------------------------------------------------------------------------------------------------------------------- P96N70B - Beginn Verarbeitung mit BINTIMES-Feldern Anzahl Schleife :90000000 P96N70B - Ende 15:44:18 RVJSX1I CPU (Total) Elapsed CPU (TCB) CPU (SRB) 15:44:18 RVJSX2I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th 15:44:18 RVJSX3I XV8822DT STEP01 00 26 00.34 00.71 00.34 00.00 15:44:18 IEF404I XV8822DT - ENDED - TIME=15.44.18 15:44:18 RVJSX6I 15:44:18 RVJSX4I XV8822DT Job Service Totals 26 00.34 00.72 00.34 00.00 -------------------------------------------------------------------------------------------------------------------------------- P96N70B - Beginn Verarbeitung mit IDX -Feldern Anzahl Schleife :90000000 P96N70B - Ende 15:45:30 RVJSX1I CPU (Total) Elapsed CPU (TCB) CPU (SRB) 15:45:30 RVJSX2I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th 15:45:30 RVJSX3I XV8822DT STEP01 00 26 00.76 01.91 00.76 00.00 15:45:30 IEF404I XV8822DT - ENDED - TIME=15.45.30 15:45:30 RVJSX6I 15:45:30 RVJSX4I XV8822DT Job Service Totals 26 00.76 01.92 00.76 00.00 -------------------------------------------------------------------------------------------------------------------------------- P96N70B - Beginn Verarbeitung mit IDXTIMES-Feldern Anzahl Schleife :90000000 P96N70B - Ende 16:04:48 RVJSX1I CPU (Total) Elapsed CPU (TCB) CPU (SRB) 16:04:49 RVJSX2I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th 16:04:49 RVJSX3I XV8822DT STEP01 00 25 00.36 00.67 00.36 00.00 16:04:49 IEF404I XV8822DT - ENDED - TIME=16.04.49 16:04:49 RVJSX6I 16:04:49 RVJSX4I XV8822DT Job Service Totals 25 00.36 00.68 00.36 00.00 -------------------------------------------------------------------------------------------------------------------------------- 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 16:03:41 Page xx 000109 *V01-LOOP-BIN 000112 PERFORM 000410 D203 4000 20E6 MVC 0(4,4),230(2) (BLW=0)+0 PGMLIT AT +186 000416 47F0 B0FA BC 15,250(0,11) GN=46(00043E) 00041A GN=45 EQU * 000114 MOVE 00041A 5820 9188 L 2,392(0,9) BLW=0 00041E 5830 C008 L 3,8(0,12) CBL=1 000422 D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000115 MOVE 000428 5840 2000 L 4,0(0,2) I-BIN 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 16:03:41 Page 17 0 00042C 1A42 AR 4,2 00042E 92E7 4077 MVI 119(4),X'E7' TAB-INHALT() 000116 PERFORM-EPILOGUE 000432 4140 0001 LA 4,1(0,0) 000436 5A40 2000 A 4,0(0,2) I-BIN 00043A 5040 2000 ST 4,0(0,2) I-BIN 00043E GN=46 EQU * 00043E 5830 9188 L 3,392(0,9) BLW=0 000442 5820 3000 L 2,0(0,3) I-BIN 000446 5920 3014 C 2,20(0,3) I-BIN-MAX 00044A 47D0 B0D6 BC 13,214(0,11) GN=45(00041A) ------------------------------------------------------------- 000148 *V04-LOOP-BIN-TIMES 000151 MOVE 000548 D203 4000 213F MVC 0(4,4),319(2) (BLW=0)+0 PGMLIT AT +275 000152 PERFORM 00054E 1205 LTR 0,5 000550 47D0 B23C BC 13,572(0,11) GN=53(000580) 000554 GN=54 EQU * 000554 5000 D140 ST 0,320(0,13) PFM=1 000153 ADD 000558 4120 0001 LA 2,1(0,0) 00055C 5830 9188 L 3,392(0,9) BLW=0 000560 5A20 3000 A 2,0(0,3) I-BIN 000564 5020 3000 ST 2,0(0,3) I-BIN 000154 MOVE 000568 5840 C008 L 4,8(0,12) CBL=1 00056C D201 3025 4149 MVC 37(2,3),329(4) (BLW=0)+37 PGMLIT AT +285 0000155 MOVE 000572 1A23 AR 2,3 000574 92E7 2077 MVI 119(2),X'E7' TAB-INHALT() 000578 5800 D140 L 0,320(0,13) PFM=1 00057C 4600 B210 BCT 0,528(0,11) GN=54(000554) 000580 GN=53 EQU * ------------------------------------------------------------- 000162 *V05-LOOP-INDEX 000166 PERFORM 0005A0 D203 AF08 213F MVC 3848(4,10),319(2) IDX=1 PGMLIT AT +275 0005A6 47F0 B288 BC 15,648(0,11) GN=57(0005CC) 0005AA GN=56 EQU * 000168 MOVE 0005AA 5820 9188 L 2,392(0,9) BLW=0 0005AE 5830 C008 L 3,8(0,12) CBL=1 0005B2 D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000169 MOVE 0005B8 5840 AF08 L 4,3848(0,10) I-IDX 0005BC 1854 LR 5,4 0005BE 1A42 AR 4,2 0005C0 92E7 4078 MVI 120(4),X'E7' TAB-INHALT() 000170 PERFORM-EPILOGUE 0005C4 4A50 3036 AH 5,54(0,3) PGMLIT AT +10 0005C8 5050 AF08 ST 5,3848(0,10) I-IDX 0005CC GN=57 EQU * 0005CC 5830 9188 L 3,392(0,9) BLW=0 0005D0 5820 3014 L 2,20(0,3) I-BIN-MAX 0005D4 5840 C008 L 4,8(0,12) CBL=1 0005D8 4B20 4036 SH 2,54(0,4) PGMLIT AT +10 0005DC 4C20 4036 MH 2,54(0,4) PGMLIT AT +10 0005E0 5920 AF08 C 2,3848(0,10) I-IDX 0005E4 47B0 B266 BC 11,614(0,11) GN=56(0005AA) ------------------------------------------------------------- 000176 *V06-LOOP-INDEX-TIMES 000178 MOVE 0005F6 F277 D148 4031 PACK 328(8,13),49(8,4) TS2=0 WERT-2 0005FC 960F D14F OI 335(13),X'0F' TS2=7 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 16:03:41 Page 20 0 000600 4F50 D148 CVB 5,328(0,13) TS2=0 000604 5050 4014 ST 5,20(0,4) I-BIN-MAX 000179 SET 000608 D203 AF08 213F MVC 3848(4,10),319(2) IDX=1 PGMLIT AT +275 000180 PERFORM 00060E 1205 LTR 0,5 000610 47D0 B2FE BC 13,766(0,11) GN=58(000642) 000614 GN=59 EQU * 000614 5000 D144 ST 0,324(0,13) PFM=2 000181 MOVE 000618 5820 9188 L 2,392(0,9) BLW=0 00061C 5830 C008 L 3,8(0,12) CBL=1 000620 D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000182 MOVE 000626 5840 AF08 L 4,3848(0,10) I-IDX 00062A 1854 LR 5,4 00062C 1A42 AR 4,2 00062E 92E7 4078 MVI 120(4),X'E7' TAB-INHALT() 000183 SET 000632 4A50 3036 AH 5,54(0,3) PGMLIT AT +10 000636 5050 AF08 ST 5,3848(0,10) I-IDX 00063A 5800 D144 L 0,324(0,13) PFM=2 00063E 4600 B2D0 BCT 0,720(0,11) GN=59(000614) 000642 GN=58 EQU *