IBM Mainframe Forum

by **RISCCISCInstSet** » Tue Sep 25, 2012 7:57 am

Thank you for your help the previous time.

This time I'm trying to resolve an error regarding the message "19 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED" and some ensuing notes that later steps couldn't be executed.

Looked around on the net, looked in manuals, screwed up my sleeping pattern and have a deadline to worry about.

Job control language for the purpose of running assembly code on a mainframe server can be tricky to understand and figure out. Who knew?

Select all

//C432110A JOB (ASSY),CLASS=A,MSGCLASS=A,
// NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//**************//
//CLG EXEC PROC=ASMACLG
//C.SYSIN DD DSN=C432110.ASM(LAB03),DISP=SHR
//C.SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=C432110.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR
//G.INPUT DD DSN=C432110.ASM(LAB03),DISP=SHR
//G.OUTPUT DD DSN=C432110.ASM(COPY),DISP=SHR

Select all

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

21.23.28 JOB02898 ---- MONDAY, 24 SEP 2012 ----
21.23.28 JOB02898 IRR010I USERID C432110 IS ASSIGNED TO THIS JOB.
21.23.29 JOB02898 IEF677I WARNING MESSAGE(S) FOR JOB C432110A ISSUED
21.23.29 JOB02898 ICH70001I C432110 LAST ACCESS AT 19:48:32 ON MONDAY, SEPTEMBER 24, 2012
21.23.29 JOB02898 $HASP373 C432110A STARTED - INIT 1 - CLASS A - SYS S0W1
21.23.29 JOB02898 - -----TIMINGS (MINS.)------ -----PAGING COUNTS----
21.23.29 JOB02898 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
21.23.29 JOB02898 -CLG C 12 220 82 .00 .00 .0 61 BATCH 0 0 0 0
21.23.29 JOB02898 -CLG L FLUSH 0 0 .00 .00 .0 BATCH 0 0 0 0
21.23.29 JOB02898 -CLG G FLUSH 0 0 .00 .00 .0 BATCH 0 0 0 0
21.23.29 JOB02898 -C432110A ENDED. NAME- TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
21.23.30 JOB02898 $HASP395 C432110A ENDED
------ JES2 JOB STATISTICS ------
24 SEP 2012 JOB EXECUTION DATE
10 CARDS READ
370 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
25 SYSOUT SPOOL KBYTES
0.01 MINUTES EXECUTION TIME
1 //C432110A JOB (ASSY),CLASS=A,MSGCLASS=A, JOB02898
// NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//**************//
IEFC653I SUBSTITUTION JCL - (ASSY),CLASS=A,MSGCLASS=A,NOTIFY=C432110,MSGLEVEL=(1,1)
2 //CLG EXEC PROC=ASMACLG
3 XXASMACLG PROC 00001000
XX* 00002000
XX*** ASMACLG 00003000
XX* 00004000
XX* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER, LINK-EDITS THE 00005000
XX* NEWLY ASSEMBLED PROGRAM AND RUNS THE PROGRAM AFTER 00006000
XX* THE LINK-EDIT IS ACCOMPLISHED. 00007000
XX* 00008000
4 XXC EXEC PGM=ASMA90 00009000
5 //C.SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
X/SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00010000
6 // DD DSN=C432110.MACLIB,DISP=SHR
7 // DD DSN=SYS1.AMODGEN,DISP=SHR
8 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND),UNIT=VIO, 00011000
XX DCB=BUFNO=1 00012000
9 XXSYSPRINT DD SYSOUT=* 00013000
10 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND),UNIT=VIO, 00014000
XX DISP=(MOD,PASS), 00015000
XX DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1) 00016000
11 //C.SYSIN DD DSN=C432110.ASM(LAB03),DISP=SHR
12 XXL EXEC PGM=HEWL,PARM='MAP,LET,LIST',COND=(8,LT,C) 00017000
13 XXSYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 00018000
14 XX DD DDNAME=SYSIN 00019000
15 XXSYSLMOD DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1,1)), 00020000
XX DSN=&&GOSET(GO) 00021000
16 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO, 00022000
XX DCB=BUFNO=1 00023000
17 XXSYSPRINT DD SYSOUT=* 00024000
18 XXG EXEC PGM=*.L.SYSLMOD,COND=((8,LT,C),(8,LT,L)) 00025000
19 //G.INPUT DD DSN=C432110.ASM(LAB03),DISP=SHR
20 //G.OUTPUT DD DSN=C432110.ASM(COPY),DISP=SHR
STMT NO. MESSAGE
2 IEFC001I PROCEDURE ASMACLG WAS EXPANDED USING SYSTEM LIBRARY SYS1.PROCLIB
18 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I C432110 LAST ACCESS AT 19:48:32 ON MONDAY, SEPTEMBER 24, 2012
IEF236I ALLOC. FOR C432110A C CLG
IEF237I 1001 ALLOCATED TO SYSLIB
IEF237I 0D33 ALLOCATED TO
IEF237I 1007 ALLOCATED TO
IGD100I VIO ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD100I VIO ALLOCATED TO DDNAME SYSLIN DATACLAS ( )
IEF237I 0D33 ALLOCATED TO SYSIN
IEF142I C432110A C CLG - STEP WAS EXECUTED - COND CODE 0012
IEF285I SYS1.MACLIB KEPT
IEF285I VOL SER NOS= VTMVSC.
IEF285I C432110.MACLIB KEPT
IEF285I VOL SER NOS= VPWRKB.
IEF285I SYS1.AMODGEN KEPT
IEF285I VOL SER NOS= VDMVSB.
IEF285I SYS12268.T212329.RA000.C432110A.SYSUT1.H01 DELETED
IEF285I C432110.C432110A.JOB02898.D0000101.? SYSOUT
IEF285I SYS12268.T212329.RA000.C432110A.OBJ.H01 PASSED
IEF285I C432110.ASM KEPT
IEF285I VOL SER NOS= VPWRKB.
IEF373I STEP/C /START 2012268.2123
IEF032I STEP/C /STOP 2012268.2123
CPU: 0 HR 00 MIN 00.05 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 228K SYS: 252K EXT: 32768K SYS: 11964K
IEF202I C432110A L CLG - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I C432110A L CLG - STEP WAS NOT EXECUTED.
IEF373I STEP/L /START 2012268.2123
IEF032I STEP/L /STOP 2012268.2123
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
IEF202I C432110A G CLG - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I C432110A G CLG - STEP WAS NOT EXECUTED.
IEF373I STEP/G /START 2012268.2123
IEF032I STEP/G /STOP 2012268.2123
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 0K SYS: 0K EXT: 0K SYS: 0K
IEF285I SYS12268.T212329.RA000.C432110A.OBJ.H01 DELETED
IEF375I JOB/C432110A/START 2012268.2123
IEF033I JOB/C432110A/STOP 2012268.2123
CPU: 0 HR 00 MIN 00.05 SEC SRB: 0 HR 00 MIN 00.00 SEC

