IBM Mainframe Forum

by **RISCCISCInstSet** » Thu Dec 08, 2011 1:31 am

This is from another topic, but it wasn't on subject.

I'm trying to compile this:

***MAIN SETUP
***MAIN CSECT
MAIN SETUP
MAIN CSECT

* OPEN (OUTFILE,(OUTPUT))
*** USING *,12
CALL WRITE,(MSG),VL
* PUT OUTFILE,message
ENDDATA DS 0H
* CLOSE (OUTFILE)
ENDIT
*** USING *,12

message DS CL17
MSG DC AL2(MSGE-MSGB)
MSGB DC C'some nice message'
MSGE EQU *

*OUTFILE DCB DSORG=PS,
* MACRF=(PM),
* DDNAME=OUTFILE,
* RECFM=FM,
* LRECL=17

END MAIN

WRITE CSECT
*
* somehow move message
BALR 11,0
USING *,11
L 2,0(,1)
*** OPEN (OUTFILE,(OUTPUT))
* MVC message,MSGB

*** CLOSE OUTFILE
*** RETURN (14,12),T,RC=0 ***

BR 14
END

Job Output:

J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E S V S C J E S 2

13.02.25 JOB06549 ---- WEDNESDAY, 07 DEC 2011 ----
13.02.25 JOB06549 IRR010I USERID C432110 IS ASSIGNED TO THIS JOB.
13.02.25 JOB06549 IEF677I WARNING MESSAGE(S) FOR JOB C432110A ISSUED
13.02.25 JOB06549 ICH70001I C432110 LAST ACCESS AT 13:02:06 ON WEDNESDAY, DECEMBER 7, 2011
13.02.25 JOB06549 $HASP373 C432110A STARTED - INIT 1 - CLASS A - SYS S0W1
13.02.26 JOB06549 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
13.02.26 JOB06549 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
13.02.26 JOB06549 -ASSEMBLE 12 157 34 .00 .00 .0 1136 BATCH 0 0 0 0
13.02.26 JOB06549 -LINK FLUSH 0 0 .00 .00 .0 0 BATCH 0 0 0 0
13.02.26 JOB06549 IEC192I OPEN MACRO MAY HAVE BEEN USED WITH INCONSISTENT MODE SPECIFICATIONS.
13.02.26 JOB06549 IEC130I "?0 "?0 DD STATEMENT MISSING
13.02.26 JOB06549 IEA995I SYMPTOM DUMP OUTPUT 679
679 SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004
679 TIME=13.02.26 SEQ=00107 CPU=0000 ASID=001A
679 PSW AT TIME OF ERROR 078C2000 80E83F2E ILC 2 INTC 04
679 NO ACTIVE MODULE FOUND
679 NAME=UNKNOWN
679 DATA AT PSW 00E83F28 - 42421831 0E02B20A 005047F0
679 AR/GR 0: 967F7DCA/00000000_00000028 1: 00000000/00000000_0000000C
679 2: 00000000/00000000_007C3188 3: 00000000/00000000_0000000C
679 4: 00000000/00000000_007C3410 5: 00000000/00000000_00E83120
679 6: 00000000/00000000_007C36B0 7: 00000000/00000000_C0000010
679 8: 00000000/00000000_007C376C 9: 00000000/00000000_0194F2A0
679 A: 00000000/00000000_00E568DA B: 00000000/00000000_00007F80
679 C: 00000000/00000000_007C377C D: 00000000/00000000_00000000
679 E: 00000000/00000000_00E56A24 F: 00000002/00000010_007C36D0
679 END OF SYMPTOM DUMP
13.02.26 JOB06549 IEF450I C432110A RUN - ABEND=S0C4 U0000 REASON=00000004
13.02.26 JOB06549 -RUN *S0C4 4 1 .00 .00 .0 121 BATCH 0 0 0 0
13.02.26 JOB06549 -C432110A ENDED. NAME- TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
13.02.26 JOB06549 $HASP395 C432110A ENDED
------ JES2 JOB STATISTICS ------
07 DEC 2011 JOB EXECUTION DATE
26 CARDS READ
494 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
31 SYSOUT SPOOL KBYTES
0.01 MINUTES EXECUTION TIME
1 //C432110A JOB (ASSY),CLASS=A,MSGCLASS=A, JOB06549
// NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//**************//
//** ASSEMBLE **//
//**************//
IEFC653I SUBSTITUTION JCL - (ASSY),CLASS=A,MSGCLASS=A,NOTIFY=C432110,MSGLEVEL=(1,1)
2 //ASSEMBLE EXEC PGM=ASMA90
3 //SYSIN DD DSN=C432110.ASM(LAB7),DISP=SHR
4 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
5 // DD DSN=C432110.ASM.MACLIB,DISP=SHR
6 //SYSLIN DD DSN=&&OBJ,DISP=(,PASS)
7 //SYSUT1 DD DSN=&&SYSUT1,DISP=(,PASS)
8 //SYSPRINT DD SYSOUT=*
//**********//
//** LINK **//
//**********//
9 //LINK EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,ASSEMBLE)
10 //SYSLIN DD DSN=&&OBJ,DISP=SHR
11 //SYSUT1 DD DSN=&&SYSUT1,DISP=(,PASS)
12 //SYSLMOD DD DSN=C432110.LOAD(LAB7),DISP=(OLD,CATLG)
13 //SYSPRINT DD SYSOUT=*
//*********//
//** GO ***//
//*********//
14 //RUN EXEC PGM=LAB7,PARM='TRACE'
15 //STEPLIB DD DSN=C432110.LOAD(LAB7),DISP=SHR
16 //OUTFILE DD DSN=C432110.TEXT(ABC2),DISP=SHR
STMT NO. MESSAGE
-
10 IEF648I INVALID DISP FIELD- PASS SUBSTITUTED
ICH70001I C432110 LAST ACCESS AT 13:02:06 ON WEDNESDAY, DECEMBER 7, 2011
IEF236I ALLOC. FOR C432110A ASSEMBLE
IEF237I 0D34 ALLOCATED TO SYSIN
IEF237I 1001 ALLOCATED TO SYSLIB
IEF237I 0D35 ALLOCATED TO
IGD100I VIO ALLOCATED TO DDNAME SYSLIN DATACLAS ( )
IGD100I VIO ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF142I C432110A ASSEMBLE - STEP WAS EXECUTED - COND CODE 0012
IEF285I C432110.ASM KEPT
IEF285I VOL SER NOS= VPWRKC.
IEF285I SYS1.MACLIB KEPT
IEF285I VOL SER NOS= VTMVSC.
IEF285I C432110.ASM.MACLIB KEPT
IEF285I VOL SER NOS= VPWRKD.
IEF285I SYS11341.T130225.RA000.C432110A.OBJ.H01 PASSED
IEF285I SYS11341.T130225.RA000.C432110A.SYSUT1.H01 PASSED
IEF285I C432110.C432110A.JOB06549.D0000101.? SYSOUT
IEF373I STEP/ASSEMBLE/START 2011341.1302
IEF374I STEP/ASSEMBLE/STOP 2011341.1302 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 228K SYS 268K EXT 32768K SYS 11700K
IEF202I C432110A LINK - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I C432110A LINK - STEP WAS NOT EXECUTED.
IEF373I STEP/LINK /START 2011341.1302
IEF374I STEP/LINK /STOP 2011341.1302 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF236I ALLOC. FOR C432110A RUN
IEF237I 0D35 ALLOCATED TO STEPLIB
IEF237I 0D34 ALLOCATED TO OUTFILE
IEC192I OPEN MACRO MAY HAVE BEEN USED WITH INCONSISTENT MODE SPECIFICATIONS.
IEC130I "?0 "?0 DD STATEMENT MISSING
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004
TIME=13.02.26 SEQ=00107 CPU=0000 ASID=001A
PSW AT TIME OF ERROR 078C2000 80E83F2E ILC 2 INTC 04
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00E83F28 - 42421831 0E02B20A 005047F0
AR/GR 0: 967F7DCA/00000000_00000028 1: 00000000/00000000_0000000C
2: 00000000/00000000_007C3188 3: 00000000/00000000_0000000C
4: 00000000/00000000_007C3410 5: 00000000/00000000_00E83120
6: 00000000/00000000_007C36B0 7: 00000000/00000000_C0000010
8: 00000000/00000000_007C376C 9: 00000000/00000000_0194F2A0
A: 00000000/00000000_00E568DA B: 00000000/00000000_00007F80
C: 00000000/00000000_007C377C D: 00000000/00000000_00000000
E: 00000000/00000000_00E56A24 F: 00000002/00000010_007C36D0
END OF SYMPTOM DUMP
IEF472I C432110A RUN - COMPLETION CODE - SYSTEM=0C4 USER=0000 REASON=00000004
IEF285I C432110.LOAD KEPT
IEF285I VOL SER NOS= VPWRKD.
IEF285I C432110.TEXT KEPT
IEF285I VOL SER NOS= VPWRKC.
IEF373I STEP/RUN /START 2011341.1302
IEF374I STEP/RUN /STOP 2011341.1302 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 8K SYS 252K EXT 0K SYS 10856K
IEF285I SYS11341.T130225.RA000.C432110A.OBJ.H01 DELETED
IEF285I SYS11341.T130225.RA000.C432110A.SYSUT1.H01 DELETED
IEF375I JOB/C432110A/START 2011341.1302
IEF376I JOB/C432110A/STOP 2011341.1302 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC

