🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #1038

Re: ICM - Set Condition Code?

#1038
From: Bal Oberoi
Date: Sat, 13 Jun 1998 00:00
31 lines
1872 bytes
In the context of checking a field for possible binary zeros:
Bill Lynch wrote:
 
> <snip> I suspect I stopped using [NC] when I started coding CICS 
> command-level. I think it's much neater & more readable to code:
> 
>         ICM   COMMAREA_BASE,15,EIBCALEN
>         BZ    NO_COMMAREA
>         USING COMMAREA,COMMAREA_BASE
>         ...
> 
> where "COMMAREA_BASE" is equated to a GPR.
> 

That's certainly an improvement!  Just a typo that needs correction.  

For the benefit of folks who don't do much CICS coding in Assembler, it  
ought to be pointed out that EIBCALEN is a halfword field that holds 
the *length* of CommArea. In coding the above example the field you had 
in mind was doubtless DFHEICAP, a fullword field with the *address* of 
the Communication Area.  

Regards,
Bal
----- 
oberoi@ibm.net
http://www.geocities.com/~oberoi/mainfrme.html
-----
"The universe is full of magical things, 
patiently waiting for our wits to grow sharper." - Eden Phillpotts
Technical Details
Message-ID: <35829FD1.599A@ibm.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <35813ff8.1615673@news.apk.net> <MPG.feb3b9a787605e59896a1@news.erols.com> <6ls0qo$152@ux.cs.niu.edu> <6lsnq3$4p3@bgtnsc03.worldnet.att.net>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10f713,61b6316cd59f6c3a,start
X-Google-Attributes: gid10f713,public
X-Google-Thread: f8131,288e8e2a40517644
X-Google-Attributes: gidf8131,public
From: Bal Oberoi <oberoi@ibm.net>
Subject: Re: ICM - Set Condition Code?
Date: 1998/06/13
Message-ID: <35829FD1.599A@ibm.net>
X-Deja-AN: 362324949
Content-Transfer-Encoding: 7bit
References: <35813ff8.1615673@news.apk.net> <MPG.feb3b9a787605e59896a1@news.erols.com> <6ls0qo$152@ux.cs.niu.edu> <6lsnq3$4p3@bgtnsc03.worldnet.att.net>
X-Notice: should be reported to postmaster@ibm.net
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: postmaster@ibm.net
X-Trace: 13 Jun 1998 15:50:53 GMT, 198.133.30.19
Organization: Allendale Insurance
MIME-Version: 1.0
Reply-To: oberoi@ibm.net
Newsgroups: comp.lang.asm370,bit.listserv.cics-l