High Level Assembler Option Summary (PTF UK81558) Page 1
HLASM R6.0 2012/09/24 21.23
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 R6.0 2012/09/24 21.23
COPY SD 00000001 00000000 00000226 00

Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2012/09/24 21.23
1 COPY SETUP
000000 00000 00226 3+COPY CSECT 01-SETUP

5+* SAVE REGISTERS
6+ SAVE (14,12),,COPY-09/24/12-21.23 01-SETUP
000000 47F0 F018 00018 9+ B 24(0,15) BRANCH AROUND ID 02-SAVE
000004 13 10+ DC AL1(19) LENGTH OF IDENTIFIER 02-SAVE
000005 C3D6D7E860F0F961 11+ DC CL8'COPY-09/' IDENTIFIER 02-SAVE
00000D F2F461F1F260F2F1 12+ DC CL8'24/12-21' IDENTIFIER 02-SAVE
000015 4BF2F3 13+ DC CL3'.23' IDENTIFIER 02-SAVE
000018 90EC D00C 0000C 14+ STM 14,12,12(13) SAVE REGISTERS 02-SAVE

16+* ESTABLISH ADDRESSABILITY FOR PROGRAM
00001C 18CF 17+ LR 12,15 ESTABLISH FIRST BASE REGISTER 01-SETUP
R:C 00000 18+ USING COPY,12 01-SETUP

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

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

PROGRAM 4 80/80 LISTING Page 5
Active Usings: COPY,R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2012/09/24 21.23
64 PRINT NOGEN
000038 A715 001A 0006C 65 WTO 'PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)'
00006E 0700 74 OPEN (INFILE,(SYSIN))
** ASMA254I *** MNOTE *** 79+ 12,*** IHB002 INVALID OPTION OPERAND SPECIFIED-(SYSIN) 02-IHBER
000074 4D10 C07C 0007C 80 OPEN (OUTFILE,(OUTPUT))
87 * WTO 'Files opened successfully'
88 * ZAP NUM,=P'2'
89 * ZAP NUM2,=P'1'
90 * MVC CHAR1,=C'9'
91 *
92 *LOOP EQU *
93 * GET INFILE,IRECORD
94 ** MVC ORECORD,=CL133' '
96 ******** MVC ORECORD(80),IRECORD
97 ******** MVC ORECORD(10),=C' '
99 * MVC ORECORD+10(62),IRECORD
100 * PACK NUM,CHAR1
101 *
102 * AP NUM,NUM2
104 * UNPK CHAR1,NUM
105 * OI CHAR1,X'F0'
106 * MVC ORECORD(2),CHAR1
108 * PUT OUTFILE,ORECORD
109 * B LOOP
110 *
0007E 111 EOF EQU *
00007E 0700 112 CLOSE (INFILE,,OUTFILE)
121 * CLOSE (INFILE)
00008E 0700 122 WTO 'PROG4 ENDED OK'
0000A8 58D0 D004 00004 131 ENDIT
137+ FREEMAIN R,LV=72,A=(1) 01-ENDIT
145+ RETURN (14,12),T,RC=0 01-ENDIT
152 INFILE DCB DDNAME=SYSIN, X
DSORG=PS, X
EODAD=EOF, X
LRECL=80, X
RECFM=FB, X
0000C8 0000000000000000 MACRF=(GM)
194 *
195 OUTFILE DCB DDNAME=OUTPUT, X
LRECL=100, X
DSORG=PS, X
RECFM=FB, X
MACRF=(PM), X
000128 0000000000000000 BLKSIZE=130
237 *
000188 238 CHAR1 DS CL2
00018A 239 NUM DS PL2
00018C 240 NUM2 DS PL2
00018E 4040404040404040 241 IRECORD DC CL80' '
0001DE 4040404040404040 242 ORECORD DC CL72' '
PROGRAM 4 80/80 LISTING Page 6
Active Usings: COPY,R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2012/09/24 21.23
000000 243 END COPY