High Level Assembler Option Summary (PTF UK60812) Page 1
HLASM R5.0 2011/12/07 13.02
No Overriding ASMAOPT Parameters
No Overriding Parameters
No Process Statements

Options for this Assembly
NOADATA
ALIGN
NOASA
BATCH
CODEPAGE(047C)
NOCOMPAT
NODBCS
NODECK
DXREF
ESD
NOEXIT
FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)
NOFOLD
NOGOFF
NOINFO
LANGUAGE(EN)
NOLIBMAC
LINECOUNT(60)
LIST(121)
MACHINE(,NOLIST)
MXREF(SOURCE)
OBJECT
OPTABLE(UNI,NOLIST)
NOPCONTROL
NOPESTOP
NOPROFILE
NORA2
NORENT
RLD
RXREF
SECTALGN(8)
SIZE(MAX)
NOSUPRWARN
SYSPARM()
NOTERM
NOTEST
THREAD
NOTRANSLATE
TYPECHECK(MAGNITUDE,REGISTER)
USING(NOLIMIT,MAP,WARN(15))
NOWORKFILE
XREF(SHORT,UNREFS)

No Overriding DD Names

External Symbol Dictionary Page 2
Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R5.0 2011/12/07 13.02
MAIN SD 00000001 00000000 00000096 00
WRITE ER 00000002

Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2011/12/07 13.02
2 ***MAIN SETUP
3 ***MAIN CSECT
4 MAIN SETUP
000000 00000 00096 6+MAIN CSECT 01-SETUP

