Greetings:
The shop that I work at is preparing to start using PDSE's. Thus, I am trying to use CBT234 which is Dick Thorton's DISASSEMBLER which supports PDSE's off of the CBT tape. I am trying to run member EXECJCL6. When I run member EXECJCL6, I end up getting a SOC4 at OFFSET 18A in module REBUILD. Can anyone assist me in what I might be doing wrong here that may have already encountered this problem or has successfully installed CBT234 already? It bears mentioning that I have tried creating my loadlib as both a PDS and a PDSE and I still end up with the same abend in member EXECJCL6. It also bears mentioning that when I assembled and linked DISTEST using member ASMLKED5 I got a CC=4 in both the C and L Procsteps. Below, you will find my customized JCL for member EXECJCL6. //TAGADASS JOB (B1-$$$$$-0371,AGA),'KEITH.HESSONG',CLASS=E, // REGION=4M,MSGCLASS=H,NOTIFY=ROS1AGA //SCRATCH EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE SYS7.AGA.DISASSEM SET MAXCC=0 //* //* //RESOURCE EXEC PGM=RESOURCE,PARM=(FLTPT,SUPVR) <==WANT FLOATPT,PRIV //STEPLIB DD DSN=SYS7.AGA.CBT234.PDSELIB,DISP=SHR //SYSUDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=SYS7.AGA.CBT234.PDSELIB,DISP=SHR //SYSOUT DD DSN=SYS7.AGA.DISASSEM,DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(15,5),RLSE), // DCB=(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 Thanks, Keith Hessong (317) 715-7681 This e-mail, including attachments, may include confidential and/or proprietary information, and may be used only by the person or entity to which it is addressed. If the reader of this e-mail is not the intended recipient or his or her authorized agent, the reader is hereby notified that any dissemination, distribution or copying of this e-mail is prohibited. If you have received this e-mail in error, please notify the sender by replying to this message and delete this e-mail immediately. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