Relocation Dictionary Page 7
Pos.Id Rel.Id Address Type Action HLASM R6.0 2012/09/24 21.23
00000001 00000001 00000079 A 3 +
00000001 00000001 00000085 A 3 +
00000001 00000001 00000089 A 3 +
00000001 00000001 000000E9 A 3 +

Ordinary Symbol and Literal Cross Reference Page 8
Symbol Length Value Id R Type Asm Program Defn References HLASM R6.0 2012/09/24 21.23
COPY 1 00000000 00000001 J 3 18U 243
EOF 1 0000007E 00000001 U 111 169
IHB0007A 2 0000006C 00000001 H H 72 68B
IHB0016A 2 000000A6 00000001 H H 129 125B
INFILE 4 000000C8 00000001 F F 157 117
OUTFILE 4 00000128 00000001 F F 200 85 119

Unreferenced Symbols Defined in CSECTs Page 9
Defn Symbol HLASM R6.0 2012/09/24 21.23
55 BE
50 BH
51 BL
52 BM
53 BNE
59 BNH
57 BNL
58 BNM
61 BNO
60 BNP
54 BNZ
48 BO
49 BP
56 BZ
238 CHAR1
241 IRECORD
239 NUM
240 NUM2
242 ORECORD
32 R0
33 R1
42 R10
43 R11
44 R12
45 R13
46 R14
47 R15
34 R2
35 R3
36 R4
37 R5
38 R6
39 R7
40 R8
41 R9

Macro and Copy Code Source Summary Page 10
Con Source Volume Members HLASM R6.0 2012/09/24 21.23
L1 SYS1.MACLIB VTMVSC CLOSE DCB FREEMAIN GETMAIN IHBERMAC IHB01 OPEN
RETURN SAVE SYSSTATE WTO
L2 C432110.MACLIB VPWRKB ENDIT SETUP

Using Map Page 11
HLASM R6.0 2012/09/24 21.23
Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text
Count Id Type Value Range Id Disp Stmt
18 0000001E 00000001 USING ORDINARY 00000000 00001000 00000001 12 0008C 115 COPY,12

General Purpose Register Cross Reference Page 12
Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R6.0 2012/09/24 21.23
0(0) 14 24M 29M 140M 148M
1(1) 14 25M 27 28 29M 68M 77M 83M 115M 125M 136M 141M 141 148M
2(2) 14 148M
3(3) 14 148M
4(4) 14 148M
5(5) 14 148M
6(6) 14 148M
7(7) 14 148M
8(8) 14 148M
9(9) 14 148M
10(A) 14 148M
11(B) 14 148M
12(C) 14 17M 18U 148M
13(D) 14 27 28 29 30M 30 133M 133 136 148 149
14(E) 14 148M 151B
15(F) 9 14 17 148M 150M

Diagnostic Cross Reference and Assembler Summary Page 13
HLASM R6.0 2012/09/24 21.23
Statements Flagged
79(L1:IHBERMAC,325)

1 Statement Flagged in this Assembly 12 was Highest Severity Code
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 6.0, PTF UK81558
SYSTEM: z/OS 01.13.00 JOBNAME: C432110A STEPNAME: CLG PROCSTEP: C
Data Sets Allocated for this Assembly
Con DDname Data Set Name Volume Member
P1 SYSIN C432110.ASM VPWRKB LAB03
L1 SYSLIB SYS1.MACLIB VTMVSC
L2 C432110.MACLIB VPWRKB
L3 SYS1.AMODGEN VDMVSB
SYSLIN SYS12268.T212329.RA000.C432110A.OBJ.H01
SYSPRINT C432110.C432110A.JOB02898.D0000101.?

