Assembler

[Paul Hanrahan]

Assembler must be a dieing art at most banks. - Paul Hanrahan

--
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

Assembler

[Paul Hanrahan]

Hi,
 
Anyone know where the assembler list server is ?  I used to subcribe to
the assembler list but lost track of it.
 
Paul Hanrahan

--
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

Assembler question

[Scott McFall]

My colleague Bob Stark asked me to float a problem he's currently 
experiencing at a client site out to some of the listservers for MVS and 
Assember to see if anyone can help us debug this problem.


If you post back, can you please also copy your response to Bob at 
[EMAIL PROTECTED] as he's in an account site and off-list with web email.


Thanks so much!

Scott


Date: Fri, 07 Oct 2005 14:49:13 -0400
From: "Bob Stark" <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: S/390 Assembler Macro problem
X-Mailer: IceWarp Web Mail 5.4.3
X-Originating-IP: 208.165.251.16

I wrote the set of macros below which generate a linked list for a control 
block module a month back, and now I am adding more userids. I hit a limit 
that I didn't realize:


xxDC   C'THIS MUST BE 256 BYTES OR LESS'

My list is now over 256 bytes, so I have to split that up unto multiple DC 
instructions, and my technique of generating the length will no longer be 
correct.  When I wrote these two macros, I scoured the Internet looking 
for examples, but didn't find much pay dirt, and the High Level Assembler 
Programmer's Guide and Language reference are short on examples that put 
everything together.


So I am looking for:
1. A suggested approach, withe a few actual lines of macro code, that show 
how to split these DC's up and loop through them.


2. A Source of really good example assembler macros that I could copy 
techniques from.


Here is a sample invocation of both macros:

 $GRP TEST,USERS='T045022 T046726 T047542 T056131 T056313 T057345 +
   T093897 T094643 T095122 T095507 T095556 T096058 +
   T096148 T096199 T096255 T096518 T097282 T097579 +
   T097617 T097623 T098914 T099268 T099301 T100052 +
   '

GRPTABLE $GRPTBL   THIS ENTRY MUST FOLLOW ALL $GRP MEMBERS

Here is the $GRP macro, which keeps an array of group data:

 MACRO
&MACNAME $GRP &NAME,&USERS=''
.*---*
.*   *
.* FUNCTION- BUILDS ASSEMBLER TABLE FOR LINKAGE INTO LNKLST LIB. *
.*   *
.* EXAMPLE: $GRP LANDUSR,USERS='T12345 TZ9'  *
.*   *
.*---*
 GBLC  &GRPNAMES(500)
 GBLC  &GRPUSERS(500)
 GBLA  &GRPCNTR
 AIF   (T'&NAME NE 'O').GOTNAME
 MNOTE 12,'** NO GROUP NAME ENTERED'
 MEXIT
.GOTNAME ANOP
.*
 AIF   (T'&USERS NE 'O').GOTUSER
 MNOTE 12,'** NO USER NAME(S) ENTERED'
 MEXIT
.GOTUSER ANOP
.*
&GRPCNTR SETA  &GRPCNTR+1
.* THE NEXT LINE PADS THE NAME TO 8 CHARACTERS, SO IT COMPARES OK
.*&GRPNAMES(&GRPCNTR) SETC '&NAME'.''(K'&NAME,8)
&GRPNAMES(&GRPCNTR) SETC '&NAME'
&GRPUSERS(&GRPCNTR) SETC '&USERS'
.END MEND

Here is the $GRPTBL Macro, where my problem lies. It sorts the array into 
order (that part works okay), then generates control blocks from the data. 
See the very bottom for what I think I need to do.


 MACRO
&MACNAME $GRPTBL &DSECT=NO
.*---*
.*   *
.* FUNCTION- BUILDS ASSEMBLER TABLE FOR LINKAGE INTO LNKLST LIB. *
.*   *
.* EXAMPLE: $GRPTBL DSECT=YES*
.*---*
 GBLC  &GRPNAMES(500)
 GBLC  &GRPUSERS(500)
 GBLA  &GRPCNTR

 LCLA  &I,&J
 LCLA  &NEXT
 LCLB  &SWAP
 LCLC  &SAVEC
 AIF   ('&DSECT' EQ 'YES').DGEN
.*   MNOTE 0,'*** TABLE CONTAINS &GRPCNTR GROUPS'
.* TOP OF "I" LOOP
&I   SETA  1
.SRTLOOPI ANOP
&SWAPSETB  0
.* TOP OF "J" LOOP
&J   SETA  1
.SRTLOOPJ ANOP
&NEXTSETA  &J+1
 AIF  ('&GRPNAMES(&J)'.''(K'&GRPNAMES(&J),8) LE+
   '&GRPNAMES(&NEXT)'.''(K'&GRPNAMES(&NEXT),8)).NOS+
   WAP
.* ENTRIES OUT OF ORDER, MUST SWAP THEM
&SWAPSETB  1
.*   MNOTE 0,'*** SWAP &J &GRPNAMES(&J) W/ &NEXT &GRPNAMES(&NEXT)'
&SAVEC   SETC  '&GRPNAMES(&J)'
&GRPNAMES(&J) SETC '&

Assembler error

[Kinney, Kevin]

Good morning all, I'm having some problems assembling David Coles Scheduler
(CBT tape #388) on an OS/390 1.2  system.

 

Here's the error - 

  #REGS GEN=ON,(BASE1REG,R12),(BASE2REG,R11),(BASE3REG,R7)

 ASMA089E *** ERROR *** Arithmetic expression contains illegal delimiter or
ends prematurely - MACRO - #TEST

 ASMA435I ** WARNING ** Record 645 in CBT.COLE.MACLIB(#TEST) on volume:
BEP917

 

The weird thing is that the same exact code compiles correctly on a OS/390
2.10 system.

 

Thoughts anyone?

 

Regards,

Kevin Kinney


--
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

Assembler error

[John R. Ehrman]

Kevin, specify the LIBMAC option when you do the assembly. It
will indicate the exact statement in the #TEST macro where the
error occurs. That may help isolate the problem.

John Ehrman
(-- Referenced Note Follows )
Date:Tue, 27 Dec 2005 08:47:45 -0600
From:"Kinney, Kevin" <[EMAIL PROTECTED]>

Good morning all, I'm having some problems assembling David Coles
Scheduler (CBT tape #388) on an OS/390 1.2  system.

Here's the error -

  #REGS GEN=ON,(BASE1REG,R12),(BASE2REG,R11),(BASE3REG,R7)

 ASMA089E *** ERROR *** Arithmetic expression contains illegal delimiter
 or ends prematurely - MACRO - #TEST
<..snip..>

--
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

Assembler question

[Bill Larsen]

Dear all

(...)
L 10,ADR1
MVC ZON,0(10)   ===> (XX)
(..)

ADR1 DS F




===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
value in ZON ???


Thank you

--
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

Assembler list

[Micheal Butz]

Hi,

 

Would anyone know how to subscribe to the assembler list 

 

 

 

 Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

assembler help!

[Crabtree, Anne D]

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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?

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


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

assembler help!

[john gilmore]

It is clear from this and other examples we have seen here that 1) the 
assembly-language sklls of most installation sysprogs under 50 are rudimentary 
2) IBM's maintenance of the HLASM interfaces to system services has low 
priority and is deteriorating, chiefly because the PL/X interfaces are the ones 
that its own programmers use.
 
I should like to see 1) exit samples written in PL/X and 2) release of the PL/X 
translator for customer and ISV use in writing exits and the like.  

John Gilmore Ashland, MA 01721-1817 USA 
  
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Assembler Comments

[Baraniecki, Ray]

Why is it when I comment-out assembler statements that contain a continuation 
indicator in column 72 the assembler complains?

Other languages do not seem as picky.

Thanks;


Ray Baraniecki
Morgan Stanley Smith Barney
1 New York Plaza - 18th Floor
New York, NY 10004
Telephone: 212-276-5641
Cell:  917-597-5692



--
Important Notice to Recipients:
 
The sender of this e-mail is an employee of Morgan Stanley Smith Barney LLC. If 
you have received this communication in error, please destroy all electronic 
and paper copies and notify the sender immediately. Erroneous transmission is 
not intended to waive confidentiality or privilege. Morgan Stanley Smith Barney 
reserves the right, to the extent permitted under applicable law, to monitor 
electronic communications. This message is subject to terms available at the 
following link: http://www.morganstanley.com/disclaimers/mssbemail.html. If you 
cannot access this link, please notify us by reply message and we will send the 
contents to you. By messaging with Morgan Stanley Smith Barney you consent to 
the foregoing.

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

Re: Assembler

[Steve Arnett]

Correction...Assembler is a dying art ANYWHERE!  So is dump reading...

Paul Hanrahan wrote:


Assembler must be a dieing art at most banks. - Paul Hanrahan

--
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

Re: Assembler

[Wenger, Joseph]

Most of us that know these arts are probaly dying off faster than these arts 
;-)))

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Steve Arnett
Sent: Monday, May 23, 2005 5:37 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Assembler


Correction...Assembler is a dying art ANYWHERE!  So is dump reading...

Paul Hanrahan wrote:

>Assembler must be a dieing art at most banks. - Paul Hanrahan
>
>--
>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

--
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

Re: Assembler

[Ed Finnell]

 
In a message dated 5/23/2005 5:34:59 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:

Assembler must be a dieing art at most banks. - Paul  Hanrahan




Wachovia and BofA both ferreting out the ID theft of 60,000
customers downloaded to employees PCs and sold on the Internet-
reported today by AP.

--
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

Re: Assembler

[Steve Arnett]

Well, if Reader's Digest is right about laughter being the best 
medicine, I just got a cure for something...Thanks, Joe.


Wenger, Joseph wrote:


Most of us that know these arts are probaly dying off faster than these arts 
;-)))

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Steve Arnett
Sent: Monday, May 23, 2005 5:37 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Assembler


Correction...Assembler is a dying art ANYWHERE!  So is dump reading...



--
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

Re: Assembler

[Paul Hanrahan]

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Steve Arnett
Sent: Monday, May 23, 2005 6:43 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Assembler


Well, if Reader's Digest is right about laughter being the best 
medicine, I just got a cure for something...Thanks, Joe.

Wenger, Joseph wrote:

>Most of us that know these arts are probaly dying off faster than these 
>arts ;-)))
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] 
>Behalf Of Steve Arnett
>Sent: Monday, May 23, 2005 5:37 PM
>To: IBM-MAIN@BAMA.UA.EDU
>Subject: Re: Assembler
>
>
>Correction...Assembler is a dying art ANYWHERE!  So is dump reading...
>

--
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

Re: Assembler

[Steve Comstock]

Paul Hanrahan wrote:

Hi,
 
Anyone know where the assembler list server is ?  I used to subcribe to

the assembler list but lost track of it.
 
Paul Hanrahan


IBM Mainframe Assembler List <[EMAIL PROTECTED]>

Kind regards,

-Steve Comstock

--
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

Re: Assembler

[Mark Vitale]

[EMAIL PROTECTED]



> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
> Behalf Of Paul Hanrahan
> Sent: Tuesday, May 24, 2005 11:40 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Assembler
> 
> 
> Hi,
>  
> Anyone know where the assembler list server is ?  I used to 
> subcribe to
> the assembler list but lost track of it.
>  
> Paul Hanrahan
> 
> --
> 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

Assembler Question

[Ward, Mike S]

Hello, all I have a question. I was just looking through the principle
of ops guide on an instruction I had a question on and noticed a BAS
instruction. I started reading about it and noticed that it said we
should use the BAS, BASR type of instructions instead of the BAL and
BALR types. I won't bore you with the details. My question is: Is there
a list of recommended instructions that we should be using instead of
the old instructions we had been using? 

==
This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity
to which they are addressed. If you have received this email in error please 
notify the system manager. This message
contains confidential information and is intended only for the individual 
named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please notify the 
sender immediately by e-mail if you
have received this e-mail by mistake and delete this e-mail from your system. 
If you are not the intended recipient
you are notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this
information is strictly prohibited.


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

Assembler question

[Anne Crabtree]

Working on the IEFACTRT routine and it has the following assembler statements 
for getting return code ready to print on hasp:

