hello,
I had the same problem and fixed it. thre is a problem in the STORAGE
OBTAIN in the RESOURCE module :
Original :
*********************************************************************
* GET STORAGE FOR TABLES AND OPEN FILES FOR PROCESSING *
*********************************************************************
GETSTOR STORAGE OBTAIN,LENGTH=LBLTBEND,LOC=ANY GET LABEL STORAGE
ST R1,LBLTBADR SAVE THE GOTTEN ADDRESS
A R1,LBLTBEND SAVE THE
ST R1,LBLTBEND TABLE END ADDRESS
Changed to :
*********************************************************************
* PREPARE REGS BEFORE ISSUEING STORAGE OBTAIN *
*********************************************************************
GETSTOR ST R10,LBLTBR10 SAVE R10 BEFORE OBTAIN
ST R11,LBLTBR11 SAVE R11 BEFORE OBTAIN
L R10,LBLTBXXX MAX LENGTH IN R10
L R11,LBLTBEND MIN LENGTH IN R11
*********************************************************************
* GET STORAGE FOR TABLES AND OPEN FILES FOR PROCESSING *
*********************************************************************
XETSTOR STORAGE
OBTAIN,LOC=ANY,RTCD=MYRC,COND=NO,CHECKZERO=YES, X
LENGTH=((R10),(R11))
ST R0,LBLTBZZZ SAVE THE LENGTH OF GOTTEN
ST R1,LBLTBYYY SAVE THE GOTTEN ADDRESS
ST R1,LBLTBADR SAVE THE GOTTEN ADDRESS
A R1,LBLTBEND SAVE THE
ST R1,LBLTBEND TABLE END ADDRESS
*********************************************************************
* RESTORE REGS AFTER ISSUEING STORAGE OBTAIN *
*********************************************************************
L R10,LBLTBR10 RESTORE R10
L R11,LBLTBR11 RESTORE R11
Also add some fields under STORAGE AND FILE AREAS :
*********************************************************************
* STORAGE AND FILE AREAS *
*********************************************************************
MYRC DS F DOUBLEWORD WORK AREA
LBLTBXXX DC A(32800*L'LBLENTRY) SIZR OF 32,800 ENTRIES
LBLTBYYY DS F ADDR OF GOTTEN AREA
LBLTBZZZ DS F LENGTH OF GOTTEN AREA
LBLTBR10 DS F SAVE AREA FOR R10
LBLTBR11 DS F SAVE AREA FOR R11


And it works....!
--- In cbt-tape@yahoogroups.com, John P Kalinich <jkalinic@...> wrote:
>
>
>
>
>
> When I run Dick Thorton's new disassembler (CBT file 234), I get a
S0C4
> abend. Has anyone run this disassembler successfully?
>
> Regards,
> John Kalinich
> Computer Sciences Corp
>
>
> //RESOURCE EXEC PGM=RESOURCE,PARM=(FLTPT,SUPVR) <==WANT
FLOATPT,PRIV
> //STEPLIB DD DSN=AD.CMDLIB,DISP=SHR
> //SYSUDUMP DD SYSOUT=*
> //SYSPRINT DD SYSOUT=*
> //SYSLIB DD DSN=AD.CMDLIB,DISP=SHR
> //SYSOUT DD DSN=TRIDJK.DEL.DISTEST.ASM,DISP=(NEW,CATLG,DELETE),
> // UNIT=DISK,SPACE=(TRK,(15,5),RLSE),
> // DSORG=PS,RECFM=FB,LRECL=80
> //SYSIN DD *
> DISTEST DISTEST
> DATA 000020 00007F
> DATA 0002C8 00057F
> USING 000000 000006 F 000000
> USING 000006 3 000000
> ULABL SAVEAREA 000038 072
> ULABL MYLBL90 000090 002
> ULABL MYLBL12C 00012C 004
> ULABL MYLBL2CA 0002CA 002
> ULABL NOLBL34C 00034C 004
> ULABL NOLBL384 000384 004
>
>
> - DSN=AD.CMDLIB,VOL=SER=PERM69 MEM=(DISTEST ---------
> >at * short
> NAME ALIASOF CREATED SIZE SSI ATTRIBUTES
> DISTEST 05/12/28 1456 R24, AANY
> READLMOD 05/12/28 2928 R24, A31
> REBUILD 05/12/28 10288 R24, A31
> RESOURCE 05/12/28 15656 R24, A31
> 4 MEMBERS RMODE24; SIZE IS 30K
>
>
> (See attached file: rebuild s0c4.txt)
>