8+* SAVE REGISTERS
9+ SAVE (14,12),,MAIN-12/07/11-13.02 01-SETUP
000000 47F0 F018 00018 12+ B 24(0,15) BRANCH AROUND ID 02-SAVE
000004 13 13+ DC AL1(19) LENGTH OF IDENTIFIER 02-SAVE
000005 D4C1C9D560F1F261 14+ DC CL8'MAIN-12/' IDENTIFIER 02-SAVE
00000D F0F761F1F160F1F3 15+ DC CL8'07/11-13' IDENTIFIER 02-SAVE
000015 4BF0F2 16+ DC CL3'.02' IDENTIFIER 02-SAVE
000018 90EC D00C 0000C 17+ STM 14,12,12(13) SAVE REGISTERS 02-SAVE

19+* ESTABLISH ADDRESSABILITY FOR PROGRAM
00001C 18CF 20+ LR 12,15 ESTABLISH FIRST BASE REGISTER 01-SETUP
R:C 00000 21+ USING MAIN,12 01-SETUP

23+* ESTABLISH NEW SAVE AREA AND POINT 13 TO IT
24+ GETMAIN R,LV=72 01-SETUP
00001E 4100 0048 00048 27+ LA 0,72(0,0) LOAD LENGTH 02-GETMA
000022 4510 C026 00026 28+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA
000026 0A0A 29+ SVC 10 ISSUE GETMAIN SVC 02-GETMA
000028 5010 D008 00008 30+ ST 1,8(,13) CHAIN NEW AND OLD 01-SETUP
00002C 50D0 1004 00004 31+ ST 13,4(,1) SAVE AREAS TOGETHER 01-SETUP
000030 9801 D014 00014 32+ LM 0,1,20(13) RESTORE REGISTERS 0 AND 1 01-SETUP
000034 58D0 D008 00008 33+ L 13,8(,13) LOAD ADDRESS OF NEW SAVE AREA 01-SETUP

