Charles:
We are creating SMF records, user defined. So we are passing the SMF type
number as PIC 999 i will change to COMP. Then I have to store it see below:
<snippet>
SMFWKL DC A(SMFSTOR) Length to GETMAIN
SMFHVAL DS 0H Constant fields for SMF header
DC AL2(SMFHLEN) Header length
DC X'0000' Segment descriptor
DC X'50' SMF flags (MVS 4 up)
SMFHTYP DC X'00' Record type
HDRLEN EQU *-SMFHVAL Length of header init fields
SMFSTP1 DC XL2'0001' Subtype 01 - pre command
SMFSTP2 DC XL2'0002' Subtype 02 - post command
<snippet/>
I have to store the pass variable in SMFHTYP ...so I assume a MVC ...?
Scott J Ford
Software Engineer
http://www.identityforge.com
On Wednesday, September 17, 2014 2:11 PM, Charles Mills <[email protected]>
wrote:
What is the COBOL USAGE?
If COMPUTATIONAL then I believe you will see what in assembler would be
equivalent to H'241' = x'00F1'.
If COMPUTATIONAL-3 -- think you will see the equivalent of assembler P'241' =
X'241C'. (That last C might be an F which does not make much difference.)
Don't think you need a translate of any sort.
What do you need to DO with the data in assembler? Arithmetic? Assume you know
how to deal with binary and packed arithmetic? How to convert a PL2 to binary?
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Scott Ford
Sent: Wednesday, September 17, 2014 10:59 AM
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
----------------------------------------------------------------------
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