32072K allocated to Buffer Pool Storage required 1036K
55 Primary Input Records Read 11917 Library Records Read 0 Work File Reads
0 ASMAOPT Records Read 288 Primary Print Records Written 0 Work File Writes
13 Object Records Written 0 ADATA Records Written
Assembly Start Time: 21.23.29 Stop Time: 21.23.29 Processor Time: 00.00.00.0366
Return Code 012

by **dick scherrer** » Tue Sep 25, 2012 8:35 am

Hello,

Job control language for the purpose of running assembly code on a mainframe server can be tricky to understand and figure out. Who knew?

The JCL to assemble a module is not tricky. It IS (or should be) standard within an organization. If you are Not using the system standard assembly JCL, you need to use this and not something you have pieced together.

Start by resolving this:

Select all

** ASMA254I *** MNOTE *** 79+ 12,*** IHB002 INVALID OPTION OPERAND SPECIFIED-(SYSIN)

by **steve-myers** » Tue Sep 25, 2012 9:36 am

The link edit and execution steps did not run because of the Assembler error, as Mr. Scherrer indicates. The warning message the topic starter seems to be concerned about was added fairly recently (by recently I think within the last 15 or 20 years), and I personally think it is very confusing. I still remember my first encounter with the message!

by **RISCCISCInstSet** » Tue Sep 25, 2012 9:52 am

IHB002 INVALID OPTION OPERAND SPECIFIED-(SYSIN)

The note about that is pretty informative; thanks a lot. Why the **** did I not notice that?

by **RISCCISCInstSet** » Tue Sep 25, 2012 10:25 am

Okay, I've just addressed what was noted and got similar results, although I didn't get the error you pointed out:

Select all

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