00000 35+R0 EQU 0 01-SETUP
00001 36+R1 EQU 1 01-SETUP
00002 37+R2 EQU 2 01-SETUP
00003 38+R3 EQU 3 01-SETUP
00004 39+R4 EQU 4 01-SETUP
00005 40+R5 EQU 5 01-SETUP
00006 41+R6 EQU 6 01-SETUP
00007 42+R7 EQU 7 01-SETUP
00008 43+R8 EQU 8 01-SETUP
00009 44+R9 EQU 9 01-SETUP
0000A 45+R10 EQU 10 01-SETUP
0000B 46+R11 EQU 11 01-SETUP
0000C 47+R12 EQU 12 01-SETUP
0000D 48+R13 EQU 13 01-SETUP
0000E 49+R14 EQU 14 01-SETUP
0000F 50+R15 EQU 15 01-SETUP
00001 51+BO EQU 1 01-SETUP
00002 52+BP EQU 2 01-SETUP
00002 53+BH EQU 2 01-SETUP
Page 4
Active Usings: MAIN,R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2011/12/07 13.02
00004 54+BL EQU 4 01-SETUP
00004 55+BM EQU 4 01-SETUP
00007 56+BNE EQU 7 01-SETUP
00007 57+BNZ EQU 7 01-SETUP
00008 58+BE EQU 8 01-SETUP
00008 59+BZ EQU 8 01-SETUP
0000B 60+BNL EQU 11 01-SETUP
0000B 61+BNM EQU 11 01-SETUP
0000D 62+BNH EQU 13 01-SETUP
0000D 63+BNP EQU 13 01-SETUP
0000E 64+BNO EQU 14 01-SETUP

000038 00000 00096 66 MAIN CSECT
68 * OPEN (OUTFILE,(OUTPUT))
69 *** USING *,12
70 CALL WRITE,(MSG),VL
000038 72+ CNOP 0,4 01-CALL
000038 47F0 C040 00040 73+ B *+8 BRANCH AROUND VCON 01-CALL
00003C 00000000 74+IHB0007B DC V(WRITE) ENTRY POINT ADDRESS 01-CALL
000040 4110 C048 00048 77+ LA 1,IHB0009 LIST ADDRESS @L1C 02-IHBOP
000044 47F0 C04C 0004C 78+ B IHB0009A BYPASS LIST @ZMC3742 02-IHBOP
000048 79+IHB0009 DS 0F 02-IHBOP
000048 80000083 80+ DC A(MSG+X'80000000') @L2C 02-IHBOP
0004C 81+IHB0009A EQU * 02-IHBOP
00004C 58F0 C03C 0003C 82+ L 15,IHB0007B LOAD 15 WITH ENTRY ADR 01-CALL
000050 05EF 83+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL
84 * PUT OUTFILE,message
000052 85 ENDDATA DS 0H
86 * CLOSE (OUTFILE)
87 ENDIT
000052 58D0 D004 00004 89+ L 13,4(,13) 01-ENDIT

