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>
> :>> 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
> :>>
> :>
> :>----------------------------------------------------------------------
> :>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
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