CVD   R0,RWORKGET ADDRESS OF COND FIELD 
MVC   M1CC-1(L'M1CC+1),=X'402120202020' MOVE IN EDIT MASK   
EDM1CC-1(L'M1CC+1),RWORK+5 CONVERT RET CODE TO CHAR 

However, I want the return code to print as hexidecimal instead of decimal.  I 
tried the following after these prior 3 statements:

NCM1CC+1(4),=4X'0F'   
TRM1CC+1(4),=C'0123456789ABCDEF'  

(I don't understand exactly how this works but it is how it is coded in our old 
exit which used the SMF type 4 records).

Why is it not translating the decimal to hexadecimal???

--
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

Assembler question

[Phil Payne]

> A little bit of effort has even enabled me to recall the author of - nearly
> all - of the 4K DOS spooling package, one Jim Shields, Mr. DOS in the
> Wigmore Street IBM UK Field Systems Centre around 1968.

I believe I remember him.

He could almost make DOS DITTO talk.  One of the things he knew was the 
contents of every
register when the programme was entered.  Apparently at one time IBM had 
considered making all
of them a supported interface.

He also taught me DITTO control cards - which I didn't know existed before.  In 
fact, I don't
think I even knew DITTO existed before.

We were an OS shop tabulating lots of cards (30m a month and growing fast)  
using a couple of
1401s and writing them to tape for processing.  But they couldn't keep up with 
our growth and
we had to find a way of reading them (if possible) once each instead of the 
four times we did
it with the 1401.

Four of us wrote 250,000 lines in seven months.  I think Jim was the guy IBM 
sent in for a
couple of weeks to teach us the nuances of DOS.  We were already pretty sharp 
with Assembler
F, so it wasn't too hard. Most of it was how to design and build overlay 
structures - our
360/25 wasn't very big.

When we first cobbled it together it was too slow, and we kept missing the 
clutch cycle on the
2540.  I remember the first day we hit it right and a box of cards disappeared 
into the hopper
in around a minute.

It would be fun to try something like that today - being able to view other 
people's source
online from the other side of the world.

-- 
  Phil Payne
  http://www.isham-research.co.uk
  +44 7833 654 800

--
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

Some Tokenising Routines - PL/I, 370 Assembler, Intel Assembler

[Clem Clarke]

Greetings everyone,

This is my first attempt at Open Source. Sharing knowledge instead of 
keeping it locked up in patents and so on.  What is it scientists used 
to say?  That they stand on the shoulders of those who went before them, 
and extend the knowledge.  Nowdays, it seems that profit rules 
everything, and knowledge gets locked down and unavailable.  Great shame 
when you consider that all knowledge comes from one source.



What this little routine does is to split a sentence, or program 
statement into tokens or words, and allow you to access them them 
separately.  I've used the routines for years in such things as 
Interpretive languages, an Indexing package for large manuals and other 
things.


You can get it here: 
http://members.ozemail.com.au/~oscarptyltd/tokenize.html


Main page: http://members.ozemail.com.au/~oscarptyltd/



As it happened, this is the first code to be released because I needed 
to get the indexing package running on 32 bit Windows, and the 
Tokenising routines needed to be converted first.


Which also means that I should be able to get an expression evaluation/ 
interpreter routine out soon, too.




The PL/I routines have two demo programs, but I have temporarily run out 
of time to do the Assembler or C ones.  If anyone is suddenly desperate,

let me know and I'll put something together, with "proper" documentation.

Really, all you have to do is copy the string you want to be tokenized 
into an area, set the two preceding bytes to the length, call a routine, 
and it is all split up ready for you to access each word simply.


Create only beautiful days, live life to the max, and don't only think 
outside the box, but get rid of it!


Clem Clarke



Clement V. Clarke - Author Jol, EASYJCL, EASYPANEL, OSCAR, 370TO486
[EMAIL PROTECTED], Web: http://www.ozemail.com.au/~oscarptyltd
16/38 Kings Park Road, West Perth, AUSTRALIA, 6005.
Tel (61)-8-9324-1119, Mob 0401-054-155.

--
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

Updated Assembler course

[Steve Comstock]

I just finished updating my 3-day course
"z/OS Assembler for Applications Programmers"
to include the z9 instructions as well as
how to detect various hardware facilities
installed (thanks to folks from the ibm-main
and Assembler lists).

The course also includes a z/OS V1R7 update
by including a little information about "large
format data sets", from an application programmer
perspective.

For those interested, details at:
http://www.trainersfriend.com/Assembler_%20courses/C500descrpt.htm

[for those not interested, the details are still found there :) ]

Thanks again for all the help.

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.
http://www.trainersfriend.com

--
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

Re: Assembler question

[Farley, Peter x23353]

Scott and Bob,

What you need to do is break out the length of each &GRPUSERS(&I) string and
then loop for the quotient of that length over 256, something like this:

LCLA  &GLEN,&GCNT,&K,&L
&GLEN   SETA  K'&GRPUSERS(&I)
&GCNT   SETA  &GLEN/256
&K  SETA  1
GRPUSR&IDS  0CL&GLEN
.GLOOP  ANOP  ,
&L  SETA  256
AIF   (&K LT &GCNT).DODC
&L  SETA  &GLEN-(&GCNT*256)
.DODC   ANOP  ,
DC  C'&GRPUSERS(&I)'(((&K-1)*256)+1,&L)
&K  SETA  &K+1
AIF   (&K LE &GCNT).GLOOP

I don't know if that takes care of leading/trailing quotes in the
&GRPUSER(&I) values, but it's a start.

Peter


-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] 
Sent: Friday, October 07, 2005 3:51 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Assembler question

My colleague Bob Stark asked me to float a problem he's currently
experiencing at a client site out to some of the listservers for MVS and
Assember to see if anyone can help us debug this problem.

If you post back, can you please also copy your response to Bob at
[EMAIL PROTECTED] as he's in an account site and off-list with web
email.

Thanks so much!

Scott