91+* FREE DYNAMICALLY ACQUIRED SAVE AREA
000056 5810 D008 00008 92+ L 1,8(,13) 01-ENDIT
93+ FREEMAIN R,LV=72,A=(1) 01-ENDIT
00005A 4100 0048 00048 96+ LA 0,72(0,0) LOAD LENGTH 02-FREEM
00005E 4110 1000 00000 97+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM
000062 0A0A 98+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM

100+* RESTORE CALLING PROGRAMS REGISTERS, SET RETURN CODE, AND EXIT
101+ RETURN (14,12),T,RC=0 01-ENDIT
000064 98EC D00C 0000C 104+ LM 14,12,12(13) RESTORE THE REGISTERS 02-RETUR
000068 9601 D00F 0000F 105+ OI 15(13),X'01' SET RETURN INDICATION 02-RETUR
00006C 41F0 0000 00000 106+ LA 15,0(0,0) LOAD RETURN CODE 02-RETUR
000070 07FE 107+ BR 14 RETURN 02-RETUR
108 *** USING *,12
000072 110 message DS CL17
Page 5
Active Usings: MAIN,R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2011/12/07 13.02
000083 0011 111 MSG DC AL2(MSGE-MSGB)
000085 A296948540958983 112 MSGB DC C'some nice message'
00096 113 MSGE EQU *
115 *OUTFILE DCB DSORG=PS,
116 * MACRF=(PM),
117 * DDNAME=OUTFILE,
118 * RECFM=FM,
119 * LRECL=17

000000 123 END MAIN

Relocation Dictionary Page 6
Pos.Id Rel.Id Address Type Action HLASM R5.0 2011/12/07 13.02
00000001 00000001 00000048 A 4 +
00000001 00000002 0000003C V 4 ST

Ordinary Symbol and Literal Cross Reference Page 7
Symbol Length Value Id R Type Asm Program Defn References HLASM R5.0 2011/12/07 13.02
IHB0007B 4 0000003C 00000001 V V 74 82
IHB0009 4 00000048 00000001 F F 79 77
IHB0009A 1 0000004C 00000001 U 81 78B
MAIN 1 00000000 00000001 J 6 21U 66 123
MSG 2 00000083 00000001 R A 111 80
MSGB 17 00000085 00000001 C C 112 111
MSGE 1 00000096 00000001 U 113 111
WRITE 1 00000000 00000002 T 74 74

Unreferenced Symbols Defined in CSECTs Page 8
Defn Symbol HLASM R5.0 2011/12/07 13.02
58 BE
53 BH
54 BL
55 BM
56 BNE
62 BNH
60 BNL
61 BNM
64 BNO
63 BNP
57 BNZ
51 BO
52 BP
59 BZ
85 ENDDATA
110 message
35 R0
36 R1
45 R10
46 R11
47 R12
48 R13
49 R14
50 R15
37 R2
38 R3
39 R4
40 R5
41 R6
42 R7
43 R8
44 R9

Macro and Copy Code Source Summary Page 9
Con Source Volume Members HLASM R5.0 2011/12/07 13.02
L1 SYS1.MACLIB VTMVSC CALL FREEMAIN GETMAIN IHBOPLTX RETURN SAVE
SYSSTATE
L2 C432110.ASM.MACLIB VPWRKD ENDIT SETUP

Using Map Page 10
HLASM R5.0 2011/12/07 13.02
Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text
Count Id Type Value Range Id Disp Stmt
21 0000001E 00000001 USING ORDINARY 00000000 00001000 00000001 12 0004C 82 MAIN,12

General Purpose Register Cross Reference Page 11
Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R5.0 2011/12/07 13.02
0(0) 17 27M 32M 96M 104M
1(1) 17 28M 30 31 32M 77M 92M 97M 97 104M
2(2) 17 104M
3(3) 17 104M
4(4) 17 104M
5(5) 17 104M
6(6) 17 104M
7(7) 17 104M
8(8) 17 104M
9(9) 17 104M
10(A) 17 104M
11(B) 17 104M
12(C) 17 20M 21U 104M
13(D) 17 30 31 32 33M 33 89M 89 92 104 105
14(E) 17 83M 104M 107B
15(F) 12 17 20 82M 83B 104M 106M

