There is an assembler language news group you might try IBM Mainframe Assembler List <[email protected]>
I rarely find an S0C4 abend during assembler processing. I would review the Assembler Language guide and make sure you have the correct JCL for your environment. ASMA90 should not get an S0C4 unless you have incorrect JCL. Also verify the parms you need to pass. This JCL does not look valid. This is the proc I use for my assemblies. //ASMLKED PROC MEMBER=,M=,MBR=, // AP='DECK,NOOBJECT,TERM,RENT,ALIGN,XREF(SHORT)', // LP='LIST,LET,RENT,REUS,REFR,MAP', // SRCLIB=,LOADLIB= //ASM EXEC PGM=ASMA90, // PARM='&AP.' //SYSLIB DD DISP=SHR,DSN=&SRCLIB, // DCB=BLKSIZE=32720 // DD DSN=SYS1.MACLIB,DISP=SHR // DD DISP=SHR,DSN=TSO.LK41591.INSTASM.SRCPDS // DD DSN=SYS1.MODGEN,DISP=SHR // DD DISP=SHR,DSN=SYS1.ASM.SASMMAC1 // DD DISP=SHR,DSN=SYS1.ASM.SASMMAC2 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(50,20)) //SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(50,20)) //SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(50,20)) //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSPUNCH DD DISP=SHR,DSN=TSO.LK41591.PDF.OBJDSET(&M&MBR&MEMBER) //SYSLIN DD DISP=SHR,DSN=TSO.LK41591.PDF.OBJDSET(&M&MBR&MEMBER) //OBJECT DD DISP=SHR,DSN=TSO.LK41591.PDF.OBJDSET(&M&MBR&MEMBER) //SYSIN DD DSN=&SRCLIB(&M&MBR&MEMBER),DISP=SHR //LKED EXEC PGM=IEWL,COND=(5,LT), // PARM='&LP.' //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(50,20)) //SYSLMOD DD DSN=&LOADLIB(&M&MBR&MEMBER),DISP=SHR //OBJDSET DD DISP=SHR,DSN=TSO.LK41591.PDF.OBJDSET Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of > MONTERO ROMERO, ENRIQUE ELOI > Sent: Tuesday, May 10, 2011 10:26 AM > To: [email protected] > Subject: S0C4-04 Assembler > > Hi to all, > > More than 20 years that i did not code assembler. So I want to wake up my neurons > with a simple program. It writes an string to an output dataset. > > Here is the code i use to "assembly & Linkedit it" > > //PROGRAMA JOB MSGCLASS=X,MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID > //ASM EXEC PGM=ASMA90 > //SYSPRINT DD SYSOUT=* > //SYSTERM DD SYSOUT=* > //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR > //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,1)) > //SYSLIN DD DSN=&&OBJ,UNIT=SYSDA, > // SPACE=(CYL,(1,1)),DISP=(,PASS) > //SYSIN DD * > ASSHELLO CSECT > BALR 12,0 PREPARE A BASE REGISTER > USING *,12 ESTABLISH BASE REGISTER > * > * WTO 'TEST' THIS WORKED > OPEN (SALIDA,(OUTPUT)) > PUT SALIDA,HELLOMSG > CLOSE (SALIDA) > * > LA R15,0 * SET RETURN-CODE TO ZERO > BR 14 * RETURN TO CALLER > R0 EQU 0 > R1 EQU 1 > R2 EQU 2 > R3 EQU 3 > R4 EQU 4 > R5 EQU 5 > R6 EQU 6 > R7 EQU 7 > R8 EQU 8 > R9 EQU 9 > R10 EQU 10 > R11 EQU 11 > R12 EQU 12 > R13 EQU 13 > R14 EQU 14 > R15 EQU 15 > HELLOMSG DC C'I AM AN OLD FREAK' > SALIDA DCB DSORG=PS,MACRF=PM,DDNAME=SALIDA, X > RECFM=FB,LRECL=80,BLKSIZE=80 > END > /* > //LKED EXEC PGM=IEWL,PARM='LIST,XREF,RENT,REUS,REFR',COND=(0,NE) > //SYSPRINT DD SYSOUT=* > //SYSLMOD DD DSN=MYLIB.LINKLIB(ASSHELLO),DISP=SHR > //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,1)) > //SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) > //* > > > This other job to RUN it. > > //PROGRAMA JOB MSGCLASS=X,MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID > //JOBLIB DD DSN=MYLIB.LINKLIB,DISP=SHR > //ASSHELLO EXEC PGM=ASSHELLO > //SALIDA DD DSN=MYLIB.SALIDA,DISP=(NEW,CATLG,DELETE), > // SPACE=(TRK,(1,1)), > // DCB=(LRECL=80,BLKSIZE=80,RECFM=FB) > > > > ... BUT ... > > It abends with SC04-04, i think that is something wrong with the DCB but i am not > shure. > > SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004 > TIME=11.01.24 SEQ=00029 CPU=0000 ASID=0024 > PSW AT TIME OF ERROR 078C0000 80DFFE9C ILC 4 INTC 04 > NO ACTIVE MODULE FOUND > NAME=UNKNOWN > DATA AT PSW 00DFFE96 - 42389601 B030B20A 00509601 > GR 0: 008D1301 1: 008D13F0 > 2: 008D1390 3: 00000000 > 4: 008D1410 5: 00DFF0A0 > 6: 008D17A4 7: 00000020 > 8: 008D176C 9: 008D174C > A: 008D179C B: 00007FA0 > C: 000000FE D: 00000002 > E: 00DCF6AC F: 008D16D0 > END OF SYMPTOM DUMP > > > > Some suggestion on how to solve this abend.? > > best regards. > > Enrique Montero > > > > > Enrique Montero > ---------------------------------------------------------------------- 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
