ITYM PACK followed by CVB. Something like: PACK DBLWD,PRMSMFRT CVB R0,DBLWD STC R0,SMFxxRTY
and, yes, with appropriate validation. Frankly, I'm surprised that this thread has run quite so long. It should have never started. For anyone developing code for an ISV, this should be second nature. Furthermore, it should not have been an afterthought; if you are writing SMF records, you should always give the customer the choice of Record Type. (Same goes for user SVC number, subsystem name, etc.) = > Date: Sat, 20 Sep 2014 16:16:28 -0700 > From: [email protected] > Subject: Re: Data Conversion > To: [email protected] > > I think you are saying you want to convert C'241' to X'F1'. If that is the > case, then use CVD followed by CVB. Don't forget to validate the data prior > to conversion. > > Jon Perryman > > > On Wednesday, September 17, 2014 10:06 AM, Scott Ford > <[email protected]> wrote: > > > > > > > >Guys/Gals: > > > > > >I have a fundamental question to ask. We have a Cobol routine passing a set > >of parms ..one of the parms is a number PIC 999. > > > >The called program is in HLASM and receives the parms and we have WORKAREA > >dsect setup and address it with a using. > > > >My issue is I must convert this PIC 999 field to a DC x’00’ field in > >Assembler. Is my assumption correct that at I have to translate the PIC 999 > >with a TROT or TR with a hex table to build the DC x’00’ field ? If I am > >passing 241 , the hex value I am expecting is x’F1’. I must be > > > >able to convert a range from 128-255 … > > > > > > > > > >I appreciate any help …I want to just make sure my thinking is correct. > > > > > >Regards, > > > >Scott > > > >www.identityforge.com > > > >---------------------------------------------------------------------- > >For IBM-MAIN subscribe / signoff / archive access instructions, > >send email to [email protected] with the message: INFO IBM-MAIN > > > > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
