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.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.