23.50.25 JOB02908 ---- MONDAY, 24 SEP 2012 ----
23.50.25 JOB02908 IRR010I USERID C432110 IS ASSIGNED TO THIS JOB.
23.50.25 JOB02908 IEF677I WARNING MESSAGE(S) FOR JOB C432110A ISSUED
23.50.26 JOB02908 ICH70001I C432110 LAST ACCESS AT 22:59:06 ON MONDAY, SEPTEMBER 24, 2012
23.50.26 JOB02908 $HASP373 C432110A STARTED - INIT 1 - CLASS A - SYS S0W1
23.50.26 JOB02908 - -----TIMINGS (MINS.)------ -----PAGING COUNTS----
23.50.26 JOB02908 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
23.50.26 JOB02908 -CLG C 00 209 73 .00 .00 .0 48 BATCH 0 0 0 0
23.50.26 JOB02908 -CLG L 00 20 2 .00 .00 .0 1 BATCH 0 0 0 0
23.50.26 JOB02908 +PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)
23.50.26 JOB02908 IEC141I 013-EC,IGG0191A,C432110A,G,OUTPUT,0D33,VPWRKB, 491
491 C432110.ASM(COPY)
23.50.26 JOB02908 IEA995I SYMPTOM DUMP OUTPUT 492
492 SYSTEM COMPLETION CODE=013 REASON CODE=000000EC
492 TIME=23.50.26 SEQ=00122 CPU=0000 ASID=001B
492 PSW AT TIME OF ERROR 075C1000 80E651C6 ILC 2 INTC 0D
492 NO ACTIVE MODULE FOUND
492 NAME=UNKNOWN
492 DATA AT PSW 00E651C0 - 4100302C 0A0D010D A7E50126
492 AR/GR 0: 007FF3A0/00E65484 1: 00000000/A4013000
492 2: 00000000/00007F00 3: 00000000/00E65458
492 4: 00000000/007C1180 5: 00000000/007C1514
492 6: 00000000/007C14BC 7: 00000000/007C1514
492 8: 00000000/007C14DC 9: 00000000/007CB010
492 A: 00000000/007C7400 B: 00000000/00000000
492 C: 00000000/00000080 D: 00000000/00000080
492 E: 00000000/80E64A24 F: 00000000/000000EC
492 END OF SYMPTOM DUMP
23.50.26 JOB02908 IEF450I C432110A G CLG - ABEND=S013 U0000 REASON=000000EC
23.50.26 JOB02908 -CLG G *S013 10 1 .00 .00 .0 2 BATCH 0 0 0 0
23.50.26 JOB02908 -C432110A ENDED. NAME- TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
23.50.26 JOB02908 $HASP395 C432110A ENDED
------ JES2 JOB STATISTICS ------
24 SEP 2012 JOB EXECUTION DATE
10 CARDS READ
570 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
32 SYSOUT SPOOL KBYTES
0.01 MINUTES EXECUTION TIME
1 //C432110A JOB (ASSY),CLASS=A,MSGCLASS=A, JOB02908
// NOTIFY=&SYSUID,MSGLEVEL=(1,1)
//**************//
IEFC653I SUBSTITUTION JCL - (ASSY),CLASS=A,MSGCLASS=A,NOTIFY=C432110,MSGLEVEL=(1,1)
2 //CLG EXEC PROC=ASMACLG
3 XXASMACLG PROC 00001000
XX* 00002000
XX*** ASMACLG 00003000
XX* 00004000
XX* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER, LINK-EDITS THE 00005000
XX* NEWLY ASSEMBLED PROGRAM AND RUNS THE PROGRAM AFTER 00006000
XX* THE LINK-EDIT IS ACCOMPLISHED. 00007000
XX* 00008000
4 XXC EXEC PGM=ASMA90 00009000
5 //C.SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
X/SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00010000
6 // DD DSN=C432110.MACLIB,DISP=SHR
7 // DD DSN=SYS1.AMODGEN,DISP=SHR
8 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND),UNIT=VIO, 00011000
XX DCB=BUFNO=1 00012000
9 XXSYSPRINT DD SYSOUT=* 00013000
10 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND),UNIT=VIO, 00014000
XX DISP=(MOD,PASS), 00015000
XX DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1) 00016000
11 //C.SYSIN DD DSN=C432110.ASM(LAB03),DISP=SHR
12 XXL EXEC PGM=HEWL,PARM='MAP,LET,LIST',COND=(8,LT,C) 00017000
13 XXSYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 00018000
14 XX DD DDNAME=SYSIN 00019000
15 XXSYSLMOD DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1,1)), 00020000
XX DSN=&&GOSET(GO) 00021000
16 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO, 00022000
XX DCB=BUFNO=1 00023000
17 XXSYSPRINT DD SYSOUT=* 00024000
18 XXG EXEC PGM=*.L.SYSLMOD,COND=((8,LT,C),(8,LT,L)) 00025000
19 //G.INPUT DD DSN=C432110.ASM(LAB03),DISP=SHR
20 //G.OUTPUT DD DSN=C432110.ASM(COPY),DISP=SHR
STMT NO. MESSAGE
2 IEFC001I PROCEDURE ASMACLG WAS EXPANDED USING SYSTEM LIBRARY SYS1.PROCLIB
18 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
ICH70001I C432110 LAST ACCESS AT 22:59:06 ON MONDAY, SEPTEMBER 24, 2012
IEF236I ALLOC. FOR C432110A C CLG
IEF237I 1001 ALLOCATED TO SYSLIB
IEF237I 0D33 ALLOCATED TO
IEF237I 1007 ALLOCATED TO
IGD100I VIO ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD100I VIO ALLOCATED TO DDNAME SYSLIN DATACLAS ( )
IEF237I 0D33 ALLOCATED TO SYSIN
IEF142I C432110A C CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYS1.MACLIB KEPT
IEF285I VOL SER NOS= VTMVSC.
IEF285I C432110.MACLIB KEPT
IEF285I VOL SER NOS= VPWRKB.
IEF285I SYS1.AMODGEN KEPT
IEF285I VOL SER NOS= VDMVSB.
IEF285I SYS12268.T235025.RA000.C432110A.SYSUT1.H01 DELETED
IEF285I C432110.C432110A.JOB02908.D0000101.? SYSOUT
IEF285I SYS12268.T235025.RA000.C432110A.OBJ.H01 PASSED
IEF285I C432110.ASM KEPT
IEF285I VOL SER NOS= VPWRKB.
IEF373I STEP/C /START 2012268.2350
IEF032I STEP/C /STOP 2012268.2350
CPU: 0 HR 00 MIN 00.04 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 228K SYS: 252K EXT: 32768K SYS: 11964K
IEF236I ALLOC. FOR C432110A L CLG
IEF237I VIO ALLOCATED TO SYSLIN
IEF237I DMY ALLOCATED TO
IGD100I VIO ALLOCATED TO DDNAME SYSLMOD DATACLAS ( )
IGD100I VIO ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF142I C432110A L CLG - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYS12268.T235025.RA000.C432110A.OBJ.H01 DELETED
IEF285I SYS12268.T235025.RA000.C432110A.GOSET.H01 PASSED
IEF285I SYS12268.T235025.RA000.C432110A.SYSUT1.H01 DELETED
IEF285I C432110.C432110A.JOB02908.D0000102.? SYSOUT
IEF373I STEP/L /START 2012268.2350
IEF032I STEP/L /STOP 2012268.2350
CPU: 0 HR 00 MIN 00.00 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 104K SYS: 260K EXT: 1768K SYS: 11108K
IEF236I ALLOC. FOR C432110A G CLG
IEF237I VIO ALLOCATED TO PGM=*.DD
IEF237I 0D33 ALLOCATED TO INPUT
IEF237I 0D33 ALLOCATED TO OUTPUT
PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)
IEC141I 013-EC,IGG0191A,C432110A,G,OUTPUT,0D33,VPWRKB,
C432110.ASM(COPY)
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013 REASON CODE=000000EC
TIME=23.50.26 SEQ=00122 CPU=0000 ASID=001B
PSW AT TIME OF ERROR 075C1000 80E651C6 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00E651C0 - 4100302C 0A0D010D A7E50126
AR/GR 0: 007FF3A0/00E65484 1: 00000000/A4013000
2: 00000000/00007F00 3: 00000000/00E65458
4: 00000000/007C1180 5: 00000000/007C1514
6: 00000000/007C14BC 7: 00000000/007C1514
8: 00000000/007C14DC 9: 00000000/007CB010
A: 00000000/007C7400 B: 00000000/00000000
C: 00000000/00000080 D: 00000000/00000080
E: 00000000/80E64A24 F: 00000000/000000EC
END OF SYMPTOM DUMP
IEF472I C432110A G CLG - COMPLETION CODE - SYSTEM=013 USER=0000 REASON=000000EC
IEF285I SYS12268.T235025.RA000.C432110A.GOSET.H01 KEPT
IEF285I C432110.ASM KEPT
IEF285I VOL SER NOS= VPWRKB.
IEF285I C432110.ASM KEPT
IEF285I VOL SER NOS= VPWRKB.
IEF373I STEP/G /START 2012268.2350
IEF032I STEP/G /STOP 2012268.2350
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 40K SYS: 264K EXT: 8K SYS: 11920K
IEF285I SYS12268.T235025.RA000.C432110A.GOSET.H01 DELETED
IEF375I JOB/C432110A/START 2012268.2350
IEF033I JOB/C432110A/STOP 2012268.2350
CPU: 0 HR 00 MIN 00.05 SEC SRB: 0 HR 00 MIN 00.00 SEC

