Actually, it is. But, BLA-2 below is still offset 3 bytes from BLA-RECORD because BLA-1 is only 3 bytes long
> -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On > Behalf Of Joe Monk > Sent: Sunday, July 05, 2020 4:38 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: Assembler question > > 01 BLA-RECORD. > 05 BLA-RECORD PIC X(4). > 05 BLA-RECOR2 REDEFINES BLA-RECORD PIC X(3). > > The 01 is aligned. > The 05 is aligned. > The second 05 is not aligned. > > Joe > > > On Sun, Jul 5, 2020 at 6:27 PM Binyamin Dissen > <bdis...@dissensoftware.com> > wrote: > > > 01 BLA-RECORD. > > 05 BLA-1 PIC X(3). > > 05 BLA-2 PIC S9(8) COMP. > > > > Do you truly wish to assert that BLA-2 is aligned? > > > > On Sun, 5 Jul 2020 17:45:37 -0500 Joe Monk <joemon...@gmail.com> > wrote: > > > > :>"Subordinate items are not aligned" > > :> > > :>yeah, no. > > :> > > :>If an 01 is aligned, then the subordinate 05 under the 01 is also > > aligned. > > :>It has to be this way because of REDEFINES. I cant REDEFINE an unaligned > > :>item into an aligned item. > > :> > > :>77 are aligned because they are standalone, i.e. no grouping. > > :> > > :>Joe > > :> > > :>On Sun, Jul 5, 2020 at 12:07 PM Binyamin Dissen < > > bdis...@dissensoftware.com> > > :>wrote: > > :> > > :>> On Sun, 5 Jul 2020 11:31:55 -0500 Joe Monk > <joemon...@gmail.com> > > wrote: > > :>> > > :>> :>Cobol has alignment too. You just dont see it. > > :>> > > :>> :>All storage is aligned. > > :>> > > :>> The opposite is true. > > :>> > > :>> Group (01/77) are aligned. > > :>> > > :>> Subordinate items are not aligned unless the SYNC clause is specified. > > :>> > > :>> :>On Sun, Jul 5, 2020 at 10:24 AM Nguyen Dt <ndt....@gmail.com> > wrote: > > :>> :> > > :>> :>> Thank you all for your inputs, > > :>> :>> > > :>> :>> I am over the problem now. > > :>> :>> In fact what i tried to do is to Move some fields to my output > > fields > > :>> and > > :>> :>> then write it as a report. (It is a Db2 performance report, the > > input > > :>> are > > :>> :>> from the trace buffers with the macros given by Db2 libraries) > > :>> :>> > > :>> :>> So my program is roughly like this > > :>> :>> READ Buffer on QW... variables > > :>> :>> > > :>> :>> MVC OW...,QW... > > :>> :>> > > :>> :>> > > :>> :>> OW... are the output fields i defined it exactly as in the DSECT > > got > > :>> from > > :>> :>> the macros. > > :>> :>> As it is an output field, the position is important (and it is > > why i > > :>> :>> detected a problem in the positions of my fields) > > :>> :>> Its is OK now with OW... variables defined as characters CLx > > :>> :>> > > :>> :>> (PS: When i use NOALIGN , the program abends at execution ...) > > :>> :>> > > :>> :>> As i learn assembler "on the flight" , there is some important > > things > > :>> that > > :>> :>> i don' t understand , such as the alignment .... This is something > > we > > :>> don't > > :>> :>> care in cobol , rexx .... Can you tell me why assembler has the > > :>> alignment > > :>> :>> in words that are easy to understand and visualize in my little > > head ? > > :>> :>> > > :>> :>> Thank you again. > > :>> :>> Duc > > :>> :>> > > :>> :>> > > ---------------------------------------------------------------------- > > :>> :>> For IBM-MAIN subscribe / signoff / archive access instructions, > > :>> :>> send email to lists...@listserv.ua.edu with the message: INFO > > IBM-MAIN > > :>> :>> > > :>> :> > > :>> > > :>---------------------------------------------------------------------- > > :>> :>For IBM-MAIN subscribe / signoff / archive access instructions, > > :>> :>send email to lists...@listserv.ua.edu with the message: INFO > > IBM-MAIN > > :>> > > :>> -- > > :>> Binyamin Dissen <bdis...@dissensoftware.com> > > :>> > https://urldefense.com/v3/__http://www.dissensoftware.com__;!!JmPEgB > Y0HMszNaDT!7ukskajmEkP2Tw5Qn2mOs09XgC2ntfEiGwVNOOJGqpAatAQH > HBNyvR7NRY-FTg$ > > :>> > > :>> 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 lists...@listserv.ua.edu with the message: INFO IBM- > MAIN > > :>> > > :> > > :>---------------------------------------------------------------------- > > :>For IBM-MAIN subscribe / signoff / archive access instructions, > > :>send email to lists...@listserv.ua.edu with the message: INFO IBM- > MAIN > > > > -- > > Binyamin Dissen <bdis...@dissensoftware.com> > > > https://urldefense.com/v3/__http://www.dissensoftware.com__;!!JmPEgB > Y0HMszNaDT!7ukskajmEkP2Tw5Qn2mOs09XgC2ntfEiGwVNOOJGqpAatAQH > HBNyvR7NRY-FTg$ > > > > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
