On Sun, 4 Nov 2018 20:06:17 -0500, Joseph Reichman <reichman...@gmail.com> wrote:
>Here is it is > >Thanks > >SETRP RC=4,RETREGS=YES,RETADDR=(R4),FRESDWA=YES,DUMP=YES, X 306 > RECORD=YES,RUB=(R3),DUMPOPX=SNAPL 307 > >SNAPL SNAPX DCB=*-*,PDATA=ALL,SDATA=LSQA,LIST=(R7),STRHDR=L1 > > CNOP 0,4 > 01-SNAPX >The DCB is the last parameter so I guess SETRP will ignore it > >SNAPL BAL 1,IHB0010 BRANCH AROUND PARAM LIST > DC AL1(0) ID NUMBER > DC AL1(115) OPTION FLAGS > DC AL1(133) OPTIONS FLAG 2 > DC AL1(1) VERSION NUMBER > DC AL1(32) SDATA FLAGS ONE > DC AL1(0) SDATA FLAGS TWO > DC AL1(191) PDATA FLAGS > DC AL1(0) RESERVED > DC A(*-*) DCB ADDRESS I don't see anything in that expansion saving R7 anywhere. -- Walt