Article View: bit.listserv.asm370
Article #70Re: Help with a code problem
From: Gerhard Postpischil
Date: Sat, 08 Oct 2005 04:34
Date: Sat, 08 Oct 2005 04:34
47 lines
3381 bytes
3381 bytes
Scott McFall wrote:
> Hi Assembler Gurus,
>
> My colleague Bob Stark asked me to float a problem he's currently
> experiencing on an account 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
> bstark@protechpts.com?
In the past I've used a different approach. If you can, don't use a
half-word length, but a BXLE DC. Having a GRP$ macro for each user id
makes the deck a little longer, but much easier to maintain. I haven't
tried to write a macro, but the code is straight-forward. Use a global
array for each group name, and a counter for the number of defined
groups, and an integer for the current group name, or a character
variable with the current name.
GRP$ userid,GROUP=xyz
CSGRP001 CSECT ,
DC CL8'userid'
primary CSECT ,
GRP$ user2 defaults to prior group
CSGRP001 CSECT ,
DC CL8'user2'
primary CSECT ,
GRP$ user3,GROUP=rst start new group
CSGRP002 CSECT , new CSECT for new group
DC CL8'user3'
primary CSECT ,
GRP$ user4,GROUP=xyz allow intermixed groups
CSGRP001 CSECT ,
DC CL8'user4'
primary CSECT ,
...
table GRP$ *END* trigger the appropriate pointer expansions
CSGRP001 CSECT ,
CSEND001 EQU *
CSGRP002 CSECT ,
CSEND002 EQU *
primary CSECT ,
table DC A(CSGRP001,8,CSEND001-8),CL8'xyz '
DC A(CSGRP002,8,CSEND002-8),cl8'rst '
DC A(0,8,0) end of groups
Gerhard Postpischil
Bradford, VT
Technical Details
Message-ID:
<43474C5E.6060900@valley.net>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!atl-c02.usenetserver.com!news.usenetserver.com!atl-c06.usenetserver.com!news.usenetserver.com!news.tele.dk!news.tele.dk!small.news.tele.dk!sn-xit-03!sn-xit-10!sn-xit-01!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!valley.net!gerhardReferences:
<6.2.1.2.0.20051007152208.08b3c5b0@mx1.protechpts.com>Show Full Headers
Complete Article Headers
X-Google-Thread: fcdcb,3ec2dbadd23f826c
X-Google-Attributes: gidfcdcb,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!atl-c02.usenetserver.com!news.usenetserver.com!atl-c06.usenetserver.com!news.usenetserver.com!news.tele.dk!news.tele.dk!small.news.tele.dk!sn-xit-03!sn-xit-10!sn-xit-01!sn-xit-14!supernews.com!149.173.6.116.MISMATCH!foggy!vm.sas.com!valley.net!gerhard
From: Gerhard Postpischil <gerhard@valley.net>
Newsgroups: bit.listserv.asm370
Subject: Re: Help with a code problem
Date: Sat, 8 Oct 2005 00:34:38 -0400
Organization: SAS Inc.
Lines: 50
Sender: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU>
Message-ID: <43474C5E.6060900@valley.net>
References: <6.2.1.2.0.20051007152208.08b3c5b0@mx1.protechpts.com>
NNTP-Posting-Host: mozart.unx.sas.com
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: foggy.unx.sas.com 1128746266 29712 10.19.150.41 (8 Oct 2005 04:37:46 GMT)
X-Complaints-To: usenet@unx.sas.com
NNTP-Posting-Date: Sat, 8 Oct 2005 04:37:46 +0000 (UTC)
Comments: Gated by NETNEWS@VM.SAS.COM
Return-Path: <owner-assembler-list@LISTSERV.UGA.EDU>
User-Agent: Mozilla Thunderbird 1.0.2 (Windows/20050317)
X-Accept-Language: en-us, en
Approved-By: Gerhard Postpischil <gerhard@VALLEY.NET>
Comments: To: bstark@protechpts.com
In-Reply-To: <6.2.1.2.0.20051007152208.08b3c5b0@mx1.protechpts.com>
Return-Path: owner-assembler-list@LISTSERV.UGA.EDU
X-OriginalArrivalTime: 08 Oct 2005 04:37:44.0503 (UTC)
FILETIME=[069DDC70:01C5CBC2]
Originator: daemon@mozart.unx.sas.com