High Level Assembler Option Summary (PTF UK81558) Page 1
HLASM R6.0 2012/09/24 23.50
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 R6.0 2012/09/24 23.50
COPY SD 00000001 00000000 0000022E 00

Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2012/09/24 23.50
1 COPY SETUP
000000 00000 0022E 3+COPY CSECT 01-SETUP

5+* SAVE REGISTERS
6+ SAVE (14,12),,COPY-09/24/12-23.50 01-SETUP
000000 47F0 F018 00018 9+ B 24(0,15) BRANCH AROUND ID 02-SAVE
000004 13 10+ DC AL1(19) LENGTH OF IDENTIFIER 02-SAVE
000005 C3D6D7E860F0F961 11+ DC CL8'COPY-09/' IDENTIFIER 02-SAVE
00000D F2F461F1F260F2F3 12+ DC CL8'24/12-23' IDENTIFIER 02-SAVE
000015 4BF5F0 13+ DC CL3'.50' IDENTIFIER 02-SAVE
000018 90EC D00C 0000C 14+ STM 14,12,12(13) SAVE REGISTERS 02-SAVE

16+* ESTABLISH ADDRESSABILITY FOR PROGRAM
00001C 18CF 17+ LR 12,15 ESTABLISH FIRST BASE REGISTER 01-SETUP
R:C 00000 18+ USING COPY,12 01-SETUP

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

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

PROGRAM 4 80/80 LISTING Page 5
Active Usings: COPY,R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R6.0 2012/09/24 23.50
64 PRINT NOGEN
000038 A715 001A 0006C 65 WTO 'PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)'
00006E 0700 74 OPEN (INFILE,(INPUT))
00007A 0700 81 OPEN (OUTFILE,(OUTPUT))
88 * WTO 'Files opened successfully'
89 * ZAP NUM,=P'2'
90 * ZAP NUM2,=P'1'
91 * MVC CHAR1,=C'9'
92 *
93 *LOOP EQU *
94 * GET INFILE,IRECORD
95 ** MVC ORECORD,=CL133' '
97 ******** MVC ORECORD(80),IRECORD
98 ******** MVC ORECORD(10),=C' '
100 * MVC ORECORD+10(62),IRECORD
101 * PACK NUM,CHAR1
102 *
103 * AP NUM,NUM2
105 * UNPK CHAR1,NUM
106 * OI CHAR1,X'F0'
107 * MVC ORECORD(2),CHAR1
109 * PUT OUTFILE,ORECORD
110 * B LOOP
111 *
00086 112 EOF EQU *
000086 0700 113 CLOSE (INFILE,,OUTFILE)
122 * CLOSE (INFILE)
000096 0700 123 WTO 'PROG4 ENDED OK'
0000B0 58D0 D004 00004 132 ENDIT
138+ FREEMAIN R,LV=72,A=(1) 01-ENDIT
146+ RETURN (14,12),T,RC=0 01-ENDIT
153 INFILE DCB DDNAME=INPUT, X
DSORG=PS, X
EODAD=EOF, X
LRECL=80, X
RECFM=FB, X
0000D0 0000000000000000 MACRF=(GM)
195 *
196 OUTFILE DCB DDNAME=OUTPUT, X
LRECL=100, X
DSORG=PS, X
RECFM=FB, X
MACRF=(PM), X
000130 0000000000000000 BLKSIZE=130
238 *
000190 239 CHAR1 DS CL2
000192 240 NUM DS PL2
000194 241 NUM2 DS PL2
000196 4040404040404040 242 IRECORD DC CL80' '
0001E6 4040404040404040 243 ORECORD DC CL72' '
000000 244 END COPY

