01 records start on a double word boundary x'0' or x'8' as the last digit. 77 independent items are sorted by multiple of 8 byte items, 4 bytes items, 2 bytes items, odd number of bytes items.
On Mon, Jul 6, 2020 at 10:00 AM Binyamin Dissen <bdis...@dissensoftware.com> wrote: > > Then one wonders what "aligned" means to you. > > On Mon, 6 Jul 2020 02:37:22 +0000 "Gibney, Dave" <gib...@wsu.edu> wrote: > > :>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 > > -- > Binyamin Dissen <bdis...@dissensoftware.com> > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN