Example HLASM "Hello World"assembler program run on IBM Z Xplore z/OS mainframe via JCL with inline source code

[d...@higgins.net]

All

 

Example HLASM "Hello World"assembler program run on IBM Z Xplore z/OS mainframe via JCL with inline source code.

 

Don Higgins

d...@higgins.net

www.don-higgins.net

 

[raymond le roux]

Hello 

I've tried to run hello world assember program but I got rc 20 in step asma90

1 //HELLOWOR  JOB EI000,
//             ASM,
//             CLASS=J,
//             NOTIFY=&SYSUID,
//             MSGCLASS=Z,
//   TIME=(000002,00)                      <=== EXIT52-AGF TIM
//*https://groups.google.com/g/z390/c/pYSz-f4BQTM
IEFC653I SUBSTITUTION JCL - EI000,ASM,CLASS=J,NOTIFY=LEROUXR,M
2 //MYLIB JCLLIB ORDER=(&SYSUID..BIBMVS.DATA,
//      &SYSUID..BIBASM.DATA,
//      SYSL.ZOS.L086.ASM.SASMSAM1,
//      SYSL.ZOS.L086.CBC.SCCNPRC,
//      SYS1.SACBCNTL)
//*ASMCLG JOB
IEFC653I SUBSTITUTION JCL - ORDER=(LEROUXR.BIBMVS.DATA,LEROUXR
SYSL.ZOS.L086.CBC.SCCNPRC,SYS1.SACBCNTL)
3 //ASM      EXEC PGM=ASMA90
4 //SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
5 //SYSUT1   DD  DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND),
//             UNIT=SYSALLDA,DCB=BUFNO=1
6 //SYSPRINT DD  SYSOUT=*
7 //SYSLIN   DD  DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND),
//             UNIT=SYSALLDA,DISP=(NEW,PASS),
//             DCB=(BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1)
8 //SYSIN  DD *
9 //SUCCESS IF RC < 8 THEN
10 //LKED    EXEC PGM=IEWBLINK,REGION=0M

11 //SYSPRINT DD  SYSOUT=*

12 //SYSLIN   DD  DSNAME=&&OBJ,DISP=(OLD,DELETE)
13 //         DD  DDNAME=SYSIN
14 //SYSLMOD DD DSN=&SYSUID..BIBMVS.LOAD(ASMCLG),DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=LEROUXR.BIBMVS.LOAD(ASMCLG),DI
15 //CEEDUMP  DD DUMMY
16 //SYSUDUMP DD DUMMY
17 //        ENDIF
//***************************************************/
18 // IF RC = 0 THEN
//***************************************************/
19 //RUN     EXEC PGM=ASMCLG
20 //STEPLIB   DD DSN=&SYSUID..BIBMVS.LOAD,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=LEROUXR.BIBMVS.LOAD,DISP=SHR
21 //SYSOUT    DD SYSOUT=*,OUTLIM=15000
22 //CEEDUMP   DD DUMMY
23 //SYSUDUMP  DD DUMMY
//***************************************************/
24 // ELSE
25 // ENDIF
** ASMA417C Unable to open OBJECT file
╗

HIGH LEVEL ASSEMBLER - INTERRUPT AND DIAGNOSTIC DUMP

** ASMA935U One or more required files not available 

What did I miss ?

[Joe Monk]

On your SPACE allocations, are you allocating cylinders or tracks?

Joe

--
You received this message because you are subscribed to the Google Groups "z390" group.
To unsubscribe from this group and stop receiving emails from it, send an email to z390+uns...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/z390/bbd70eaa-37a4-41f0-9cfd-e770b8f4ce99n%40googlegroups.com.

[John Ganci]

The following, with appropriate JOB info, worked for me.

//ZZZZZZZZ  JOB your JOB accounting info

//ASMLG  EXEC ASMACLG
//C.SYSIN   DD *
ASMCLG   CSECT
         USING *,15
         WTO   'HELLO WORLD'
         BR    14
         END
/*
//

[Jon Perryman]

Your jobcard has MSGCLASS=Z which may on your system purge important system messages. You might try temporarily changing to a class that retains output to see if there is an important message. I'm guessing you probably got a message about SYSPUNCH or maybe something related to a UNIX file. 

--