Article View: comp.lang.asm370
Article #1038Re: ICM - Set Condition Code?
From: Bal Oberoi
Date: Sat, 13 Jun 1998 00:00
Date: Sat, 13 Jun 1998 00:00
31 lines
1872 bytes
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-mailReferences:
<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