Inter-Module Communication

*************** Beginning of data *************************************

D*** head***

d toupper pr 1024a

d tu_input 1024a const

d***

d tolower pr 1024a

d tl_input 1024a const

d***

d makeupper pr opdesc

d mu_input 1024a options(*varsize)

****************** End of data ****************************************

*************** Beginning of data *************************************

***tomain***

h datfmt(*mdy)

d name s 35a inz('SKY')

d compname s 32a inz('sky')

/copy *libl/rpgsrc,head

c* callp makeupper(name)

c if toupper(compname)=name

c 'yes' dsply

c endif

c seton lr

c return

****************** End of data ****************************************

*************** Beginning of data *************************************

***toupper***

h nomain

p*/copy sysinline

/copy *libl/rpgsrc,head

p toupper b export

d toupper pi 1024a

d inputstg 1024a const

d rtnvalue s like(inputstg)

d lower c const('abcdefghijklmnopqrstuvwxyz

d upper c const('ABCDEFGHIJKLMNOPQRSTUVWXYZ

c lower:upper xlate inputstg rtnvalue

c return rtnvalue

p toupper e

****************** End of data ****************************************