Then one wonders what "aligned" means to you. On Mon, 6 Jul 2020 02:37:22 +0000 "Gibney, Dave" <[email protected]> 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 <[email protected]> On :>> Behalf Of Joe Monk :>> Sent: Sunday, July 05, 2020 4:38 PM :>> To: [email protected] :>> 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 :>> <[email protected]> :>> 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 <[email protected]> :>> 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 < :>> > [email protected]> :>> > :>wrote: :>> > :> :>> > :>> On Sun, 5 Jul 2020 11:31:55 -0500 Joe Monk :>> <[email protected]> :>> > 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 <[email protected]> :>> 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 [email protected] with the message: INFO :>> > IBM-MAIN :>> > :>> :>> :>> > :>> :> :>> > :>> :>> > :>---------------------------------------------------------------------- :>> > :>> :>For IBM-MAIN subscribe / signoff / archive access instructions, :>> > :>> :>send email to [email protected] with the message: INFO :>> > IBM-MAIN :>> > :>> :>> > :>> -- :>> > :>> Binyamin Dissen <[email protected]> :>> > :>> :>> 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 [email protected] with the message: INFO IBM- :>> MAIN :>> > :>> :>> > :> :>> > :>---------------------------------------------------------------------- :>> > :>For IBM-MAIN subscribe / signoff / archive access instructions, :>> > :>send email to [email protected] with the message: INFO IBM- :>> MAIN :>> > :>> > -- :>> > Binyamin Dissen <[email protected]> :>> > :>> 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 [email protected] with the message: INFO IBM-MAIN :>> > :>> :>> ---------------------------------------------------------------------- :>> For IBM-MAIN subscribe / signoff / archive access instructions, :>> send email to [email protected] with the message: INFO IBM-MAIN :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to [email protected] with the message: INFO IBM-MAIN -- Binyamin Dissen <[email protected]> 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 [email protected] with the message: INFO IBM-MAIN