Relocation Dictionary Page 6
Pos.Id Rel.Id Address Type Action HLASM R6.0 2012/09/24 23.50
00000001 00000001 00000075 A 3 +
00000001 00000001 00000081 A 3 +
00000001 00000001 0000008D A 3 +
00000001 00000001 00000091 A 3 +
00000001 00000001 000000F1 A 3 +

Ordinary Symbol and Literal Cross Reference Page 7
Symbol Length Value Id R Type Asm Program Defn References HLASM R6.0 2012/09/24 23.50
COPY 1 00000000 00000001 J 3 18U 244
EOF 1 00000086 00000001 U 112 170
IHB0007A 2 0000006C 00000001 H H 72 68B
IHB0015A 2 000000AE 00000001 H H 130 126B
INFILE 4 000000D0 00000001 F F 158 79 118
OUTFILE 4 00000130 00000001 F F 201 86 120

Unreferenced Symbols Defined in CSECTs Page 8
Defn Symbol HLASM R6.0 2012/09/24 23.50
55 BE
50 BH
51 BL
52 BM
53 BNE
59 BNH
57 BNL
58 BNM
61 BNO
60 BNP
54 BNZ
48 BO
49 BP
56 BZ
239 CHAR1
242 IRECORD
240 NUM
241 NUM2
243 ORECORD
32 R0
33 R1
42 R10
43 R11
44 R12
45 R13
46 R14
47 R15
34 R2
35 R3
36 R4
37 R5
38 R6
39 R7
40 R8
41 R9

Macro and Copy Code Source Summary Page 9
Con Source Volume Members HLASM R6.0 2012/09/24 23.50
L1 SYS1.MACLIB VTMVSC CLOSE DCB FREEMAIN GETMAIN IHB01 OPEN
RETURN SAVE SYSSTATE WTO
L2 C432110.MACLIB VPWRKB ENDIT SETUP

Using Map Page 10
HLASM R6.0 2012/09/24 23.50
Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text
Count Id Type Value Range Id Disp Stmt
18 0000001E 00000001 USING ORDINARY 00000000 00001000 00000001 12 00094 116 COPY,12

General Purpose Register Cross Reference Page 11
Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R6.0 2012/09/24 23.50
0(0) 14 24M 29M 141M 149M
1(1) 14 25M 27 28 29M 68M 77M 84M 116M 126M 137M 142M 142 149M
2(2) 14 149M
3(3) 14 149M
4(4) 14 149M
5(5) 14 149M
6(6) 14 149M
7(7) 14 149M
8(8) 14 149M
9(9) 14 149M
10(A) 14 149M
11(B) 14 149M
12(C) 14 17M 18U 149M
13(D) 14 27 28 29 30M 30 134M 134 137 149 150
14(E) 14 149M 152B
15(F) 9 14 17 149M 151M

Diagnostic Cross Reference and Assembler Summary Page 12
HLASM R6.0 2012/09/24 23.50
No Statements Flagged in this Assembly
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 6.0, PTF UK81558
SYSTEM: z/OS 01.13.00 JOBNAME: C432110A STEPNAME: CLG PROCSTEP: C
Data Sets Allocated for this Assembly
Con DDname Data Set Name Volume Member
P1 SYSIN C432110.ASM VPWRKB LAB03
L1 SYSLIB SYS1.MACLIB VTMVSC
L2 C432110.MACLIB VPWRKB
L3 SYS1.AMODGEN VDMVSB
SYSLIN SYS12268.T235025.RA000.C432110A.OBJ.H01
SYSPRINT C432110.C432110A.JOB02908.D0000101.?

32072K allocated to Buffer Pool Storage required 972K
55 Primary Input Records Read 11237 Library Records Read 0 Work File Reads
0 ASMAOPT Records Read 282 Primary Print Records Written 0 Work File Writes
14 Object Records Written 0 ADATA Records Written
Assembly Start Time: 23.50.26 Stop Time: 23.50.26 Processor Time: 00.00.00.0332
Return Code 000
z/OS V1 R13 BINDER 23:50:25 MONDAY SEPTEMBER 24, 2012
BATCH EMULATOR JOB(C432110A) STEP(CLG ) PGM= HEWL PROCEDURE(L )
IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST

*** M O D U L E M A P ***

---------------
CLASS B_TEXT LENGTH = 22E ATTRIBUTES = CAT, LOAD, RMODE= 24
OFFSET = 0 IN SEGMENT 001 ALIGN = DBLWORD
---------------

