From: <Bobby.Hicks@ccc-michigan.com>
> Your PCO method is the way I'd like to go.  I was using the BASPCO and I
> got errors when I tried to subtract x20 from the offset.
>

ah, but you shouldn't actually subtract anything except from the offset
I gave you:
000AE0  00000000 00000000  00000000 00000000    ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ
000AF0  00000000 D8D7C1C4  C5E5F0F0 F0F6D3E2    ˇˇˇˇQPADEV0006LS

that is the AF4 (which is from the start of the segment) should be
AD4 (from the start of the PCO that begins at x20 within the segment)

So:

DCL SPCPTR .PCO BASPCO;
DCL DD PCO BAS(.PCO);
DCL DD JOB CHAR(20) DEF(PCO) POS(2773);

where 2772 = xAD4 = xAF4-x20



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.