Diagnostic Cross Reference and Assembler Summary Page 12
HLASM R5.0 2011/12/07 13.02
No Statements Flagged in this Assembly
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 5.0, PTF UK60812
SYSTEM: z/OS 01.09.00 JOBNAME: C432110A STEPNAME: ASSEMBLE PROCSTEP: (NOPROC)
Data Sets Allocated for this Assembly
Con DDname Data Set Name Volume Member
P1 SYSIN C432110.ASM VPWRKC LAB7
L1 SYSLIB SYS1.MACLIB VTMVSC
L2 C432110.ASM.MACLIB VPWRKD
SYSLIN SYS11341.T130225.RA000.C432110A.OBJ.H01
SYSPRINT C432110.C432110A.JOB06549.D0000101.?

32080K allocated to Buffer Pool Storage required 516K
29 Primary Input Records Read 6239 Library Records Read 0 Work File Reads
0 ASMAOPT Records Read 274 Primary Print Records Written 0 Work File Writes
7 Object Records Written 0 ADATA Records Written
Assembly Start Time: 13.02.25 Stop Time: 13.02.25 Processor Time: 00.00.00.0108
Return Code 000

High Level Assembler Option Summary (PTF UK60812) Page 1
HLASM R5.0 2011/12/07 13.02
No Overriding ASMAOPT Parameters
No Overriding Parameters
No Process Statements

Options for this Assembly
NOADATA
ALIGN
NOASA
BATCH
CODEPAGE(047C)
NOCOMPAT
NODBCS
NODECK
DXREF
ESD
NOEXIT
FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)
NOFOLD
NOGOFF
NOINFO
LANGUAGE(EN)
NOLIBMAC
LINECOUNT(60)
LIST(121)
MACHINE(,NOLIST)
MXREF(SOURCE)
OBJECT
OPTABLE(UNI,NOLIST)
NOPCONTROL
NOPESTOP
NOPROFILE
NORA2
NORENT
RLD
RXREF
SECTALGN(8)
SIZE(MAX)
NOSUPRWARN
SYSPARM()
NOTERM
NOTEST
THREAD
NOTRANSLATE
TYPECHECK(MAGNITUDE,REGISTER)
USING(NOLIMIT,MAP,WARN(15))
NOWORKFILE
XREF(SHORT,UNREFS)

No Overriding DD Names

External Symbol Dictionary Page 2
Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R5.0 2011/12/07 13.02
PC 00000001 00000000 00000008 00

Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2011/12/07 13.02
2 WRITE CSECT
** ASMA254I *** MNOTE *** 4+ 12,*** IHB001 TYPE OPERAND REQ'D-NOT SPECIFIED 02-IHBER
5 *
6 * somehow move message
000000 05B0 7 BALR 11,0
R:B 00002 8 USING *,11
000002 5820 1000 00000 9 L 2,0(,1)
10 *** OPEN (OUTFILE,(OUTPUT))
11 * MVC message,MSGB
13 *** CLOSE OUTFILE
14 *** RETURN (14,12),T,RC=0 ***
000006 07FE 16 BR 14
17 END

Macro and Copy Code Source Summary Page 4
Con Source Volume Members HLASM R5.0 2011/12/07 13.02
L1 SYS1.MACLIB VTMVSC IHBERMAC WRITE

Using Map Page 5
HLASM R5.0 2011/12/07 13.02
Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text
Count Id Type Value Range Id Disp Stmt
8 00000002 00000001 USING ORDINARY 00000002 00001000 00000001 11 00000 *,11

General Purpose Register Cross Reference Page 6
Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R5.0 2011/12/07 13.02
0(0) (no references identified)
1(1) 9
2(2) 9M
3(3) (no references identified)
4(4) (no references identified)
5(5) (no references identified)
6(6) (no references identified)
7(7) (no references identified)
8(8) (no references identified)
9(9) (no references identified)
10(A) (no references identified)
11(B) 7M 8U
12(C) (no references identified)
13(D) (no references identified)
14(E) 16B
15(F) (no references identified)

