0001.00 DBXLATER1 pr 50
0002.00 Dinpstr 50a
0003.00 PBXLATER1 b
0004.00 DBXLATER1 pi 50
0005.00 Dinpstr 50a
0006.00 Doutstr s 50a
0007.00 Dwork s 1a
0008.00 Dpos s 3s 0 inz(0)
0009.00 Di s 3s 0 inz(0)
0010.00 Dlower c 'abcdefghijklmnopqrstuvwxyz'
0011.00 Dupper c 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
0012.00 C eval outstr = %xlate(upper:lower:inpstr) 0013.00 C eval work = %xlate(lower:upper:%subst(inpstr:1
0014.00 C eval outstr = work + %trim(%subst(inpstr:2))
0016.00 C dou i >= %len(inpstr)
0017.00 C eval i = i + 1
0019.00 C if i >= %len(inpstr)
0020.00 C leave
0021.00 C endif
0023.00 C eval pos = %scan(' ':inpstr:i)
0024.00 C eval work = %xlate(lower:upper: 0025.00 C %subst(inpstr:pos+1:1))
0026.00 C eval outstr = %replace(work:outstr:pos+1:1)
0027.00 C eval i = pos
0028.00 C enddo
0029.00 C return outstr
0030.00 C eval *inlr = *on
0031.00 PBXLATER1 e
another module bx1
0001.00 Dinstr s 50a inz('myself dinesh')
0002.00 Doustr s 50a
0003.00 DBXLATER1 pr 50
0004.00 Dinpstr 50a
0005.00 C eval oustr = BXLATER1(instr)
0006.00 C oustr dsply
0007.00 C eval *inlr = *on
I converted the above module bxlater1 into service program and I converted the bx1 into a module and I binded the module and the service program into a program object to run and the program bx1 created in the library perfectly.but when I am calling the program ,the program is being pushed into infinite loop and when seeing the CPU percentage for the job it is taking 50.0.please let me know the reasons why it is going into infinite loop and what are the precautions to be taken to get rid of this problem.
Thanks in advance.
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!