>Date: Fri, 07 Oct 2005 14:49:13 -0400
>From: "Bob Stark" <[EMAIL PROTECTED]>
>To: [EMAIL PROTECTED]
>Subject: S/390 Assembler Macro problem
>X-Mailer: IceWarp Web Mail 5.4.3
>X-Originating-IP: 208.165.251.16
>
>I wrote the set of macros below which generate a linked list for a 
>control block module a month back, and now I am adding more userids. I 
>hit a limit that I didn't realize:
>
>xxDC   C'THIS MUST BE 256 BYTES OR LESS'
>
>My list is now over 256 bytes, so I have to split that up unto multiple 
>DC instructions, and my technique of generating the length will no 
>longer be correct.  When I wrote these two macros, I scoured the 
>Internet looking for examples, but didn't find much pay dirt, and the 
>High Level Assembler Programmer's Guide and Language reference are 
>short on examples that put everything together.
>
>So I am looking for:
>1. A suggested approach, withe a few actual lines of macro code, that 
>show how to split these DC's up and loop through them.
>
>2. A Source of really good example assembler macros that I could copy 
>techniques from.
>
>Here is a sample invocation of both macros:
>
>  $GRP TEST,USERS='T045022 T046726 T047542 T056131 T056313 T057345 +
>T093897 T094643 T095122 T095507 T095556 T096058 +
>T096148 T096199 T096255 T096518 T097282 T097579 +
>T097617 T097623 T098914 T099268 T099301 T100052 +
>'
>
>GRPTABLE $GRPTBL   THIS ENTRY MUST FOLLOW ALL $GRP MEMBERS
>
>Here is the $GRP macro, which keeps an array of group data:
>
>  MACRO
>&MACNAME $GRP &NAME,&USERS=''
>.*---*
>.*   *
>.* FUNCTION- BUILDS ASSEMBLER TABLE FOR LINKAGE INTO LNKLST LIB. *
>.*   *
>.* EXAMPLE: $GRP LANDUSR,USERS='T12345 TZ9'  *
>.*   *
>.*---*
>  GBLC  &GRPNAMES(500)
>  GBLC  &GRPUSERS(500)
>  GBLA  &GRPCNTR
>  AIF   (T'&NAME NE 'O').GOTNAME
>  MNOTE 12,'** NO GROUP NAME ENTERED'
>  MEXIT
>.GOTNAME ANOP
>.*
>  AIF   (T'&USERS NE 'O').GOTUSER
>  MNOTE 12,'** NO USER NAME(S) ENTERED'
>  MEXIT
>.GOTUSER ANOP
>.*
>&GRPCNTR SETA  &GRPCNTR+1
>.* THE NEXT LINE PADS THE NAME TO 8 CHARACTERS, SO IT COMPARES OK
>.*&GRPNAMES(&GRPCNTR) SETC '&NAME'.''(K'&NAME,8)
>&GRPNAMES(&GRPCNTR) SETC '&NAME'
>&GRPUSERS(&GRPCNTR) SETC '&USERS'
>.END MEND
>
>Here is the $GRPTBL Macro, where my problem lies. It sorts the array 
>into order (that part works okay), then generates control blocks from the
data.
>See the very bottom for what I think I need to do.
>
>  MACRO
>&MACNAME $GRPTBL &DSECT=NO
>.*---*
>.*  

Re: Assembler question

[Charles Mills]

You're on the right track and I'm too lazy to actually do the coding.

OTOH, why not consider changing you macro syntax to something like

USERS=(T045022,T046726,T047542,T056131,...

And then is should be fairly trivial to separate out the sub-operands of
&USERS (&USERS(&SUB) as I recall) and loop based on the number of
sub-operands (N'&USERS as I recall).

The Assembler language reference is your friend (NOT Principles of
Operation).

You're on exactly the right track for generating your length halfword,
something like

DCAL2(LISTEND-*+2)
DCC'T045022'
DCC'T047542'
...
LISTEND EQU *

Charles



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Scott McFall
Sent: Friday, October 07, 2005 12:51 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Assembler question


My colleague Bob Stark asked me to float a problem he's currently 
experiencing at a client site out to some of the listservers for MVS and 
Assember to see if anyone can help us debug this problem.

If you post back, can you please also copy your response to Bob at 
[EMAIL PROTECTED] as he's in an account site and off-list with web
email.

Thanks so much!

Scott

>Date: Fri, 07 Oct 2005 14:49:13 -0400
>From: "Bob Stark" <[EMAIL PROTECTED]>
>To: [EMAIL PROTECTED]
>Subject: S/390 Assembler Macro problem
>X-Mailer: IceWarp Web Mail 5.4.3
>X-Originating-IP: 208.165.251.16
>
>I wrote the set of macros below which generate a linked list for a control 
>block module a month back, and now I am adding more userids. I hit a limit 
>that I didn't realize:
>
>xxDC   C'THIS MUST BE 256 BYTES OR LESS'
>
>My list is now over 256 bytes, so I have to split that up unto multiple DC 
>instructions, and my technique of generating the length will no longer be 
>correct.  When I wrote these two macros, I scoured the Internet looking 
>for examples, but didn't find much pay dirt, and the High Level Assembler 
>Programmer's Guide and Language reference are short on examples that put 
>everything together.
>
>So I am looking for:
>1. A suggested approach, withe a few actual lines of macro code, that show 
>how to split these DC's up and loop through them.
>
>2. A Source of really good example assembler macros that I could copy 
>techniques from.
>
>Here is a sample invocation of both macros:
>
>  $GRP TEST,USERS='T045022 T046726 T047542 T056131 T056313 T057345 +
>T093897 T094643 T095122 T095507 T095556 T096058 +
>T096148 T096199 T096255 T096518 T097282 T097579 +
>T097617 T097623 T098914 T099268 T099301 T100052 +
>'
>

--
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

Re: Assembler question

[Kirk Talman]

Personally I would use:

DCAL2(LISTEND-*-2)
DCC'T045022'
DCC'T047542'
...
LISTEND EQU *

Charles Mills <[EMAIL PROTECTED]> 10/07/2005 05:19 PM


You're on exactly the right track for generating your length halfword,
something like

DCAL2(LISTEND-*+2)
DCC'T045022'
DCC'T047542'
...
LISTEND EQU *





-
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom it is
addressed.  The information may also constitute a legally privileged
confidential communication.  If the reader of this message is not the
intended recipient or an agent responsible for delivering it to the
intended recipient, you are hereby notified that you have received this
communication in error and that any review, dissemination, copying, or
unauthorized use of this information, or the taking of any action in
reliance on the contents of this information is strictly prohibited.
If you have received this communication in error, please notify us
immediately by e-mail, and delete the original message.  Thank you

--
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

Re: Assembler question

[Charles Mills]

And you'd be right :-)

20 000E  12  DCAL2(LISTEND-*-2)
22 E3F0F4F5F0F2F213  DCC'T045022'  
29 E3F0F4F7F5F4F214  DCC'T047542'  
  00030  15 LISTEND  EQU * 

Charles



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Kirk Talman
Sent: Friday, October 07, 2005 2:29 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Assembler question


Personally I would use:

DCAL2(LISTEND-*-2)
DCC'T045022'
DCC'T047542'
...
LISTEND EQU *

--
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

Re: Assembler question

[Robert A. Rosenberg]

At 16:59 -0400 on 10/07/2005, Farley, Peter x23353 wrote about Re: 
Assembler question:



I don't know if that takes care of leading/trailing quotes in the
&GRPUSER(&I) values, but it's a start.


What leading and trailing quotes? Unless you go User='''UID1 UID2 ... 
UIDX''', the value that the is passed is only UID1 UID2 ... UIDX.


--
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

Re: Assembler question

[Robert A. Rosenberg]

At 14:19 -0700 on 10/07/2005, Charles Mills wrote about Re: Assembler question:


OTOH, why not consider changing you macro syntax to something like

USERS=(T045022,T046726,T047542,T056131,...

And then is should be fairly trivial to separate out the sub-operands of
&USERS (&USERS(&SUB) as I recall) and loop based on the number of
sub-operands (N'&USERS as I recall).


Even if the "separate by blanks" format is used, you can still parse 
them out (assuming that all the IDs are 7 bytes long) by just using 
as sub-string type operation. All that is needed is to first do a 
sanity check of the length to see that it is one byte shorter than an 
multiple of 8 (that length+1/8 gives you your loop count).


--
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

Re: assembler question

[john gilmore]

Robert A. Rosenberg writes:

Even if the "separate by blanks" format is used, you can still parse them 
out (assuming that all the > IDs are 7 bytes long) by just using as 
sub-string type operation. All that is needed is to first do a > sanity 
check of the length to see that it is one byte shorter than an multiple of 
8 (that

length+1/8 gives you your loop count).


Consider now

. . . ,argument='T00 T01', . . .

Here k'&argument = 23 and &element_count = (23 + 1)/8 = 3, but the string 
contains only two tokens.  This and other Rube Goldberg schemes should be 
avoided here.  A left-to-right lexical breakout is called for.


John Gilmore
Ashland, MA 01721
USA

_
Express yourself instantly with MSN Messenger! Download today - it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/


--
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

Re: Assembler question

[Farley, Peter x23353]

Write in haste, repent at leisure.  It's been a while since I did serious
macro programming.  CRAFT syndrome, I'm afraid (Can't Remember A Frellin'
Thing).

Mea culpa.

Peter

P.S. -- For those who were not fans, "frell" is an all-purpose expletive
popularized by the late (and much missed) Farscape series that appeared on
Sci-Fi channel here in the USA.  For a definition, please see:

http://www.bbc.co.uk/cult/farscape/swearing/clip0.shtml

Or google it yourself (alternate spelling is "frel", no one told the
denizens of the Uncharted Territories they had to be consistent).

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] 
Sent: Saturday, October 08, 2005 1:33 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Assembler question

At 16:59 -0400 on 10/07/2005, Farley, Peter x23353 wrote about Re: 
Assembler question:

>I don't know if that takes care of leading/trailing quotes in the
>&GRPUSER(&I) values, but it's a start.

What leading and trailing quotes? Unless you go User='''UID1 UID2 ... 
UIDX''', the value that the is passed is only UID1 UID2 ... UIDX.

_
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: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Assembler question

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on
10/07/2005
   at 03:50 PM, Scott McFall <[EMAIL PROTECTED]> said:

>>I wrote the set of macros below which generate a linked list for a control 
>>block module a month back, and now I am adding more userids. I hit a limit 
>>that I didn't realize:
>>
>>xxDC   C'THIS MUST BE 256 BYTES OR LESS'

First, I suggest that you pass the list to your macro as a list rather
than as a text string, e.g.,

  $GRP TEST,USERS=(T045022,T046726,T047542,T056131,T056313,T057345,
T093897,T094643,T095122,T095507,T095556,T096058,
T096148,T096199,T096255,T096518,T097282,T097579,
T097617,T097623,T098914,T099268,T099301,T100052)

Second, I suggest that you generate a separate DC CL7[1] for each
userid.

Third, plant an EQU with a generated label after the last DC.

  $GRP DCAL2(DCEND12345-*-2)
   DCCL7'T045022'
   ...
   DCCL7'T100052'
  DCEND12345 EQU *

[1] CL8 is they aren't TSO userids.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
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

Re: Assembler question

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Kirk Talman
> 
> Personally I would use:
> 
> DCAL2(LISTEND-*-2)

Why would you want the length to be 4 bytes greater than the actual length?

> DCC'T045022'
> DCC'T047542'
> ...
> LISTEND EQU *

-jc-

--
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

Re: Assembler question

[Chase, John]

GA-A-A-K-KKH!!

> -Original Message-
> From: Chase, John 
> Sent: Monday, October 10, 2005 7:03 AM
> To: 'IBM Mainframe Discussion List'
> Subject: RE: Assembler question
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List On Behalf Of Kirk Talman
> > 
> > Personally I would use:
> > 
> > DCAL2(LISTEND-*-2)
> 
> Why would you want the length to be 4 bytes greater than the 
> actual length?

Here's the clue-by-4; the line forms over there. -->

No pushing or cutting-in

-jc-

--
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

Re: Assembler question

[Bob Stark]

I've spent quite a bit of time with this approach, changing my list to 
USERS=(T045022,T046726,T047...), but I can't seem to figure out how to 
parse this list in the second macro.  That &SYSLIST stuff just works in the 
primary macro. I Have a collection of $GRP macros which save data 
temporarily in some GBLC arrays, then a single $GRPTBL macro which 
generates the actual data.  The reason that I do this is so that the 
$GRPTBL macro can sort the data.


What I really need is a two dimensional array, but I don't think that can 
really be done in a macro.


I am also hitting the a 256 byte limit in the length of an argument that 
can be passed to a macro. That looks like a real show-stopper that will 
force a complete redesign here.


$GRP TEST,USERS=(K001214,K001238,K003142,K003208,K003385,TLEAD01, +
  TZ00035,TZ00056,TZ00061,TZ00529,T031682,T042407,+
  T045022,T046726,T047542,T056131,T056313,T057345,+
  T059608,T060979,T061753,T065238,T065361,T067636,+
  T068437,T071219,T072918,T075851,T077911,T078676,+
  T078999,T079290,T079829,T081658,T081897,T083056,+
  T083239,T084039,T085210,T087556,T088009,T088530,+
  T088532,T088583,T088740,T092728,T092738,T093433,+
  T093897,T094643,T095122,T095507,T095556,T096058,+
  T096148,T096199,T096255,T096518,T097282,T097579,+
  T097617,T097623,T098914,T099268,T099301,T100052,+
  )

** ASMA026S Macro call operand too long; 255 leading characters deleted - $GRP
 /(K001214,K001238,K003142,K003208,K003385,TLEAD01,TZ00035,TZ00056,TZ00


At 04:34 PM 10/7/2005, you wrote:

You're on the right track and I'm too lazy to actually do the coding.

Why not consider changing you macro syntax to something like

USERS=(T045022,T046726,T047542,T056131,...

And then is should be fairly trivial to separate out the sub-operands of
&USERS (&USERS(&SUBSCRP) as I recall) and loop based on the number of
sub-operands (N'&USERS as I recall).

The Assembler language reference is your friend (NOT Principles of
Operation).

You're on exactly the right track for generating your length halfword,
something like

DCAL2(LISTEND-*+2)
DCC'T045022'
DCC'T047542'
...
LISTEND EQU *


Regards,

Bob Stark [ProTech - When you're serious about Systems Management]
Consulting, Software, and Training for OS/390, UNIX and Internet
www.protechtraining.com   800-373-9188 x150   412-445-8072

--
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

Re: Assembler question

[Binyamin Dissen]

On Mon, 10 Oct 2005 12:41:18 -0400 Bob Stark <[EMAIL PROTECTED]> wrote:

:>I've spent quite a bit of time with this approach, changing my list to 
:>USERS=(T045022,T046726,T047...), but I can't seem to figure out how to 
:>parse this list in the second macro.  That &SYSLIST stuff just works in the 
:>primary macro. I Have a collection of $GRP macros which save data 
:>temporarily in some GBLC arrays, then a single $GRPTBL macro which 
:>generates the actual data.  The reason that I do this is so that the 
:>$GRPTBL macro can sort the data.

:>What I really need is a two dimensional array, but I don't think that can 
:>really be done in a macro.

:>I am also hitting the a 256 byte limit in the length of an argument that 
:>can be passed to a macro. That looks like a real show-stopper that will 
:>force a complete redesign here.

When I have reached this, I have created a second keyword which contains the
continuation.

Of course, this may not be an adequate solution for non-internal code.

--
Binyamin Dissen <[EMAIL PROTECTED]>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
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

Re: Assembler question

[Martin Kline]

I believe the following two macros and subsequent sample code can generate
what you want. The code could be a bit more robust, but that's for you to
add, since I don't know the specifics of your requirements.


 MACRO
&LAB GRP
 GBLC  &GROUPS(500),&USERS(500)
 GBLA  &NUMGRPS,&NUMUSRS,&USRBEG(500),&USREND(500)
.*
&NUMGRPS SETA  &NUMGRPS+1
&GROUPS(&NUMGRPS) SETC '&LAB'
.*
 LCLA  &IX
&IX  SETA  1
&USRBEG(&NUMGRPS) SETA &NUMUSRS+1
.*
.USRLOOP ANOP
&NUMUSRS SETA  &NUMUSRS+1
&USERS(&NUMUSRS) SETC '&SYSLIST(&IX)'
&IX  SETA  &IX+1
 AIF   (&IX LE N'&SYSLIST).USRLOOP
.*
&USREND(&NUMGRPS) SETA &NUMUSRS
.*
 MEND
*
 MACRO
&LAB GRPTAB
 GBLC  &GROUPS(500),&USERS(500)
 GBLA  &NUMGRPS,&NUMUSRS,&USRBEG(500),&USREND(500)
.*
 LCLA  &GIX,&UIX
 LCLA  &I1,&I2,&N
 LCLC  &C,&G1,&G2
.*
&GROUPS(&NUMGRPS+1) SETC '0'
.*
.* - SORT  
.*
&I1  SETA  1
.SORT1   ANOP
&I2  SETA  &I1+1
.SORT2   ANOP
&G1  SETC  '&GROUPS(&I1)'.''
&G1  SETC  '&G1'(1,8)
&G2  SETC  '&GROUPS(&I2)'.''
&G2  SETC  '&G2'(1,8)
 AIF   ('&G1' LE '&G2').NOSWAP
&C   SETC  '&GROUPS(&I1)'
&GROUPS(&I1) SETC '&GROUPS(&I2)'
&GROUPS(&I2) SETC '&C'
&N   SETA  &USRBEG(&I1)
&USRBEG(&I1) SETA &USRBEG(&I2)
&USRBEG(&I2) SETA &N
&N   SETA  &USREND(&I1)
&USREND(&I1) SETA &USREND(&I2)
&USREND(&I2) SETA &N
.NOSWAP  ANOP
&I2  SETA  &I2+1
 AIF   (&I2 LE &NUMGRPS).SORT2
&I1  SETA  &I1+1
 AIF   (&I1 LT &NUMGRPS).SORT1
.*
.* - GENERATE  
.*
&GIX SETA  1
.GRPLOOP ANOP
&GROUPS(&GIX) DCA(&GROUPS(&GIX+1))
 DCAL2(&USREND(&GIX)-&USRBEG(&GIX)+1)
&UIX SETA  &USRBEG(&GIX)
.USRLOOP ANOP
 DCCL8'&USERS(&UIX)'
&UIX SETA  &UIX+1
 AIF   (&UIX LE &USREND(&GIX)).USRLOOP
.*
&GIX SETA  &GIX+1
 AIF   (&GIX LE &NUMGRPS).GRPLOOP
.*
 MEND
*
TESTPROG CSECT
*
PROD1GRP   PRODID1,PRODID2
GROUP1   GRP   GRP1ID1,GRP1ID2,GRP1ID3
PROD2GRP   PRODID1,PRODID2
TEST2GRP   TESTID1,TESTID2,TESTID3
GROUP2   GRP   GRP1ID1,GRP1ID2,GRP1ID3
TEST1GRP   TESTID1,TESTID2,TESTID3
$GRP GRP   K001214,K001238,K003142,K003208,K003385,TLEAD01,+
   TZ00035,TZ00056,TZ00061,TZ00529,T031682,T042407,+
   T045022,T046726,T047542,T056131,T056313,T057345,+
   T059608,T060979,T061753,T065238,T065361,T067636,+
   T068437,T071219,T072918,T075851,T077911,T078676,+
   T078999,T079290,T079829,T081658,T081897,T083056,+
   T083239,T084039,T085210,T087556,T088009,T088530,+
   T088532,T088583,T088740,T092728,T092738,T093433,+
   T093897,T094643,T095122,T095507,T095556,T096058,+
   T096148,T096199,T096255,T096518,T097282,T097579,+
   T097617,T097623,T098914,T099268,T099301,T100052
 GRPTAB
*
 END






CONFIDENTIALITY NOTICE:  This electronic transmission (including any
accompanying attachments) is intended solely for its authorized
recipient(s), and may contain confidential and/or legally privileged
information.  If you are not an intended recipient, or responsible for
delivering some or all of this transmission to an intended recipient, be
aware that any review, copying, printing, distribution, use or disclosure of
the contents of this message is strictly prohibited.  If you have received
this electronic message in error, please contact us immediately by
electronic mail at [EMAIL PROTECTED] or notify us
immediately by telephone at 1-800-345-2021 or 816-531-5575 and destroy the
original and all copies of this transmission (including any attachments).
Thank you.

--
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

Re: Assembler error

[Paul Hanrahan]

Try putting a MEND after the macro just to see if someone messed up the
macro construction. - Paul Hanrahan

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Kinney, Kevin
Sent: Tuesday, December 27, 2005 9:48 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Assembler error


Good morning all, I'm having some problems assembling David Coles Scheduler
(CBT tape #388) on an OS/390 1.2  system.

 

Here's the error - 

  #REGS GEN=ON,(BASE1REG,R12),(BASE2REG,R11),(BASE3REG,R7)

 ASMA089E *** ERROR *** Arithmetic expression contains illegal delimiter or
ends prematurely - MACRO - #TEST

 ASMA435I ** WARNING ** Record 645 in CBT.COLE.MACLIB(#TEST) on volume:
BEP917

 

The weird thing is that the same exact code compiles correctly on a OS/390
2.10 system.

 

Thoughts anyone?

 

Regards,

Kevin Kinney


--
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

Re: Assembler error

[David Cole]

Hi Kevin,

A couple of thoughts.

1) I don't know how new or old the CBT tape's copy of SCHEDRUN and my 
maclib are, but you can find the most recent copies of both at my 
website: www.comesoft.com. Click on "Downloads", then on "Free Utilities".


2) If the files from my website still don't work, then send me your 
assembly listing and I'll look at it.



Dave Cole  REPLY TO: [EMAIL PROTECTED]
Cole Software  WEB PAGE: http://www.colesoft.com
736 Fox Hollow RoadVOICE:540-456-8536
Afton, VA 22920FAX:  540-456-6658




At 12/27/2005 09:47 AM, Kinney, Kevin wrote:

Good morning all, I'm having some problems assembling David Coles Scheduler
(CBT tape #388) on an OS/390 1.2  system.



Here's the error -

  #REGS GEN=ON,(BASE1REG,R12),(BASE2REG,R11),(BASE3REG,R7)

 ASMA089E *** ERROR *** Arithmetic expression contains illegal delimiter or
ends prematurely - MACRO - #TEST

 ASMA435I ** WARNING ** Record 645 in CBT.COLE.MACLIB(#TEST) on volume:
BEP917



The weird thing is that the same exact code compiles correctly on a OS/390
2.10 system.



Thoughts anyone?



Regards,

Kevin Kinney


--
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

Re: Assembler error

[Edward E. Jaffe]

David Cole wrote:

1) I don't know how new or old the CBT tape's copy of SCHEDRUN and my 
maclib are, but you can find the most recent copies of both at my 
website: www.comesoft.com.



That should be:  www.colesoft.com!

--
-
| Edward E. Jaffe||
| Mgr, Research & Development| [EMAIL PROTECTED]|
| Phoenix Software International | Tel: (310) 338-0400 x318   |
| 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801|
| Los Angeles, CA 90045  | http://www.phoenixsoftware.com |
-

--
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

Re: Assembler error

[Ed Finnell]

 
In a message dated 12/28/2005 1:16:24 P.M. Central Standard Time,  
[EMAIL PROTECTED] writes:

That  should be:   www.colesoft.com!



Netnanny probably cut him off at the pass...then adware  and
spyzapper kick in and 15 minutes later find out it's a  bleepin...typo

--
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

Re: Assembler error

[David Cole]

OOPS! 

Dave



At 12/28/2005 02:06 PM, you wrote:

David Cole wrote:

1) I don't know how new or old the CBT tape's copy of SCHEDRUN and 
my maclib are, but you can find the most recent copies of both at 
my website: www.comesoft.com.



That should be:  www.colesoft.com!

--
-
| Edward E. Jaffe||
| Mgr, Research & Development| [EMAIL PROTECTED]|
| Phoenix Software International | Tel: (310) 338-0400 x318   |
| 5200 W Century Blvd, Suite 800 | Fax: (310) 338-0801|
| Los Angeles, CA 90045  | http://www.phoenixsoftware.com |
-

--
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



Dave Cole  REPLY TO: [EMAIL PROTECTED]
Cole Software  WEB PAGE: http://www.colesoft.com
736 Fox Hollow RoadVOICE:540-456-8536
Afton, VA 22920FAX:  540-456-6658 


--
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

Assembler training / books?/

[Andy Robertson]

I learned Assembler so long ago I have forgot from whence


Anyone know a good book I can give a newbie to teach him Assembler??


Information about non-IBM Courses would also useful - (we are contacting
IBM to chase up their offerings, of course).

Note, we are in the UK

--
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

Assembler training / books?/

[Phil Payne]

http://www.kmsitltd.co.uk/page8.html

-- 
  Phil Payne
  http://www.isham-research.co.uk
  +44 7833 654 800

--
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

Re: Assembler question

[John P Kalinich]

What is the length of ZON?



   
 Bill Larsen   
 <[EMAIL PROTECTED] 
 COM>   To 
 Sent by: IBM  IBM-MAIN@BAMA.UA.EDU
 Mainframe  cc 
 Discussion List   
 <[EMAIL PROTECTED] Subject 
 .EDU>     Assembler question  
   
   
 03/16/2006 12:03  
 PM
   
   
 Please respond to 
   IBM Mainframe   
  Discussion List  
 <[EMAIL PROTECTED] 
   .EDU>   
   
   




Dear all

(...)
L 10,ADR1
MVC ZON,0(10)   ===> (XX)
(..)

ADR1 DS F




===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
value in ZON ???


Thank you

--
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

Re: Assembler question

[Rob Scott]

The replacement instruction moves the ADDRESS into ZON, instead of the
contents at the ADDRESS as previously coded.

Rob Scott
Rocket Software
http://www.rs.com/portfolio/mxi/

--
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

Re: Assembler question

[Steve Comstock]

Bill Larsen wrote:

Dear all

(...)
L 10,ADR1
MVC ZON,0(10)   ===> (XX)
(..)

ADR1 DS F




===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
value in ZON ???


Maybe because  ADR1 should be an address constant?

Kind regards,

-Steve Comstock

--
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

Re: Assembler question

[Ulrich Krueger]

Bill,
break out your old Assembler 101 classroom handbook or the Assembler Language
manual and ask yourself the following question:
 What does a "L" (Load) instruction do, as opposed to the "LA" (Load _Address_)
instruction?

Also please note that "MVC" moves (copies) storage from the _address_ pointed to
by the second operand into the storage location specified by the first operand.
The length of the data move is defined by the length fo the first operand, ZON.
I assume that the length of ZON also is 4? If it's not, it won't work.


Regards,
Ulrich Krueger


"IBM Mainframe Discussion List"  wrote on 03/16/2006
10:03:25 AM:

> Dear all
>
> (...)
> L 10,ADR1
> MVC ZON,0(10)   ===> (XX)
> (..)
>
> ADR1 DS F
>
>
>
>
> ===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
> value in ZON ???
>
>
> Thank you
--
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

Re: Assembler question

[Richard Tsujimoto]

Bill wrote:
>Dear all

>(...)
>L 10,ADR1
>MVC ZON,0(10)   ===> (XX)
>(..)

>ADR1 DS F

>===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
>value in ZON ???

Assume that the following:

Basereg = 12
Offset of ZON = X'444'
Offset of ADR1 = X'200'
Content of ADR1 = address of CL32'X...X'
Length of ZON = 4

Then the first instruction would look like:

D2 03 C444 A000 which would copy 4 X's to ZON

The second instruction would like like:

D2 03 C444 C200 which would copy 4 bytes starting at ADR1, which 
contains the address of the 32 X's.

--
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

Re: Assembler question

[Todd Burch]

Bill,

ADR1 is based on some register and offset in your program.   Let's pretend
it is R3, and is 4 bytes off of R3.

So, being that, the instructions looks like this:

L   R10,4(,R3)
MVC  ZON,0(R10)


By rewriting the instructions, you get this:


MVC  ZON,4(R3)

Can you see the difference now?

Todd



- Original Message - 

From: "Bill Larsen" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Thursday, March 16, 2006 12:03 PM
Subject: Assembler question


> Dear all
>
> (...)
> L 10,ADR1
> MVC ZON,0(10)   ===> (XX)
> (..)
>
> ADR1 DS F
>
>
>
>
> ===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
> value in ZON ???
>

--
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

Re: Assembler question

[Chris Mason]

Bill,

This is the old "How does LOAD differ from LOAD ADDRESS?" issue - as has
already comprehensively been pointed out.

You may like to know there is a list/group oriented to Assembler which can
be accessed as follows:



SUBSCRIBING TO ASSEMBLER-LIST:
To subscribe to ASSEMBLER-LIST, send an email message addressed to:
  [EMAIL PROTECTED]
In the body of the message, type:
 SUBSCRIBE ASSEMBLER-LIST first name last name
For example, if I wished to subscribe myself to the list, I would
send the message
 SUBSCRIBE ASSEMBLER-LIST Jean Snow



Chris Mason

- Original Message - 
From: "Bill Larsen" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Thursday, 16 March, 2006 7:03 PM
Subject: Assembler question


> Dear all
>
> (...)
> L 10,ADR1
> MVC ZON,0(10)   ===> (XX)
> (..)
>
> ADR1 DS F
>
>
>
>
> ===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
> value in ZON ???
>
>
> Thank you

--
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

Re: Assembler question

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 03/16/2006
   at 12:03 PM, Bill Larsen <[EMAIL PROTECTED]> said:

>L 10,ADR1
>MVC ZON,0(10)   ===> (XX)
>(..)

>ADR1 DS F

>===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the
>same value in ZON ???

Because you're moving from a different address. Read the descriptions
of L and MVC in PoOps.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
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

Re: Assembler question

[Steve Arnett]

Are you sure that you wanted to do a L 10,ADR1 and not a LA 10,ADR1?  If 
you use the LA, then both MVCs would result in the same data.


Bill Larsen wrote:


Dear all

(...)
L 10,ADR1
MVC ZON,0(10)   ===> (XX)
(..)

ADR1 DS F




===> why when i replace (XX)  by "MVC ZON,ADR1" , i don't have the same
value in ZON ???


Thank you

--
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

C89 and Assembler

[Taylor, Clarence B]

Does anyone have any good references on how to use c89 to assemble? The
users guide, programmers guide, and the Unix System Services command
reference all have allusions to how, but not very good details.  There
is the -W,a option to pass options to the assembler phase, which I would
assume would be the normal stuff for the assembler EXEC PARM=, but have
not yet verified that.  I have been able to use the environment variable
_C89_SUSRLIB to set my maclib concatenation.  However I can not seem to
get a listing file to come out.  I have tried using -W
"a,so(mysource.lst)", but to no avail.

Any thoughts would be appreciated

Thank you 


Brad Taylor

--
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

Macro Assembler Question

[Hardee, Chuck]

Hello Listers,

I am in the process of doing some work in a macro written years ago.

The problem I am faced with is that the parameter list is something like the 
following:

LABEL   MACNAME  P1=X,P2=Y,P3=Z,...  Where the parameters can go out to p24.
And, unfortunately, there are 4 sets of parameters of this nature, not to 
mention a few "unique" parameters on the list (not suffixed with a number).

My question is, does the macro assembly language allow for compound variable 
names?
So far, everything I have tried has met with resistance from the assembler.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer
Database Administration
Information Technology Services
Thermo Fisher Scientific
Chuck.hardee.at.thermofisher.dot.com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

ASSIST assembler language

[McKown, John]

All this talk about the WTO and John Ashland's post about an infrastructure to 
support an easy way to do some primitive I/O got me to remembering. The old 
ASSIST assembler that I used back in college had a bunch of X instructions 
which were implemented as unused opcodes. They were simple and easy use. I 
think that I may just use them as a conceptual model for something equivalent 
in today's environment. Of course, it would not be via trapping an unused 
opcode, but in a more prosaic manner. But a bunch of simple to use macros. I 
even found some documentation for ASSIST at 
http://www.seasite.niu.edu/cs360/asusergd.htm . If I get it working, I'll 
submit it to the CBTTape. Might even see about making it reentrant, pure, 
threadsafe code (just to be buzzword compliant).

Does anybody know of any product which uses the @ sign as the leading character 
for its macros? I may want to use it instead of a leading X.

John McKown
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM


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

S0C4-04 Assembler

[MONTERO ROMERO, ENRIQUE ELOI]

Hi to all,

More than 20 years that i did not code assembler. So I want to wake up my 
neurons with a simple program. It writes an string to an output dataset.

Here is the code i use to "assembly & Linkedit it"

//PROGRAMA JOB  MSGCLASS=X,MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID
//ASM  EXEC PGM=ASMA90
//SYSPRINT DD  SYSOUT=*   
//SYSTERM  DD  SYSOUT=*   
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR   
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(3,1))   
//SYSLIN   DD DSN=&&OBJ,UNIT=SYSDA,   
//SPACE=(CYL,(1,1)),DISP=(,PASS)  
//SYSINDD  *  
ASSHELLO CSECT
 BALR  12,0PREPARE A BASE REGISTER
 USING *,12ESTABLISH BASE REGISTER
* 
*WTO   'TEST'  THIS WORKED   
 OPEN  (SALIDA,(OUTPUT))  
 PUT   SALIDA,HELLOMSG
 CLOSE (SALIDA)   
* 
 LAR15,0 * SET RETURN-CODE TO ZERO
 BR14* RETURN TO CALLER 
R0   EQU   0
R1   EQU   1
R2   EQU   2
R3   EQU   3
R4   EQU   4
R5   EQU   5
R6   EQU   6
R7   EQU   7
R8   EQU   8
R9   EQU   9
R10  EQU   10   
R11  EQU   11   
R12  EQU   12   
R13  EQU   13   
R14  EQU   14   
R15  EQU   15   
HELLOMSG DCC'I AM AN OLD FREAK' 
SALIDA   DCB   DSORG=PS,MACRF=PM,DDNAME=SALIDA,X
   RECFM=FB,LRECL=80,BLKSIZE=80 
 END
/*  
//LKED EXEC PGM=IEWL,PARM='LIST,XREF,RENT,REUS,REFR',COND=(0,NE)
//SYSPRINT DD  SYSOUT=* 
//SYSLMOD  DD  DSN=MYLIB.LINKLIB(ASSHELLO),DISP=SHR   
//SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(3,1)) 
//SYSLIN   DD  DSN=&&OBJ,DISP=(OLD,DELETE)  
//*   


This other job to RUN it.

//PROGRAMA JOB  MSGCLASS=X,MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID
//JOBLIB   DD DSN=MYLIB.LINKLIB,DISP=SHR
//ASSHELLO EXEC PGM=ASSHELLO  
//SALIDA   DD DSN=MYLIB.SALIDA,DISP=(NEW,CATLG,DELETE), 
//SPACE=(TRK,(1,1)),  
//DCB=(LRECL=80,BLKSIZE=80,RECFM=FB)



... BUT ...

It abends with SC04-04, i think that is something wrong with the DCB but i am 
not shure.

SYSTEM COMPLETION CODE=0C4  REASON CODE=0004  
 TIME=11.01.24  SEQ=00029  CPU=  ASID=0024
 PSW AT TIME OF ERROR  078C   80DFFE9C  ILC 4  INTC 04
   NO ACTIVE MODULE FOUND 
   NAME=UNKNOWN   
   DATA AT PSW  00DFFE96 - 42389601  B030B20A  00509601   
   GR 0: 008D1301   1: 008D13F0   
  2: 008D1390   3:    
  4: 008D1410   5: 00DFF0A0   
  6: 008D17A4   7: 0020   
  8: 008D176C   9: 008D174C   
  A: 008D179C   B: 7FA0   
  C: 00FE   D: 0002   
  E: 00DCF6AC   F: 008D16D0   
 END OF SYMPTOM DUMP

Old assembler modules.

[Richbourg, Claude]

I was looking around and found an old library that contained these
modules;

 

IEV00

IEV10

IEV20

IEV50

IEV60

IEV80

IEV90

 

Was there ever an IEV30, IEV40 or IEV70? Just curious and wondered if
someone made multiple copies...

 

Regards,

Claude

 


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

Assembler variable with @

[MONTERO ROMERO, ENRIQUE ELOI]

Hi team,

Hope you are well,

This time is an assembler coding question.
What does it means an at-sign (@) at the end of a constant?

Example :

R1  EQU 1
R2  EQU 2
R3  EQU 3
LIST@   EQU 4<--- ?
R5  EQU 5
R6  EQU 6
PARM2   EQU 7<--- ?
R8  EQU 8
R9  EQU 9
R10 EQU 10
R11 EQU 12
...
...


Also in this code :

L   PARM@,0(LIST@)  <--- ?
MVC DSNAME+4(44),0(PARM@)   <--- ?

Is there some especific situation to put the @ ?

Thannks a lot in advance,

Enrique Montero

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

Re: Assembler list

[Schwarz, Barry A]

Send a message to any listserv, not to the discussion list, with the text 

   SUBSCRIBE ASSEMBLER-LIST

If you pick the wrong listserv, it will forwarded to the correct one.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
> Behalf Of Micheal Butz
> Sent: Thursday, January 19, 2012 12:54 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Assembler list
> 
> Would anyone know how to subscribe to the assembler list

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: Assembler list

[Shmuel Metz (Seymour J.)]

In <00fc01ccd6ec$74335990$5c9a0cb0$@net>, on 01/19/2012
   at 03:53 PM, Micheal Butz  said:

>Would anyone know how to subscribe to the assembler list

Send a message to  with the body

SUBSCRIBE ASSEMBLER-LIST
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see <http://patriot.net/~shmuel/resume/brief.html> 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Re: assembler help!

[Staller, Allan]

Unpredictable!

Check the high order byte of R1!

ICM R1,7,0(r2) replaces the low order 3 bytes (and seems  to be
referencing a 24-bit address). R1 may contain residual data in the high
order byte.

HTH,



In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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?


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

Re: assembler help!

[Ward, Mike S]

The ICM will only replace the lower 3 bytes of R1. If there is anything
in the left most byte it will not be replaced. You could try

SR R1,R1
ICM   R1,7,0(R2)

And see if that gets you what you want.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Crabtree, Anne D
Sent: Thursday, August 04, 2011 8:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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?

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


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

==
This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity
to which they are addressed. If you have received this email in error please 
notify the system manager. This message
contains confidential information and is intended only for the individual 
named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please notify the 
sender immediately by e-mail if you
have received this e-mail by mistake and delete this e-mail from your system. 
If you are not the intended recipient
you are notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this
information is strictly prohibited.

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

Re: assembler help!

[Barkow, Eileen]

A mask of 7 loads the low order 3 bytes, so that r1 would contain whatever the 
high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would contain 
0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a full 
word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Crabtree, Anne D
Sent: Thursday, August 04, 2011 9:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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?

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


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Steve Comstock]

On 8/4/2011 7:02 AM, Crabtree, Anne D wrote:

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
what ends up in all bits of R1?


Unpredictable. The first instruction picks up data from
memory location named PARMJOBC, but the second instruction
uses that value as an address not as data.

Either the first instruction should be 'LA' or PARMJOBC
contains an address. If PARMJOBC contains an address,
it should probably not be location 4 in memory!


I am trying to add additional values to what is in R1 by doing:


MVC   WK1(4),SMF30CPS
A R1,WK1


Why would you do this instead of just using one instruction:

  A  R1,SMF3OCPS

??



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?

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


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




--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

* Special promotion: 15% off on all DB2 training classes
scheduled by September 1, taught by year end 2011

* Check out our entire DB2 curriculum at:
http://www.trainersfriend.com/DB2_and_VSAM_courses/DB2curric.htm

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

Re: assembler help!

[Steve Comstock]

On 8/4/2011 7:31 AM, Steve Comstock wrote:

[correcting my own post]


On 8/4/2011 7:02 AM, Crabtree, Anne D wrote:

In our IEFACTRT (accounting exit), an assembler program, it has the following
commands:

L R2,PARMJOBC
ICM R1,7,0(R2)

If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
what ends up in all bits of R1?


Unpredictable. The first instruction picks up data from
memory location named PARMJOBC, but the second instruction
uses that value as an address not as data.

Either the first instruction should be 'LA' or PARMJOBC
contains an address. If PARMJOBC contains an address,
it should probably not be location 4 in memory!


I meant location 8.





I am trying to add additional values to what is in R1 by doing:


MVC WK1(4),SMF30CPS
A R1,WK1


Why would you do this instead of just using one instruction:

A R1,SMF3OCPS

??



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?

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




--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

* Special promotion: 15% off on all DB2 training classes
scheduled by September 1, taught by year end 2011

* Check out our entire DB2 curriculum at:
http://www.trainersfriend.com/DB2_and_VSAM_courses/DB2curric.htm

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

Re: assembler help!

[Crabtree, Anne D]

Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1 right?  
So, does R1 have data in it or an address?  I was assuming that R1 had data in 
it (with leading zeroes and 8 on the end) and I'm trying to add other values to 
that value.  How can I do that if not the way I tried (ICM followed by the MVC 
and A)?

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:IBM-MAIN@bama.ua.edu] On Behalf Of 
Barkow, Eileen
Sent: Thursday, August 04, 2011 9:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

A mask of 7 loads the low order 3 bytes, so that r1 would contain whatever the 
high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would contain 
0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a full 
word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of 
Crabtree, Anne D
Sent: Thursday, August 04, 2011 9:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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?

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


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Ward, Mike S]

Anne, asking this type of question on this list is ok. And a lot of the
people on this list are very sharp and give excellent answers. There is
another list at assembler-l...@listserv.uga.edu that just deals with
assembler questions. These people are also very sharp. :)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Crabtree, Anne D
Sent: Thursday, August 04, 2011 8:46 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
right?  So, does R1 have data in it or an address?  I was assuming that
R1 had data in it (with leading zeroes and 8 on the end) and I'm trying
to add other values to that value.  How can I do that if not the way I
tried (ICM followed by the MVC and A)?

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:IBM-MAIN@bama.ua.edu] On
Behalf Of Barkow, Eileen
Sent: Thursday, August 04, 2011 9:17 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

A mask of 7 loads the low order 3 bytes, so that r1 would contain
whatever the high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would
contain 0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a
full word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Crabtree, Anne D
Sent: Thursday, August 04, 2011 9:02 AM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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?

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


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

==
This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity
to which they are addressed. If you have received this email in error please 
notify the system manager. This message
contains confidential information and is intended only for the individual 
named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please notify the 
sender immediately by e-mail if you
have received this e-mail by mistake and delete this e-mail from your system. 
If you are not the intended recipient
you are notified that disclosing, copying, distributing or taking any action in 
reliance on the contents of this
information is strictly prohibited.

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

Re: assembler help!

[Staller, Allan]

*NO*

LR   R1,R1 will not zero out R1. SRR1,R1  will zero out R1.


Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
right?  So, does R1 have data in it or an address?  I was assuming that
R1 had data in it (with leading zeroes and 8 on the end) and I'm trying
to add other values to that value.  How can I do that if not the way I
tried (ICM followed by the MVC and A)?



<>
A mask of 7 loads the low order 3 bytes, so that r1 would contain
whatever the high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would
contain 0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a
full word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1

<>




In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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


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

Re: assembler help!

[Crabtree, Anne D]

Sorry!  I meant SR R1,R1 ... typo

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:IBM-MAIN@bama.ua.edu] On Behalf Of 
Staller, Allan
Sent: Thursday, August 04, 2011 9:51 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

*NO*

LR   R1,R1 will not zero out R1. SRR1,R1  will zero out R1.


Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
right?  So, does R1 have data in it or an address?  I was assuming that
R1 had data in it (with leading zeroes and 8 on the end) and I'm trying
to add other values to that value.  How can I do that if not the way I
tried (ICM followed by the MVC and A)?



<>
A mask of 7 loads the low order 3 bytes, so that r1 would contain
whatever the high order byte it contained
originally plus 08 in the low order 3 bytes.
L R2,PARMJOBC
ICM   R1,7,0(R2)

If smf30cps contains 0001, then the first 4 bytes of wk1 would
contain 0001 after the move
And r1 would also contain 0001 after the add, assuming WK1 is on a
full word boundary.

MVC   WK1(4),SMF30CPS
A R1,WK1

<>




In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Crabtree, Anne D]

I realize I'm not asking the smartest questions...  PARMJOBC is an address and 
at that address is the value 0008 (I think).   To be honest, I can't even 
figure out where it is getting PARMJOBC.  I'm basing the assumption on the SMF 
record I dumped for the job that I ran that uses the exit.  

If anyone is using IEFACTRT to do chargeback and is using multiple SMF30 cpu 
type fields in the calculation(ie. SMF30ICU, SMF30IIP, SMF30_TIME_ON_IFA, 
etc...)  I'd love to see how you did it.  The production version only looks at 
SMF30CPT for job cpu time and I need to add in all the other CPU fields!

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:IBM-MAIN@bama.ua.edu] On Behalf Of 
Steve Comstock
Sent: Thursday, August 04, 2011 9:31 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

On 8/4/2011 7:02 AM, Crabtree, Anne D wrote:
> In our IEFACTRT (accounting exit), an assembler program, it has the following 
> commands:
>
> L R2,PARMJOBC
> ICM   R1,7,0(R2)
>
> If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
> what ends up in all bits of R1?

Unpredictable. The first instruction picks up data from
memory location named PARMJOBC, but the second instruction
uses that value as an address not as data.

Either the first instruction should be 'LA' or PARMJOBC
contains an address. If PARMJOBC contains an address,
it should probably not be location 4 in memory!


I am trying to add additional values to what is in R1 by doing:
>
> MVC   WK1(4),SMF30CPS
> A R1,WK1

Why would you do this instead of just using one instruction:

   A  R1,SMF3OCPS

??

>
> 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?
>
> 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
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>


-- 

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

* Special promotion: 15% off on all DB2 training classes
 scheduled by September 1, taught by year end 2011

* Check out our entire DB2 curriculum at:
 http://www.trainersfriend.com/DB2_and_VSAM_courses/DB2curric.htm

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Chase, John]

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Crabtree, Anne D
> 
> In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:
> 
> L R2,PARMJOBC
> ICM   R1,7,0(R2)
> 
> 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?

In a later post you added that, prior to L   R2,PARMJOBC you have SR
R1,R1.  So, the updated sequence of instructions should be
substantially:

SRR1,R1
...  (at this point, R1 contains 00 00 00 00)

L R2,PARMJOBC
...  Since location PARMJOBC contains 00 00 00 08, R2 now
contains 00 00 00 08)

ICM   R1,7,0(R2)
...  Now R1 contains, in its second through fourth bytes, the
contents of the first three bytes of storage at location 8, which
(according to my really old "yellow booklet") is the Restart Old PSW.

MVC   WK1(4),SMF30CPS
...  Now the area of storage known to your program as WK1
contains, in its first four bytes, the contents of the area of storage
known to your program as SMF30CPS.

A R1,WK1
...  Now R1 contains the arithmetic sum of the first three bytes
of the Restart Old PSW and whatever was in the first four bytes of the
storage area WK1.

As others have suggested, the L   R2,PARMJOBC should probably be LA
R2,PARMJOBC.

-jc-

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

Re: assembler help!

[van der Grijn, Bart (B)]

I believe Anne mentioned something about PARMJOBC containing the address
to a field with x0..08, rather than the actual value. 

Looking at the TWS supplied code on our system, that seems to match. It
has: 

L DRKR2,PARMJOBC  LOAD ADDR OF JOB CPU TIME
ICM   DRKR1,K7,K0(DRKR2)  LOAD JOB CPU TIME

See also the code listed in
http://www.mail-archive.com/ibm-main@bama.ua.edu/msg62558.html

Bart



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Chase, John
Sent: Thursday, August 04, 2011 10:47 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Crabtree, Anne D
> 
> In our IEFACTRT (accounting exit), an assembler program, it has the
following commands:
> 
> L R2,PARMJOBC
> ICM   R1,7,0(R2)
> 
> 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?

In a later post you added that, prior to L   R2,PARMJOBC you have SR
R1,R1.  So, the updated sequence of instructions should be
substantially:

SRR1,R1
...  (at this point, R1 contains 00 00 00 00)

L R2,PARMJOBC
...  Since location PARMJOBC contains 00 00 00 08, R2 now
contains 00 00 00 08)

ICM   R1,7,0(R2)
...  Now R1 contains, in its second through fourth bytes, the
contents of the first three bytes of storage at location 8, which
(according to my really old "yellow booklet") is the Restart Old PSW.

MVC   WK1(4),SMF30CPS
...  Now the area of storage known to your program as WK1
contains, in its first four bytes, the contents of the area of storage
known to your program as SMF30CPS.

A R1,WK1
...  Now R1 contains the arithmetic sum of the first three bytes
of the Restart Old PSW and whatever was in the first four bytes of the
storage area WK1.

As others have suggested, the L   R2,PARMJOBC should probably be LA
R2,PARMJOBC.

-jc-

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[David Andrews]

On Thu, 2011-08-04 at 10:20 -0400, Crabtree, Anne D wrote:
> If anyone is using IEFACTRT to do chargeback and is using multiple
> SMF30 cpu type fields in the calculation(ie. SMF30ICU, SMF30IIP,
> SMF30_TIME_ON_IFA, etc...)  I'd love to see how you did it.  The
> production version only looks at SMF30CPT for job cpu time and I need
> to add in all the other CPU fields!

The halfword SMF30TFL contains bits that indicate which of the CPU
fields contain valid data and which do not.

If the high order bit of SMF30TFL is off (i.e. SMF30TFL is non-negative)
then all fields are valid.  Otherwise, you'll have to examine each bit
in SMF30TFL before you add corresponding selected CPU fields.

-- 
David Andrews
A. Duda & Sons, Inc.
david.andr...@duda.com

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

Re: assembler help!

[Staller, Allan]

See sys1.samplib(ieeactrt) for doc on the parameter  lists,


I realize I'm not asking the smartest questions...  PARMJOBC is an
address and at that address is the value 0008 (I think).   To be
honest, I can't even figure out where it is getting PARMJOBC.  


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

Re: assembler help!

[Edward Jaffe]

On 8/4/2011 6:02 AM, Crabtree, Anne D wrote:

In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
ICM   R1,7,0(R2)

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?


Many have asserted that assembler language skills are inadequate to properly 
maintain 21st-Century z/OS systems.


Would it be better if IBM provided sample exits in METAL C?

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
310-338-0400 x318
edja...@phoenixsoftware.com
http://www.phoenixsoftware.com/

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

Re: assembler help!

[Robert A. Rosenberg]

At 09:17 -0700 on 08/04/2011, Edward Jaffe wrote about Re: assembler help!:

Many have asserted that assembler language skills are inadequate to 
properly maintain 21st-Century z/OS systems.


Would it be better if IBM provided sample exits in METAL C?


That depends on what the person's job function is supposed to be. If 
it is to maintain system exits, an adequate knowledge of assembler 
language skills (or at least enough reading comprehension to 
understand the PoP manual's descriptions of the use and function of 
the individual instructions) would seem to me to be all that is 
required (aside from knowing what the different exits are supposed to 
do and when they get invoked). Not to degrade the original poster but 
it seems to me that a quick look in PoPs would have answered the 
query of how the instructions function and what the results would 
have been. I am not expecting knowledge of all the non-standard trick 
usage of instructions (such as using TR to do a patterned move of 
data as opposed to the command's standard usage of changing one 
codepoint to another) but just simple knowledge of how an instruction 
functions (as well as what it is used for).


Some of this simple knowledge seemed to be lacking in some of the 
early replies since that missed the fact that the ICM source parm is 
an address (which was loaded by the prior L) not a immediate operand. 
This was ultimately due to the original description that said the L 
operand was pointing at the F'8' value not it's location.


If the job function involves maintaining the IBM supplied code (which 
is not included in the job specs since you reference only maintenance 
of the exits) then you need SMPE skills as well as possibly SYSGEN 
Coding skills (to tailor the system).


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

Re: assembler help!

[McKown, John]

NO Why? Because we're too cheap to license the C compiler. We do have 
HLASM. Now, if they want to make the C/C++ come for free, I'd jump for joy. We 
had a license at one time. But a manager who was struggling to save his job 
decided that eliminating all "non-critical" software was the way to go. So the 
C license went. Followed shortly thereafter by the manager.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Edward Jaffe
> Sent: Thursday, August 04, 2011 11:18 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: assembler help!
> 
> On 8/4/2011 6:02 AM, Crabtree, Anne D wrote:
> > In our IEFACTRT (accounting exit), an assembler program, it 
> has the following commands:
> >
> > L R2,PARMJOBC
> > ICM   R1,7,0(R2)
> >
> > 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?
> 
> Many have asserted that assembler language skills are 
> inadequate to properly 
> maintain 21st-Century z/OS systems.
> 
> Would it be better if IBM provided sample exits in METAL C?
> 
> -- 
> Edward E Jaffe
> Phoenix Software International, Inc
> 831 Parkview Drive North
> El Segundo, CA 90245
> 310-338-0400 x318
> edja...@phoenixsoftware.com
> http://www.phoenixsoftware.com/
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Thomas David Rivers]

McKown, John wrote:


NO Why? Because we're too cheap to license the C compiler. We do have HLASM. Now, if 
they want to make the C/C++ come for free, I'd jump for joy. We had a license at one 
time. But a manager who was struggling to save his job decided that eliminating all 
"non-critical" software was the way to go. So the C license went. Followed 
shortly thereafter by the manager.

 



I think we could help you with that...

- Dave Rivers -

--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

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

Re: assembler help!

[Edward Jaffe]

On 8/4/2011 11:27 AM, McKown, John wrote:

NO Why? Because we're too cheap to license the C compiler. We do have HLASM. Now, if 
they want to make the C/C++ come for free, I'd jump for joy. We had a license at one 
time. But a manager who was struggling to save his job decided that eliminating all 
"non-critical" software was the way to go. So the C license went. Followed 
shortly thereafter by the manager.


Sorry, John. Your answer makes no sense. You must have misunderstood my 
question.

I wasn't asking if IBM should remove support for HLASM exits and replace them 
with METAL C exits. I simply asked if it would be better if IBM provided sample 
exits in METAL C.


The original poster seems to have a poor grasp of HLASM basics and I was 
wondering if she (and people like her) could be better served if sample exits 
were provided in METAL C.


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
310-338-0400 x318
edja...@phoenixsoftware.com
http://www.phoenixsoftware.com/

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

Re: assembler help!

[McKown, John]

But not at a cost of $0.00. We're still in "lock down" mode. We seem to be 
doing better as a company, but there is still a push to keep costs at a 
minimum. Some day, I may look at relicensing your C, C++, and assembler for my 
home Linux system to do cross-compiles. I had them licensed some years ago, but 
medical expenses and the death of my mother totally destroyed my "disposable 
income". Most of my "joy of programming" is now done on Linux using gratis 
tools. This is reinforced by the constant pressure here to not use the 
mainframe "unnecessarily".

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
> Sent: Thursday, August 04, 2011 1:32 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: assembler help!
> 
> McKown, John wrote:
> 
> >NO Why? Because we're too cheap to license the C 
> compiler. We do have HLASM. Now, if they want to make the 
> C/C++ come for free, I'd jump for joy. We had a license at 
> one time. But a manager who was struggling to save his job 
> decided that eliminating all "non-critical" software was the 
> way to go. So the C license went. Followed shortly thereafter 
> by the manager.
> >
> >  
> >
> 
> I think we could help you with that...
> 
>  - Dave Rivers -
> 
> -- 
> riv...@dignus.comWork: (919) 676-0847
> Get your mainframe programming tools at http://www.dignus.com
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[McKown, John]

Oh, you're right. I was thinking "instead of" and not "in addition to". My bad.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Edward Jaffe
> Sent: Thursday, August 04, 2011 1:41 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: assembler help!
> 
> On 8/4/2011 11:27 AM, McKown, John wrote:
> > NO Why? Because we're too cheap to license the C 
> compiler. We do have HLASM. Now, if they want to make the 
> C/C++ come for free, I'd jump for joy. We had a license at 
> one time. But a manager who was struggling to save his job 
> decided that eliminating all "non-critical" software was the 
> way to go. So the C license went. Followed shortly thereafter 
> by the manager.
> 
> Sorry, John. Your answer makes no sense. You must have 
> misunderstood my question.
> 
> I wasn't asking if IBM should remove support for HLASM exits 
> and replace them 
> with METAL C exits. I simply asked if it would be better if 
> IBM provided sample 
> exits in METAL C.
> 
> The original poster seems to have a poor grasp of HLASM 
> basics and I was 
> wondering if she (and people like her) could be better served 
> if sample exits 
> were provided in METAL C.
> 
> -- 
> Edward E Jaffe
> Phoenix Software International, Inc
> 831 Parkview Drive North
> El Segundo, CA 90245
> 310-338-0400 x318
> edja...@phoenixsoftware.com
> http://www.phoenixsoftware.com/
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Scott Rowe]

John,

Why not use GCC?

On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
wrote:

> But not at a cost of $0.00. We're still in "lock down" mode. We seem to be
> doing better as a company, but there is still a push to keep costs at a
> minimum. Some day, I may look at relicensing your C, C++, and assembler for
> my home Linux system to do cross-compiles. I had them licensed some years
> ago, but medical expenses and the death of my mother totally destroyed my
> "disposable income". Most of my "joy of programming" is now done on Linux
> using gratis tools. This is reinforced by the constant pressure here to not
> use the mainframe "unnecessarily".
>
> --
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets(r)
>
> 9151 Boulevard 26 * N. Richland Hills * TX 76010
> (817) 255-3225 phone *
> john.mck...@healthmarkets.com * www.HealthMarkets.com
>
> Confidentiality Notice: This e-mail message may contain confidential or
> proprietary information. If you are not the intended recipient, please
> contact the sender by reply e-mail and destroy all copies of the original
> message. HealthMarkets(r) is the brand name for products underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
> Life Insurance Company(r), Mid-West National Life Insurance Company of
> TennesseeSM and The MEGA Life and Health Insurance Company.SM
>
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
> > Sent: Thursday, August 04, 2011 1:32 PM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: Re: assembler help!
> >
> > McKown, John wrote:
> >
> > >NO Why? Because we're too cheap to license the C
> > compiler. We do have HLASM. Now, if they want to make the
> > C/C++ come for free, I'd jump for joy. We had a license at
> > one time. But a manager who was struggling to save his job
> > decided that eliminating all "non-critical" software was the
> > way to go. So the C license went. Followed shortly thereafter
> > by the manager.
> > >
> > >
> > >
> >
> > I think we could help you with that...
> >
> >  - Dave Rivers -
> >
> > --
> > riv...@dignus.comWork: (919) 676-0847
> > Get your mainframe programming tools at http://www.dignus.com
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>

CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please be advised that you have
received this material in error and that any forwarding, copying, printing,
distribution, use or disclosure of the material is strictly prohibited.
If you have received this material in error, please (i) do not read it,
(ii) reply to the sender that you received the message in error, and
(iii) erase or destroy the material. Emails are not secure and can be
intercepted, amended, lost or destroyed, or contain viruses. You are deemed
to have accepted these risks if you communicate with us by email. Thank you.

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

Re: assembler help!

[McKown, John]

I'm too stupid to figure out how to install it. But that was a few years ago. 
It the z/OS version maintained? Or is it like other GNU software that gets on 
z/OS - out of date and not actively kept in sync with the Linux version.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or 
proprietary information. If you are not the intended recipient, please contact 
the sender by reply e-mail and destroy all copies of the original message. 
HealthMarkets(r) is the brand name for products underwritten and issued by the 
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance 
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The 
MEGA Life and Health Insurance Company.SM

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
> Sent: Thursday, August 04, 2011 2:10 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: assembler help!
> 
> John,
> 
> Why not use GCC?
> 
> On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
> wrote:
> 
> > But not at a cost of $0.00. We're still in "lock down" 
> mode. We seem to be
> > doing better as a company, but there is still a push to 
> keep costs at a
> > minimum. Some day, I may look at relicensing your C, C++, 
> and assembler for
> > my home Linux system to do cross-compiles. I had them 
> licensed some years
> > ago, but medical expenses and the death of my mother 
> totally destroyed my
> > "disposable income". Most of my "joy of programming" is now 
> done on Linux
> > using gratis tools. This is reinforced by the constant 
> pressure here to not
> > use the mainframe "unnecessarily".
> >
> > --
> > John McKown
> > Systems Engineer IV
> > IT
> >
> > Administrative Services Group
> >
> > HealthMarkets(r)
> >
> > 9151 Boulevard 26 * N. Richland Hills * TX 76010
> > (817) 255-3225 phone *
> > john.mck...@healthmarkets.com * www.HealthMarkets.com
> >
> > Confidentiality Notice: This e-mail message may contain 
> confidential or
> > proprietary information. If you are not the intended 
> recipient, please
> > contact the sender by reply e-mail and destroy all copies 
> of the original
> > message. HealthMarkets(r) is the brand name for products 
> underwritten and
> > issued by the insurance subsidiaries of HealthMarkets, Inc. 
> -The Chesapeake
> > Life Insurance Company(r), Mid-West National Life Insurance 
> Company of
> > TennesseeSM and The MEGA Life and Health Insurance Company.SM
> >
> >
> >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List
> > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
> > > Sent: Thursday, August 04, 2011 1:32 PM
> > > To: IBM-MAIN@bama.ua.edu
> > > Subject: Re: assembler help!
> > >
> > > McKown, John wrote:
> > >
> > > >NO Why? Because we're too cheap to license the C
> > > compiler. We do have HLASM. Now, if they want to make the
> > > C/C++ come for free, I'd jump for joy. We had a license at
> > > one time. But a manager who was struggling to save his job
> > > decided that eliminating all "non-critical" software was the
> > > way to go. So the C license went. Followed shortly thereafter
> > > by the manager.
> > > >
> > > >
> > > >
> > >
> > > I think we could help you with that...
> > >
> > >  - Dave Rivers -
> > >
> > > --
> > > riv...@dignus.comWork: (919) 676-0847
> > > Get your mainframe programming tools at http://www.dignus.com
> > >
> > > 
> --
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET 
> IBM-MAIN INFO
> > Search the archives at http://bama.ua.edu/archives/ibm-main.html
&

Re: assembler help!

[Schwarz, Barry A]

You indicated subsequently that you clear R1 previously and that PARMJOBC 
points to (instead of contains) X'0008'.

With a mask of 7, the ICM instruction leaves byte 0 of R1 unchanged and loads 
bytes 1-3 with bytes 0-2 of the effective address.  The net result in R1 is
   byte 0: X'00' unchanged
   byte 1: X'00' from PARMJOBC
   byte 2: X'00' from PARMJOBC+1
   byte 3: X'00' from PARMJOBC+2

The last byte of PARMJOBC does not participate in the instruction.

Barry Schwarz
OS/390 System Programmer
M/S 80-JE
Phone: 253-657-5262
Fax: 253-657-8574

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
> Behalf Of Crabtree, Anne D
> Sent: Thursday, August 04, 2011 6:02 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: assembler help!
>
> In our IEFACTRT (accounting exit), an assembler program, it has the
> following commands:
>
> L R2,PARMJOBC
> ICM   R1,7,0(R2)
>
> 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?
>
> 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
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Scott Rowe]

I can't help you with that question, since I don't use C myself.  I just
thought it was interesting that you keep complaining about not having a C
compiler due to funds, yet there is a free one out there.  I thought I saw
some messages recently talking about it being relatively up to date.

On Thu, Aug 4, 2011 at 3:17 PM, McKown, John
wrote:

> I'm too stupid to figure out how to install it. But that was a few years
> ago. It the z/OS version maintained? Or is it like other GNU software that
> gets on z/OS - out of date and not actively kept in sync with the Linux
> version.
>
> --
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets(r)
>
> 9151 Boulevard 26 * N. Richland Hills * TX 76010
> (817) 255-3225 phone *
> john.mck...@healthmarkets.com * www.HealthMarkets.com
>
> Confidentiality Notice: This e-mail message may contain confidential or
> proprietary information. If you are not the intended recipient, please
> contact the sender by reply e-mail and destroy all copies of the original
> message. HealthMarkets(r) is the brand name for products underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
> Life Insurance Company(r), Mid-West National Life Insurance Company of
> TennesseeSM and The MEGA Life and Health Insurance Company.SM
>
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
> > Sent: Thursday, August 04, 2011 2:10 PM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: Re: assembler help!
> >
> > John,
> >
> > Why not use GCC?
> >
> > On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
> > wrote:
> >
> > > But not at a cost of $0.00. We're still in "lock down"
> > mode. We seem to be
> > > doing better as a company, but there is still a push to
> > keep costs at a
> > > minimum. Some day, I may look at relicensing your C, C++,
> > and assembler for
> > > my home Linux system to do cross-compiles. I had them
> > licensed some years
> > > ago, but medical expenses and the death of my mother
> > totally destroyed my
> > > "disposable income". Most of my "joy of programming" is now
> > done on Linux
> > > using gratis tools. This is reinforced by the constant
> > pressure here to not
> > > use the mainframe "unnecessarily".
> > >
> > > --
> > > John McKown
> > > Systems Engineer IV
> > > IT
> > >
> > > Administrative Services Group
> > >
> > > HealthMarkets(r)
> > >
> > > 9151 Boulevard 26 * N. Richland Hills * TX 76010
> > > (817) 255-3225 phone *
> > > john.mck...@healthmarkets.com * www.HealthMarkets.com
> > >
> > > Confidentiality Notice: This e-mail message may contain
> > confidential or
> > > proprietary information. If you are not the intended
> > recipient, please
> > > contact the sender by reply e-mail and destroy all copies
> > of the original
> > > message. HealthMarkets(r) is the brand name for products
> > underwritten and
> > > issued by the insurance subsidiaries of HealthMarkets, Inc.
> > -The Chesapeake
> > > Life Insurance Company(r), Mid-West National Life Insurance
> > Company of
> > > TennesseeSM and The MEGA Life and Health Insurance Company.SM
> > >
> > >
> > >
> > > > -Original Message-
> > > > From: IBM Mainframe Discussion List
> > > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
> > > > Sent: Thursday, August 04, 2011 1:32 PM
> > > > To: IBM-MAIN@bama.ua.edu
> > > > Subject: Re: assembler help!
> > > >
> > > > McKown, John wrote:
> > > >
> > > > >NO Why? Because we're too cheap to license the C
> > > > compiler. We do have HLASM. Now, if they want to make the
> > > > C/C++ come for free, I'd jump for joy. We had a license at
> > > > one time. But a manager who was struggling to save his job
> > > > decided that eliminating all "non-critical" software was the
> > > > way to go. So the C license went. Followed shortly thereafter
> > > > by the manager.
> > > > >
> > > > >
> > > > >
> > > >
> > > > I think we could help you with that...
> > > >
> > > >  - Dave Rivers -
> > > >
> > > 

Re: assembler help!

[Jim Thomas]

Sir,

No such thing ... please do not put yourself down. If you need
assistance, please let me know and I'd be happy to try and help. 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of McKown, John
Sent: Thursday, August 04, 2011 2:18 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

I'm too stupid to figure out how to install it. But that was a few years
ago. It the z/OS version maintained? Or is it like other GNU software that
gets on z/OS - out of date and not actively kept in sync with the Linux
version.

--
John McKown 
Systems Engineer IV
IT

Administrative Services Group

HealthMarkets(r)

9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * 
john.mck...@healthmarkets.com * www.HealthMarkets.com

Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message. HealthMarkets(r) is the brand name for products underwritten and
issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
Life Insurance Company(r), Mid-West National Life Insurance Company of
TennesseeSM and The MEGA Life and Health Insurance Company.SM

 

> -Original Message-
> From: IBM Mainframe Discussion List 
> [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
> Sent: Thursday, August 04, 2011 2:10 PM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: assembler help!
> 
> John,
> 
> Why not use GCC?
> 
> On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
> wrote:
> 
> > But not at a cost of $0.00. We're still in "lock down" 
> mode. We seem to be
> > doing better as a company, but there is still a push to 
> keep costs at a
> > minimum. Some day, I may look at relicensing your C, C++, 
> and assembler for
> > my home Linux system to do cross-compiles. I had them 
> licensed some years
> > ago, but medical expenses and the death of my mother 
> totally destroyed my
> > "disposable income". Most of my "joy of programming" is now 
> done on Linux
> > using gratis tools. This is reinforced by the constant 
> pressure here to not
> > use the mainframe "unnecessarily".
> >
> > --
> > John McKown
> > Systems Engineer IV
> > IT
> >
> > Administrative Services Group
> >
> > HealthMarkets(r)
> >
> > 9151 Boulevard 26 * N. Richland Hills * TX 76010
> > (817) 255-3225 phone *
> > john.mck...@healthmarkets.com * www.HealthMarkets.com
> >
> > Confidentiality Notice: This e-mail message may contain 
> confidential or
> > proprietary information. If you are not the intended 
> recipient, please
> > contact the sender by reply e-mail and destroy all copies 
> of the original
> > message. HealthMarkets(r) is the brand name for products 
> underwritten and
> > issued by the insurance subsidiaries of HealthMarkets, Inc. 
> -The Chesapeake
> > Life Insurance Company(r), Mid-West National Life Insurance 
> Company of
> > TennesseeSM and The MEGA Life and Health Insurance Company.SM
> >
> >
> >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List
> > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
> > > Sent: Thursday, August 04, 2011 1:32 PM
> > > To: IBM-MAIN@bama.ua.edu
> > > Subject: Re: assembler help!
> > >
> > > McKown, John wrote:
> > >
> > > >NO Why? Because we're too cheap to license the C
> > > compiler. We do have HLASM. Now, if they want to make the
> > > C/C++ come for free, I'd jump for joy. We had a license at
> > > one time. But a manager who was struggling to save his job
> > > decided that eliminating all "non-critical" software was the
> > > way to go. So the C license went. Followed shortly thereafter
> > > by the manager.
> > > >
> > > >
> > > >
> > >
> > > I think we could help you with that...
> > >
> > >  - Dave Rivers -
> > >
> > > --
> > > riv...@dignus.comWork: (919) 676-0847
> > > Get your mainframe programming tools at http://www.dignus.com
> > >
> > > 
> --
> > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@bama.ua.edu with th

Re: assembler help!

[Jim Thomas]

Sir,

Forgive me ... I'm confused ... I don't see the connection. 
In fact, as far as I'm concerned ... why even bother with 
HLASM vs. sticking to straight good old fashioned tested and
true assembler ??. 

I'll have a 'rant' posted shortly. 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of john gilmore
Sent: Thursday, August 04, 2011 5:15 PM
To: IBM-MAIN@bama.ua.edu
Subject: assembler help!

It is clear from this and other examples we have seen here that 1) the
assembly-language sklls of most installation sysprogs under 50 are
rudimentary 2) IBM's maintenance of the HLASM interfaces to system services
has low priority and is deteriorating, chiefly because the PL/X interfaces
are the ones that its own programmers use.
 
I should like to see 1) exit samples written in PL/X and 2) release of the
PL/X translator for customer and ISV use in writing exits and the like.  

John Gilmore Ashland, MA 01721-1817 USA

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



-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1391 / Virus Database: 1518/3810 - Release Date: 08/04/11

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

Re: assembler help!

[Jim Thomas]

Ummm ... dare I say ... 'free products' mean that management 
(and CxO's) cannot justify their positions and cannot 'piss 
and moan' about costs ??.

:-)  

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Scott Rowe
Sent: Thursday, August 04, 2011 4:25 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

I can't help you with that question, since I don't use C myself.  I just
thought it was interesting that you keep complaining about not having a C
compiler due to funds, yet there is a free one out there.  I thought I saw
some messages recently talking about it being relatively up to date.

On Thu, Aug 4, 2011 at 3:17 PM, McKown, John
wrote:

> I'm too stupid to figure out how to install it. But that was a few years
> ago. It the z/OS version maintained? Or is it like other GNU software that
> gets on z/OS - out of date and not actively kept in sync with the Linux
> version.
>
> --
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets(r)
>
> 9151 Boulevard 26 * N. Richland Hills * TX 76010
> (817) 255-3225 phone *
> john.mck...@healthmarkets.com * www.HealthMarkets.com
>
> Confidentiality Notice: This e-mail message may contain confidential or
> proprietary information. If you are not the intended recipient, please
> contact the sender by reply e-mail and destroy all copies of the original
> message. HealthMarkets(r) is the brand name for products underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The
Chesapeake
> Life Insurance Company(r), Mid-West National Life Insurance Company of
> TennesseeSM and The MEGA Life and Health Insurance Company.SM
>
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Scott Rowe
> > Sent: Thursday, August 04, 2011 2:10 PM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: Re: assembler help!
> >
> > John,
> >
> > Why not use GCC?
> >
> > On Thu, Aug 4, 2011 at 2:44 PM, McKown, John
> > wrote:
> >
> > > But not at a cost of $0.00. We're still in "lock down"
> > mode. We seem to be
> > > doing better as a company, but there is still a push to
> > keep costs at a
> > > minimum. Some day, I may look at relicensing your C, C++,
> > and assembler for
> > > my home Linux system to do cross-compiles. I had them
> > licensed some years
> > > ago, but medical expenses and the death of my mother
> > totally destroyed my
> > > "disposable income". Most of my "joy of programming" is now
> > done on Linux
> > > using gratis tools. This is reinforced by the constant
> > pressure here to not
> > > use the mainframe "unnecessarily".
> > >
> > > --
> > > John McKown
> > > Systems Engineer IV
> > > IT
> > >
> > > Administrative Services Group
> > >
> > > HealthMarkets(r)
> > >
> > > 9151 Boulevard 26 * N. Richland Hills * TX 76010
> > > (817) 255-3225 phone *
> > > john.mck...@healthmarkets.com * www.HealthMarkets.com
> > >
> > > Confidentiality Notice: This e-mail message may contain
> > confidential or
> > > proprietary information. If you are not the intended
> > recipient, please
> > > contact the sender by reply e-mail and destroy all copies
> > of the original
> > > message. HealthMarkets(r) is the brand name for products
> > underwritten and
> > > issued by the insurance subsidiaries of HealthMarkets, Inc.
> > -The Chesapeake
> > > Life Insurance Company(r), Mid-West National Life Insurance
> > Company of
> > > TennesseeSM and The MEGA Life and Health Insurance Company.SM
> > >
> > >
> > >
> > > > -Original Message-
> > > > From: IBM Mainframe Discussion List
> > > > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas David Rivers
> > > > Sent: Thursday, August 04, 2011 1:32 PM
> > > > To: IBM-MAIN@bama.ua.edu
> > > > Subject: Re: assembler help!
> > > >
> > > > McKown, John wrote:
> > > >
> > > > >NO Why? Because we're too cheap to license the C
> > > > compiler. We do have HLASM. Now, if they want to make the
> > > > C/C++ come for free, I'd jump for joy. We had a license at
> > > &

Re: assembler help!

[Rick Fochtman]

-


In our IEFACTRT (accounting exit), an assembler program, it has the following 
commands:

L R2,PARMJOBC
 

   > R2 now contains PARMJOBC, 
X'0008'



ICM   R1,7,0(R2)
 

>  R1 now contains 
X'..zz', where .. are the origincal contents of R1 and zz are 
the contents of storage location X'0008'



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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: assembler help!

[Rick Fochtman]

I realize I'm not asking the smartest questions... PARMJOBC is an 
address and at that address is the value 0008 (I think). To be 
honest, I can't even figure out where it is getting PARMJOBC. I'm basing 
the assumption on the SMF record I dumped for the job that I ran that 
uses the exit.


If anyone is using IEFACTRT to do chargeback and is using multiple SMF30 
cpu type fields in the calculation(ie. SMF30ICU, SMF30IIP, 
SMF30_TIME_ON_IFA, etc...) I'd love to see how you did it. The 
production version only looks at SMF30CPT for job cpu time and I need to 
add in all the other CPU fields!

--
I'll send you a ZIP'ped copy of mine.

Rick

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

Re: assembler help!

[Jim Thomas]

Sir/s ... 

Forgive me ... I have a completely different take on this and again
forgive me if I'm about to 'rock the boat'. 

Why not 'train' them ?. 

I realize (and have seen the underlying 'supposed' 'business' reasons)
that some of our old timer skills are dwindling but .. I still do not
see that as a reason for everybody to insist (as I've said before) to
start making the mainframes look like the PC world. Unless of course,
IBM wants to start adding 'CTRL-ALT-DEL' to NIPCON and MSTR consoles. 

Please do not misunderstand ... it's not that I do not like 'C' per se.
In fact, I do like C for certain applications but I certainly do not like
the rest of the Visual crud. Of course, everybody wants top performance 
too right ??.. Even with C, you have a compiler that, IMHO, is not suitable
for true business needs ... why ... should we start talking about garbage 
collection, JAVA and such ??. Performance ??. 

To bring up another example, I seem to remember (back in a former lifetime 
while at Univ.) when I first learnt C, it was much easier... and any 
given 'C' application had but perhaps a .C and a .H file that one had to
worry about. This perhaps is still true (have not touched C in close to
three decades) but the rest of the variants certainly require more .xxx
files and maintenance. 

I've had many (far too many) an argument with non-mainframe folks that have
adamantly been opposed to the fact that we did not recompile our products
every two days  while I do understand their limited knowledge .. I 
personally don't want to promote them developing or maintaining MVS (or VM
or VSE or or or or). Further, as I've told each and every one of them,
verbatim,
I do not need to recompile or reassemble my product every day just to
justify
my job. In fact, this relates to 'SCRUM' and 'AGILE' and the rest of the 
buzzword nonsense does it not ??. By the .. SCRUM, taken from the old rugby
terms, mean (kinda) mass confusion (which is now seen) and agile... well,
I'll
let that one go for now. 

Another aspect that I see is the common complaint that 'oh .. we can't find
people with good z/OS sysprog and or z/OS assembler' skills. Is that really 
true ??. Or would it more so be that there are plenty of sales folks, be 
they be associated to the 'development' world, the 'consulting' world, the
PC
world or even and especially, the HR / recruitment world that wants to cough

up $60+/hr (in terms of consulting) or 90k+ (in terms of salary) for one
that 
has almost no experience on the mainframe so long as they know JAVA ... BUT
..
still keep looking for a Senior level developers or systems programmers,
with 
strong experience in MVS, VM, VSE, Linux, WINDOWS, VMS, and whatever else
have
you, all for a paltry $20/hr ??. If that's not bad enough, all the while ...

lopping off ten times as much for their own pockets.  

Invariably, when they cannot find anybody, their response to their
management 
and or the client is ... 'oh nobody knows MVS or assembler'. 

We already have a non-mainframe world that barely can survive with one that 
codes in just any ONE language or architecture. More so, from what I've
known,
it's usually a mix of multiple .. e.g. .. JAVA for DB2 ... is it JUST JAVA
??.
NO !!. We have a constant slew of buzz words that needs to be a tail to JAVA
do we not ??. How about the fact that most all (if not all) of these
recently
graduated genius's don't even know how to spell assembly (in the PC
environment
that is). 

IMHO, costs and everything else come thereafter. No offence meant to anybody
(and I'm being as honest as I can be) but .. I fear that currently,
stupidity 
reigns.

By the way ... if anyone of us had to have brain or heart surgery .. would
we 
want one that learnt how to perform surgery with JAVA simulations ??. By
that,
I mean this as a reference to 'Rapid Development' and 'Point And Click'
IDE's
which has taken over the data processing and even, engineering world. 
   

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Edward Jaffe
Sent: Thursday, August 04, 2011 1:41 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

On 8/4/2011 11:27 AM, McKown, John wrote:
> NO Why? Because we're too cheap to license the C compiler. We do have
HLASM. Now, if they want to make the C/C++ come for free, I'd jump for joy.
We had a license at one time. But a manager who was struggling to save his
job decided that eliminating all "non-critical" software was the way to go.
So the C license went. Followed shortly thereafter by the manager.

Sorry, John. Your answer m

Re: assembler help!

[Rick Fochtman]

-
NO Why? Because we're too cheap to license the C compiler. We do 
have HLASM. Now, if they want to make the C/C++ come for free, I'd jump 
for joy. We had a license at one time. But a manager who was struggling 
to save his job decided that eliminating all "non-critical" software was 
the way to go. So the C license went. Followed shortly thereafter by the 
manager.

---
IMHO, this is the desired fate for most managers of this mindset.

Rick

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

Re: assembler help!

[Ed Gould]

 Jim,

The ctrl-alt-delete in
 Window is the load option in our world.
We invented it, so Its quicker!  And faster.

Ed

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

Re: assembler help!

[Shmuel Metz (Seymour J.)]

In
<897c82fc69765d45a301af8f5d1210cb023ea55...@otb6mail01.executive.stateofwv.gov>,
on 08/04/2011
   at 09:02 AM, "Crabtree, Anne D"  said:

>ICM   R1,7,0(R2)

>If PARMJOBC contains a binary integer length of 4 with 00 00 00 08,
>what ends up in all bits of R1? 

Bits 0-7 unchanged, bits 8-31 the contents of locations 8-10.

>This is not doing what I want it to do!
 
What do you expect? What do you get?

>If SMF30CPS, also a binary integer length of 4, has 00 00 00 01, 
>what ends up in R1?

Bits 0-7 unchanged or incremented by one, bits 24 1 more than the
contents of locations 8-10.


>Prior to the L R2,PARMJOBC, there is a LR  R1,R1 which zeroes out R1
>right?

No, it's a no-op. SLR, SR or XR would zero the register.

>So, does R1 have data in it or an address?

Data.

>I was assuming that R1 had data in it (with leading zeroes and 8 on
>the end)

You showed 08 at the end of the operand of the load, not the operand
of the ICM.

>How can I do that if not the way I tried (ICM followed by the MVC
>and A)?

That was correct, but you could have used just an A.
 
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: assembler help!

[Shmuel Metz (Seymour J.)]

In
,
on 08/04/2011
   at 09:16 AM, "Barkow, Eileen"  said:

>A mask of 7 loads the low order 3 bytes, so that r1 would contain
>whatever the high order byte it contained originally plus 08 

No; R1 would contain whatever high order byte it contained originally
plus the three bytes at location 08.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: assembler help!

[Shmuel Metz (Seymour J.)]

In , on 08/04/2011
   at 01:28 PM, "Robert A. Rosenberg"  said:

>That depends on what the person's job function is supposed to be. If 
>it is to maintain system exits, an adequate knowledge of assembler 
>language skills (or at least enough reading comprehension to 
>understand the PoP manual's descriptions of the use and function of 
>the individual instructions) would seem to me to be all that is 
>required (aside from knowing what the different exits are supposed to
> do and when they get invoked).

You also need knowledge of the system services used by the exits.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see <http://patriot.net/~shmuel/resume/brief.html> 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: assembler help!

[Shmuel Metz (Seymour J.)]

In ,
on 08/04/2011
   at 11:03 AM, "van der Grijn, Bart (B)"  said:

>I believe Anne mentioned something about PARMJOBC containing the
>address to a field with x0..08, rather than the actual value. 

Even if she meant that it contained the address of 00 00 00 08, the
ICM would not load a value of 8, but rather 0. Is it possible that
PARMJOBC was the address of 00 00 08?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: assembler help!

[Shmuel Metz (Seymour J.)]

In
<897c82fc69765d45a301af8f5d1210cb023ea55...@otb6mail01.executive.stateofwv.gov>,
on 08/04/2011
   at 10:20 AM, "Crabtree, Anne D"  said:

>I realize I'm not asking the smartest questions...  PARMJOBC is an
>address and at that address is the value 0008 (I think). 

If PARMJOBC is supposed to contain an address then a value of 00 00 00
08 is implausible.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: assembler help!

[Jim Thomas]

Sir,

Forgive me, I honestly did not mean to insult you. 

In fact, I concur with you, only, I meant that to bring 
up the topic of how MVS is put down constantly and if we
have to take an outage, we have (just about) hell to pay
but by the same token, if you have to reboot a server ...
it's just not a big deal. 


By the by  FWIW .. my rant actually goes well beyond
MVS vs. the non-MVS world. 

Kind Regards

Jim Thomas
617-233-4130 (mobile)
636-294-1014(res)
j...@thethomasresidence.us (Email)


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Ed Gould
Sent: Thursday, August 04, 2011 6:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: assembler help!

 Jim,

The ctrl-alt-delete in
 Window is the load option in our world.
We invented it, so Its quicker!  And faster.

Ed

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



-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1391 / Virus Database: 1518/3810 - Release Date: 08/04/11

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

Re: assembler help!

[Shmuel Metz (Seymour J.)]

In <01a401cc52f5$570e93a0$052bbae0$@us>, on 08/04/2011
   at 05:24 PM, Jim Thomas  said:

>Forgive me ... I'm confused ... I don't see the connection.  In fact,
>as far as I'm concerned ... why even bother with  HLASM vs. sticking
>to straight good old fashioned tested and true assembler ??.

SOAP2? SAP? HLASM is the currently supported assembler i MVS, and has
been for quite some time.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see <http://patriot.net/~shmuel/resume/brief.html> 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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