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
