Re: [MI400] Job Name

["Leif Svalgaard" <leif@xxxxxxxx>]

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