I have only the basics so far: get_msg call ceemget,(cond,msg,msgptr,fc),vl,mf=(e,callprms) cli fc_sev,1 bad fc if sev > 1 jh badmsgfc exec cics write operator text(msg) textlength(l'msg) sr r0,r0 cl r0,msgptr jne get_msg j msg_retrieved [...]
DFHEISTG DSECT , callprms call ,(,,,,,,,,),mf=l cond ds cl12 fc ds 0xl12 fc_sev ds h fc_msgno ds h fc_csc ds bl1 fc_facid ds cl3 fc_isi ds a msg ds cl80 msgptr ds f >________________________________ > From: Steve Comstock <st...@trainersfriend.com> >To: IBM-MAIN@LISTSERV.UA.EDU >Sent: Friday, August 31, 2012 7:52 PM >Subject: Re: Formatting CEEMGET results > >On 8/31/2012 6:35 PM, Steve Comstock wrote: >> On 8/31/2012 3:26 PM, Frank Swarbrick wrote: >>> If you use CEEMSG to "write" an LE condition code message you'll get a >>> nicelyformatted and indented message such as this (ignoring the fact >>> that the message itself is just random characters): >>> >>> >>> UFB0001I asdjkfgjklbjkbjkl;dsjfkl;jklbjkbjkljdk >>> dfjklbjklsaqed?dsafgdsjfhsdjkflhjklhvjklhvjklhvjkslhjviobui udisao >>> jfi?asdvjbkl;gjkls;gjkl;bjobjiwov >>> SDGJAS9fjdfc8v98d90dffd98?88b9b9vb9g9bu349bub90@8ug908b90b890g890890b89b8b9v8b901. >>> >>> >>> >>> When you use CEEMGET to retrieve the message into your own storage so you >>> can, >>> say, write it to somewhere other than the CEEMSG dataset, it's not formatted >>> quite so nicely. The above, for example, comes out something like this: >>> >>> >>> UFB0001I asdjkfgjklbjkbjkl;dsjfkl;jklbjkbjkljdk >>> dfjklbjklsaqed?dsafgdsjfhsdjkflhjklhvjklhvjklhvjkslhjviobui udisao >>> jfi?asdvjbkl;gjkls;gjkl;bjobjiwov >>> SDGJAS9fjdfc8v98d90dffd98?88b9b9vb9g9bu349bub90@8ug908b90b890g890890b89b8b9v8b90 >>> 1. >>> >>> >>> I was wondering it anyone had and would be kind enough to share some code >>> that >>> would, essentially, format the above in the same format as CEEMSG does. >>> >>> Yes, I'm being a bit lazy, but why reinvent the wheel if someone has already >>> done so. >> >> Well, split the difference. Why don't you show us your code? >> >> Have you: >> >> * created your message tag file? >> * compiled your message tag file using ceebdltx? >> * assembled and bound the resulting assembler source? >> * did you also request a COBOL or Assembler declaratives output? >> * created your message module table (named UFBOMSGT in your case, >> I would judge)? >> * assembled and bound the message module table? >> * made sure the messages load module and the message table >> load module are in your steplib concatentation? >> * in your program that invokes CEEMSG, have you included >> the Assembler or declaratives output from the ceebldtx? >> >> There are lots of steps that all have to work together. >> >> <ad> >> In just three days you can learn all about LE services, >> from our course "Using LE Services in z/OS"; we spend >> almost a full day on message tables and messaging >> services; then we discuss every callable service, >> with labs demonstrating many of them. >> >> See: http://www.trainersfriend.com/Language_Environment_courses/m512descr.htm >> >> for details. >> >> </ad> >> >> >>> >>> Thanks! >>> Frank >>> > >Following up a little more (since I reread your post a >little more carefully and noticed the CEEMGET part; I >was focusing on CEEMSG). > >Notice that CEEMGET returns your message in memory 80 >bytes (or less) at a time, so you have to issue this >in a loop, where you probably want to construct a >single string in memory using the info passed back >in the 2nd and 3rd arguments. I'm not sure if I have >an example of doing this, but I'll look around. > > >-- > >Kind regards, > >-Steve Comstock >The Trainer's Friend, Inc. > >303-355-2752 >http://www.trainersfriend.com > >* To get a good Return on your Investment, first make an investment! > + Training your people is an excellent investment > >* Try our tool for calculating your Return On Investment > for training dollars at > http://www.trainersfriend.com/ROI/roi.html > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
