What is your email address Rick?  Another person has looked at my code and is 
being very helpful, but I still don't get what I want when I run a multi step 
job...  Comparing mine to yours might help..

Anne D. Crabtree
System Programmer
WV Office of Technology Data Center
1900 Kanawha Blvd East
Charleston, WV  25305
(304)558-5914 ext 58292
(304)558-1441 fax


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of 
Rick Fochtman
Sent: Thursday, August 04, 2011 6:39 PM
To: [email protected]
Subject: Re: assembler help!

------------------------------<snip>-------------------------------------------

>In our IEFACTRT (accounting exit), an assembler program, it has the following 
>commands:
>
>L     R2,PARMJOBC
>  
>
                            ----------------> R2 now contains PARMJOBC, 
X'00000008'

>ICM   R1,7,0(R2)
>  
>
                             ---------------->  R1 now contains 
X'..zzzzzz', where .. are the origincal contents of R1 and zzzzzz are 
the contents of storage location X'00000008'

>If PARMJOBC contains a binary integer length of 4 with 00 00 00 08, what ends 
>up in all bits of R1?  I am trying to add additional values to what is in R1 
>by doing:
>
>MVC   WK1(4),SMF30CPS
>A     R1,WK1
>
>This is not doing what I want it to do! If SMF30CPS, also a binary integer 
>length of 4, has 00 00 00 01,  what ends up in R1?
>  
>
----------------------------------------> R1 now contains God only knows 
what.

Shoot me an Assembler listing of the source code (ZIP'ped) and I'll take 
a look at it. I suspect I know what's wrong but don't want to clutter 
the list with a long drawn-out explanation.

Rick

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to