SECTION CLASS ------- SOURCE --------
OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER

0 COPY CSECT 22E SYSLIN 01 **NULL**
*** DATA SET SUMMARY ***

DDNAME CONCAT FILE IDENTIFICATION

SYSLIN 01 SYS12268.T235025.RA000.C432110A.OBJ.H01

*** E N D O F M O D U L E M A P ***

*** O P E R A T I O N S U M M A R Y R E P O R T ***

PROCESSING OPTIONS:

ALIASES NO
ALIGN2 NO
AMODE UNSPECIFIED
CALL YES
CASE UPPER
COMPAT UNSPECIFIED
COMPRESS AUTO
DCBS NO
DYNAM NO
EXTATTR UNSPECIFIED
EXITS: NONE
FILL NONE
GID UNSPECIFIED
HOBSET NO
INFO NO
LET 08
LINECT 060
LIST SUMMARY
LISTPRIV NO
MAP YES
MAXBLK 032760
MODMAP NO
MSGLEVEL 00
OVLY NO
PRINT YES
RES NO
REUSABILITY UNSPECIFIED
RMODE UNSPECIFIED
SIGN NO
STORENX NOREPLACE
STRIPCL NO
STRIPSEC NO
TERM NO
TRAP ON
UID UNSPECIFIED
UPCASE NO
WKSPACE 000000K,000000K
XCAL NO
XREF NO
***END OF OPTIONS***

SAVE OPERATION SUMMARY:

MEMBER NAME GO
LOAD LIBRARY SYS12268.T235025.RA000.C432110A.GOSET.H01
PROGRAM TYPE LOAD MODULE
VOLUME SERIAL
MAX BLOCK 32760
DISPOSITION ADDED NEW
TIME OF SAVE 23.50.26 SEP 24, 2012

SAVE MODULE ATTRIBUTES:

AC 000
AMODE 24
COMPRESSION NONE
DC NO
EDITABLE YES
EXCEEDS 16MB NO
EXECUTABLE YES
MIGRATABLE YES
OL NO
OVLY NO
PACK,PRIME NO,NO
PAGE ALIGN NO
REFR NO
RENT NO
REUS NO
RMODE 24
SCTR NO
SIGN NO
SSI
SYM GENERATED NO
TEST NO
XPLINK NO
MODULE SIZE (HEX) 00000230

ENTRY POINT AND ALIAS SUMMARY:

NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS

COPY MAIN_EP 24 00000000 B_TEXT

*** E N D O F O P E R A T I O N S U M M A R Y R E P O R T ***

z/OS V1 R13 BINDER 23:50:25 MONDAY SEPTEMBER 24, 2012
BATCH EMULATOR JOB(C432110A) STEP(CLG ) PGM= HEWL PROCEDURE(L )
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0.

----------------------
MESSAGE SUMMARY REPORT
----------------------
TERMINAL MESSAGES (SEVERITY = 16)
NONE

SEVERE MESSAGES (SEVERITY = 12)
NONE

ERROR MESSAGES (SEVERITY = 08)
NONE

WARNING MESSAGES (SEVERITY = 04)
NONE

INFORMATIONAL MESSAGES (SEVERITY = 00)
2008 2278

**** END OF MESSAGE SUMMARY REPORT ****

by **steve-myers** » Tue Sep 25, 2012 11:00 am

What you want to do is lookup message IEC141I. It will tell you exactly what you did wrong.

by **RISCCISCInstSet** » Tue Sep 25, 2012 1:17 pm

Open error. It looks like my file isn't loading right. :geek:

by **BillyBoyo** » Tue Sep 25, 2012 2:05 pm

Select all

EC
An OPEN macro instruction was issued with a DCB that specified an LRECL value different from that specified by the format-1 DSCB. The data set was a PDSE. For data sets in the compressed format, this return code is issued only if the data set is open for output and RECFM=FB.

What is the LRECL of your actual output dataset? Same as your input (DD statement specifies a different member on same PDS(E it turns out to be). What have you specified in your program?

by **RISCCISCInstSet** » Tue Sep 25, 2012 2:29 pm

Select all

INFILE DCB DDNAME=INPUT, X
DSORG=PS, X
EODAD=EOF, X
LRECL=80, X
RECFM=FB, X
MACRF=(GM)
*
OUTFILE DCB DDNAME=OUTPUT, X
LRECL=100, X
DSORG=PS, X
RECFM=FB, X
MACRF=(PM), X
BLKSIZE=130

(Hmm, I thought I messed up something in the JCL.

)

by **BillyBoyo** » Tue Sep 25, 2012 2:41 pm

I see now you also have the "interesting" situation of specifying a BLKSIZE of 130, which works for neither 100 nor 80 LRECL. I'd ditch that.

IBM Mainframe Forum

IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP

IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST

Re: IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR ST