Diagnostic Cross Reference and Assembler Summary Page 7
HLASM R5.0 2011/12/07 13.02
Statements Flagged
4(L1:IHBERMAC,272)

1 Statement Flagged in this Assembly 12 was Highest Severity Code
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 5.0, PTF UK60812
SYSTEM: z/OS 01.09.00 JOBNAME: C432110A STEPNAME: ASSEMBLE PROCSTEP: (NOPROC)
Data Sets Allocated for this Assembly
Con DDname Data Set Name Volume Member
P1 SYSIN C432110.ASM VPWRKC LAB7
L1 SYSLIB SYS1.MACLIB VTMVSC
L2 C432110.ASM.MACLIB VPWRKD
SYSLIN SYS11341.T130225.RA000.C432110A.OBJ.H01
SYSPRINT C432110.C432110A.JOB06549.D0000101.?

32080K allocated to Buffer Pool Storage required 516K
15 Primary Input Records Read 739 Library Records Read 0 Work File Reads
0 ASMAOPT Records Read 126 Primary Print Records Written 0 Work File Writes
3 Object Records Written 0 ADATA Records Written
Assembly Start Time: 13.02.25 Stop Time: 13.02.25 Processor Time: 00.00.00.0017
Return Code 012

Can you give me some information to help me better make sense of this?

by **NicC** » Thu Dec 08, 2011 4:33 am

2 things, neither of which will help you resolve the error:..

1 - you are trying to ASSEMBLE not compile
2 - your RUN step is being executed even though your LINK has not run. Add a condition code to the RUN step so that it will only execute if the LINK gives a satisfactory return code e.g. 0

As to your errors, I can spot at least one error message.

by **RISCCISCInstSet** » Thu Dec 08, 2011 4:49 am

I think the most helpful piece of error information is -

OPEN MACRO MAY HAVE BEEN USED WITH INCONSISTENT MODE SPECIFICATIONS

by **BillyBoyo** » Thu Dec 08, 2011 5:09 am

But the IEC is a run-time message.

You need to find this, and the reason for it:

Select all

** ASMA254I *** MNOTE ***

At the same time work out how you should have been able to find it easily.

Also if you look at the message after the one you spotted, another IEC, and you have another interesing "?" close by.

All clues pointing to what has gone wrong, but really the program is not long enough to make things particularly difficult, is it?

by **BillyBoyo** » Thu Dec 08, 2011 5:39 am

Rats. Lost a lot of typing again.

Just basic point now. As NicC has pointed out, you are running without the link having run, so you are running an old version. Fix your program, fix your JCL, put in some DDs for SYSOUT.

You may have made several changes to the program whilst not getting a clean assemble and running the old program, you may have been chasing your tail a while.

You are now in the situation of having to understand JCL and the job output as well. Welcome to the mainframe.

Although you might be an impatient person, there is no problem with doing the run as a seperate job, after you have checked manually that the assemble and link are OK. If you are wondering "how do I get the source back to four changes ago", I'm afraid you best bet is probably any output on the queue, or which you had printed....

by **RISCCISCInstSet** » Thu Dec 08, 2011 7:33 am

I think I may have the problem resolved now. I found a problem with my JCL (incorrect file reference). Thank you for your help.

by **BillyBoyo** » Thu Dec 08, 2011 1:40 pm

Your main problem was running an old version of the program because newer versions of the program had failed to assemble/link correctly.

The old version you were running had a butchered OPEN macro/overwritten areas which was attempting to do something with a ddname containing zeros, commas and something else, possibly spaces. You have duff JCL anyway (you can't CATLG a dataset that is already CATLG'd) and have no "listing" dds in your run step You probably continued amending your programming without reaslising you weren't getting a new version, and thus made changes that were nothing to do with any problem, because the program wouldn't assemble.

Until you get it to assemble, you can't possibly regard the thing as fixed.

IBM Mainframe Forum

Getting It To Run

Getting It To Run

Re: Getting It To Run

Re: Getting It To Run

Re: Getting It To Run

Re: Getting It To Run

Re: Getting It To Run

Re: Getting It To Run