No need for TRxx. PACK the PIC 999 into a packed decimal field then use CVB to convert the packed decimal field to binary in a register, then STC the last byte of the register.
Do check for the packed value < 256 (or the binary register value, your choice). HTH Peter -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Scott Ford Sent: Wednesday, September 17, 2014 12:51 PM To: [email protected] Subject: Data Conversion 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 This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
