IBM Mainframe Forum

by **hakghen** » Sat Nov 15, 2008 2:47 am

Hello again,

I have to compile a specific assembler code:

ADD TITLE 'contest program'
ADD CSECT
ADD AMODE 31
ADD RMODE 24
*
*--------------------------------------------------------------------*
* *
* register equates *
* *
*--------------------------------------------------------------------*
*
R0 EQU 0 register 0
R1 EQU 1 register 1
R2 EQU 2 register 2
R3 EQU 3 register 3
R4 EQU 4 register 4
R5 EQU 5 register 5
R6 EQU 6 register 6
R7 EQU 7 register 7
R8 EQU 8 register 8
R9 EQU 9 register 9
R10 EQU 10 register 10
R11 EQU 11 register 11
BASEREG EQU 12 base register
SAVEREG EQU 13 save area register
RETREG EQU 14 caller's return address
ENTRYREG EQU 15 entry address
RETCODE EQU 15 return code
EJECT
*
*--------------------------------------------------------------------*
* *
* standard entry setup, save area chaining, establish *
* base register and addressibility *
* *
*--------------------------------------------------------------------*
*
USING ADD,ENTRYREG establish addressibility
B SETUP branch around eyecatcher
DC CL8'ADD' program name
DC CL8'&SYSDATE' program assembled date
SETUP STM RETREG,BASEREG,12(SAVEREG) save caller's registers
BALR BASEREG,R0 establish base register
DROP ENTRYREG drop initial base register
USING *,BASEREG establish addressibilty
LA ENTRYREG,SAVEAREA point to this program save area
ST SAVEREG,4(,ENTRYREG) save address of caller's save
* area
ST ENTRYREG,8(,SAVEREG) save address of this program
* save area
LR SAVEREG,ENTRYREG point to this program savearea
EJECT
*
*--------------------------------------------------------------------*
* *
* program body *
* *
*--------------------------------------------------------------------*
LOOPINIT DS 0H
OPEN (PRTLINE,OUTPUT)
MVC LINE+1(77),STATLIN
L R2,COUNTER
*
LOOP DS 0H
*
ED OUT,TOT
MVC LINE+77(6),OUT
PUT PRTLINE,LINE
MVC OUT,=X'402020202020'
AP TOT,ONE
*
BCT 2,LOOP
*
CLOSE (PRTLINE)
*
*--------------------------------------------------------------------*
* *
* standard exit - restore caller's registers and *
* return to caller *
* *
*--------------------------------------------------------------------*
*
EXIT DS 0H halfword boundary alignment
L SAVEREG,4(,SAVEREG) restore caller's save area addr
L RETREG,12(,SAVEREG) restore return address register
LM R0,BASEREG,20(SAVEREG) restore all regs. except reg15
BR RETREG return to caller
EJECT
*
*--------------------------------------------------------------------*
* *
* storage and constant definitions. *
* print output definition. *
* *
*--------------------------------------------------------------------*
*
STATLIN DS 0CL77
DC C'WELCOME TO THE MAINFRAME CHALLENGE!! '
DC C'THIS IS THE CONTENT OF YOUR TOT COUNTER '
*
LINE DS 0CL81
DC C' '
DS CL80
PRTLINE DCB DSORG=PS,DDNAME=PRTLINE,MACRF=PM, X
RECFM=FA,LRECL=83,BLKSIZE=83
ONE DC P'01'
TOT DC PL3'1000'
OUT DC X'402020202020'
SAVEAREA DC 18F'-1' register save area
COUNTER DC F'9001'
END ADD

Using this JCL.:

Select all

//ADD JOB 1,NOTIFY=&SYSUID,MSGCLASS=H
//**************************************************
//* COMPILE ASSEMBLER PROGRAM
//**************************************************
//STEP1 EXEC HLASMCL
//C.SYSIN DD DSN=ZOS.CONTEST(ASM010),DISP=SHR
//L.SYSLMOD DD DSN=ZCON039.PART3.LOAD(ADD),DISP=SHR
// IF RC = 0 THEN
//STEP2 EXEC PGM=ADD
//STEPLIB DD DSN=ZCON039.PART3.LOAD,DISP=SHR
//PRTLINE DD SYSOUT=*
// ELSE
// ENDIF

I already made the necessary fixes to the code, I had to optimize it to use less system resources and modify it to count from 1000 to 10000. However, when submitting the compiling job, I get this output and an error.:

Select all

1 J E S 2 J O B L O G -- S Y S T E M M V S T -- N O D E T S T M V S 0 1
0
20.56.49 JOB08432 ---- FRIDAY, 14 NOV 2008 ----
20.56.49 JOB08432 IRR010I USERID ZCON039 IS ASSIGNED TO THIS JOB.
20.56.49 JOB08432 IEF677I WARNING MESSAGE(S) FOR JOB ADD ISSUED
20.56.49 JOB08432 ICH70001I ZCON039 LAST ACCESS AT 20:25:24 ON FRIDAY, NOVEMBER 14, 2008
20.56.49 JOB08432 $HASP373 ADD STARTED - INIT 1 - CLASS A - SYS MVST
20.56.49 JOB08432 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
20.56.49 JOB08432 -JOBNAME STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK SERV PG PAGE SWAP VIO SWAPS STEPNO
20.56.49 JOB08432 -ADD STEP1 C FLUSH 0 .00 .00 .00 0 0 0 0 0 0 1
20.56.49 JOB08432 IEF453I ADD - JOB FAILED - JCL ERROR
20.56.49 JOB08432 -ADD ENDED. NAME- TOTAL CPU TIME= .00 TOTAL ELAPSED TIME= .00
20.56.49 JOB08432 -NOT_EXECUTED_STEP_TABLE BEGIN
20.56.49 JOB08432 -JOBNAME STEPNAME PROCSTEP STEPNO
20.56.49 JOB08432 -ADD STEP1 C 1
20.56.49 JOB08432 -ADD STEP1 L 2
20.56.49 JOB08432 -ADD STEP2 3
20.56.49 JOB08432 -NOT_EXECUTED_STEP_TABLE END
20.56.49 JOB08432 $HASP395 ADD ENDED
0------ JES2 JOB STATISTICS ------
- 14 NOV 2008 JOB EXECUTION DATE
- 13 CARDS READ
- 91 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 7 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
!! END OF JES SPOOL FILE !!
1 //ADD JOB 1,NOTIFY=&SYSUID,MSGCLASS=H JOB08432
//**************************************************
//* COMPILE ASSEMBLER PROGRAM
//**************************************************
IEFC653I SUBSTITUTION JCL - 1,NOTIFY=ZCON039,MSGCLASS=H
2 //STEP1 EXEC HLASMCL
3 XXASMACL PROC 00001000
XX* 00002000
XX******************************************************************** 00003000
XX* Licensed Materials - Property of IBM * 00004000
XX* * 00005000
XX* 5696-234 * 00006000
XX* * 00007000
XX* (c) Copyright IBM Corp. 1992, 1998. All Rights Reserved. * 00008000
XX* * 00009000
XX* US Government Users Restricted Rights - Use, * 00010000
XX* duplication or disclosure restricted by GSA ADP * 00011000
XX* Schedule Contract with IBM Corp. * 00012000
XX* * 00013000
XX******************************************************************** 00014000
XX* * 00015000
XX* ASMACL * 00016000
XX* * 00017000
XX* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER, LINK-EDITS THE * 00018000
XX* NEWLY ASSEMBLED PROGRAM. * 00019000
XX* * 00020000
XX******************************************************************** 00021000
XX* 00022000
4 XXC EXEC PGM=ASMA90 00023000
5 XXSYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00024000
6 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND), 00025000
XX UNIT=SYSALLDA,DCB=BUFNO=1 00026000
7 XXSYSPRINT DD SYSOUT=* 00027000
8 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND), 00028000
XX UNIT=SYSALLDA,DISP=(MOD,PASS), 00029000
XX DCB=(BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1) 00030000
9 //C.SYSIN DD DSN=ZCON039.ANSWERS(ASM010),DISP=SHR
10 XXL EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,C) 00031000
11 XXSYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 00032000
12 XX DD DDNAME=SYSIN 00033000
13 //L.SYSLMOD DD DSN=ZCON039.PART3.LOAD(ADD),DISP=SHR
X/SYSLMOD DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)), 00034000
X/ DSN=&&GOSET(GO) 00035000
14 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND), 00036000
XX UNIT=SYSALLDA,DCB=BUFNO=1 00037000
15 XXSYSPRINT DD SYSOUT=* 00038000
16 // IF RC = 0 THEN
17 //STEP2 EXEC PGM=ADD
18 //STEPLIB DD DSN=ZCON039.PART3.LOAD,DISP=SHR
19 //PRTLINE DD SYSOUT=*
20 // ELSE
21 // ENDIF
!! END OF JES SPOOL FILE !!
STMT NO. MESSAGE
2 IEFC001I PROCEDURE HLASMCL WAS EXPANDED USING SYSTEM LIBRARY CENTER.PROCLIB
17 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
6 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
8 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
14 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
ICH70001I ZCON039 LAST ACCESS AT 20:25:24 ON FRIDAY, NOVEMBER 14, 2008
IEF212I ADD C STEP1 SYSIN - DATA SET NOT FOUND
IEF272I ADD C STEP1 - STEP WAS NOT EXECUTED.
IEF373I STEP/C /START 2008319.2056
IEF374I STEP/C /STOP 2008319.2056 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF375I JOB/ADD /START 2008319.2056
IEF376I JOB/ADD /STOP 2008319.2056 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC
!! END OF JES SPOOL FILE !!

Could anybody drop me some help? >_> I'd also appreciate if somebody more experienced took a look at the code and see if everything is OK with it, as I don't have much experience in Assembler Coding

Thanks in advance,

[]'s!

by **MrSpock** » Sat Nov 15, 2008 3:37 am

According to your JCL, you specified

//C.SYSIN DD DSN=ZOS.CONTEST(ASM010),DISP=SHR

for your program input. The job failed:

20.56.49 JOB08432 IEF453I ADD - JOB FAILED - JCL ERROR

showing that this dataset was allocated for C.SYSIN

9 //C.SYSIN DD DSN=ZCON039.ANSWERS(ASM010),DISP=SHR

and the reason the job failed

IEF212I ADD C STEP1 SYSIN - DATA SET NOT FOUND

by **hakghen** » Sat Nov 15, 2008 4:08 am

Hello, thanks for replying!

I just noted this error and fixed, seems like it compiled, as I got the following output:

Select all

1 J E S 2 J O B L O G -- S Y S T E M M V S T -- N O D E T S T M V S 0 1
0
22.24.34 JOB08458 ---- FRIDAY, 14 NOV 2008 ----
22.24.34 JOB08458 IRR010I USERID ZCON039 IS ASSIGNED TO THIS JOB.
22.24.34 JOB08458 IEF677I WARNING MESSAGE(S) FOR JOB ADD ISSUED
22.24.34 JOB08458 ICH70001I ZCON039 LAST ACCESS AT 22:20:14 ON FRIDAY, NOVEMBER 14, 2008
22.24.34 JOB08458 $HASP373 ADD STARTED - INIT 1 - CLASS A - SYS MVST
22.24.35 JOB08458 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
22.24.35 JOB08458 -JOBNAME STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK SERV PG PAGE SWAP VIO SWAPS STEPNO
22.24.35 JOB08458 -ADD STEP1 C 08 103 .00 .00 .00 5292 0 0 0 0 0 1
22.24.35 JOB08458 -ADD STEP1 L 00 55 .00 .00 .00 1613 0 0 0 0 0 2
22.24.35 JOB08458 -ADD STEP2 FLUSH 0 .00 .00 .00 0 0 0 0 0 0 3
22.24.35 JOB08458 -ADD ENDED. NAME- TOTAL CPU TIME= .00 TOTAL ELAPSED TIME= .00
22.24.35 JOB08458 $HASP395 ADD ENDED
0------ JES2 JOB STATISTICS ------
- 14 NOV 2008 JOB EXECUTION DATE
- 13 CARDS READ
- 587 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 37 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
!! END OF JES SPOOL FILE !!
1 //ADD JOB 1,NOTIFY=&SYSUID,MSGCLASS=H JOB08458
//**************************************************
//* COMPILE ASSEMBLER PROGRAM
//**************************************************
IEFC653I SUBSTITUTION JCL - 1,NOTIFY=ZCON039,MSGCLASS=H
2 //STEP1 EXEC HLASMCL
3 XXASMACL PROC 00001000
XX* 00002000
XX******************************************************************** 00003000
XX* Licensed Materials - Property of IBM * 00004000
XX* * 00005000
XX* 5696-234 * 00006000
XX* * 00007000
XX* (c) Copyright IBM Corp. 1992, 1998. All Rights Reserved. * 00008000
XX* * 00009000
XX* US Government Users Restricted Rights - Use, * 00010000
XX* duplication or disclosure restricted by GSA ADP * 00011000
XX* Schedule Contract with IBM Corp. * 00012000
XX* * 00013000
XX******************************************************************** 00014000
XX* * 00015000
XX* ASMACL * 00016000
XX* * 00017000
XX* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER, LINK-EDITS THE * 00018000
XX* NEWLY ASSEMBLED PROGRAM. * 00019000
XX* * 00020000
XX******************************************************************** 00021000
XX* 00022000
4 XXC EXEC PGM=ASMA90 00023000
5 XXSYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00024000
6 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND), 00025000
XX UNIT=SYSALLDA,DCB=BUFNO=1 00026000
7 XXSYSPRINT DD SYSOUT=* 00027000
8 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND), 00028000
XX UNIT=SYSALLDA,DISP=(MOD,PASS), 00029000
XX DCB=(BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1) 00030000
9 //C.SYSIN DD DSN=ZCON039.ZOS.ANSWERS(ASM010),DISP=SHR
10 XXL EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,C) 00031000
11 XXSYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 00032000
12 XX DD DDNAME=SYSIN 00033000
13 //L.SYSLMOD DD DSN=ZCON039.PART3.LOAD(ADD),DISP=SHR
X/SYSLMOD DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)), 00034000
X/ DSN=&&GOSET(GO) 00035000
14 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND), 00036000
XX UNIT=SYSALLDA,DCB=BUFNO=1 00037000
15 XXSYSPRINT DD SYSOUT=* 00038000
16 // IF RC = 0 THEN
17 //STEP2 EXEC PGM=ADD
18 //STEPLIB DD DSN=ZCON039.PART3.LOAD,DISP=SHR
19 //PRTLINE DD SYSOUT=*
20 // ELSE
21 // ENDIF
!! END OF JES SPOOL FILE !!
STMT NO. MESSAGE
2 IEFC001I PROCEDURE HLASMCL WAS EXPANDED USING SYSTEM LIBRARY CENTER.PROCLIB
17 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
6 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
8 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
14 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
ICH70001I ZCON039 LAST ACCESS AT 22:20:14 ON FRIDAY, NOVEMBER 14, 2008
IEF236I ALLOC. FOR ADD C STEP1
IEF237I 2744 ALLOCATED TO SYSLIB
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS08319.T222434.RA000.ADD.SYSUT1.H01 )
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTP07
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN )
DSN (SYS08319.T222434.RA000.ADD.OBJ.H01 )
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTP01
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IEF142I ADD C STEP1 - STEP WAS EXECUTED - COND CODE 0008
IEF285I SYS1.MACLIB KEPT
IEF285I VOL SER NOS= DMTCAT.
IGD105I SYS08319.T222434.RA000.ADD.SYSUT1.H01 DELETED, DDNAME=SYSUT1
IEF285I ZCON039.ADD.JOB08458.D0000101.? SYSOUT
IGD106I SYS08319.T222434.RA000.ADD.OBJ.H01 PASSED, DDNAME=SYSLIN
IGD104I ZCON039.ZOS.ANSWERS RETAINED, DDNAME=SYSIN
IEF373I STEP/C /START 2008319.2224
IEF374I STEP/C /STOP 2008319.2224 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 176K SYS 336K EXT 32768K SYS 11308K
IEF236I ALLOC. FOR ADD L STEP1
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IEF237I DMY ALLOCATED TO
IGD103I SMS ALLOCATED TO DDNAME SYSLMOD
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS08319.T222434.RA000.ADD.SYSUT1.H01 )
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTP06
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF142I ADD L STEP1 - STEP WAS EXECUTED - COND CODE 0000
IGD105I SYS08319.T222434.RA000.ADD.OBJ.H01 DELETED, DDNAME=SYSLIN
IGD104I ZCON039.PART3.LOAD RETAINED, DDNAME=SYSLMOD
IGD105I SYS08319.T222434.RA000.ADD.SYSUT1.H01 DELETED, DDNAME=SYSUT1
IEF285I ZCON039.ADD.JOB08458.D0000102.? SYSOUT
IEF373I STEP/L /START 2008319.2224
IEF374I STEP/L /STOP 2008319.2224 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 92K SYS 340K EXT 1644K SYS 11092K
IEF206I ADD STEP2 - STEP WAS NOT RUN BECAUSE OF CONDITIONAL EXPRESSION ON STATEMENT 16
IEF272I ADD STEP2 - STEP WAS NOT EXECUTED.
IEF373I STEP/STEP2 /START 2008319.2224
IEF374I STEP/STEP2 /STOP 2008319.2224 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF375I JOB/ADD /START 2008319.2224
IEF376I JOB/ADD /STOP 2008319.2224 CPU 0MIN 00.03SEC SRB 0MIN 00.00SEC
!! END OF JES SPOOL FILE !!
Â¯
High Level Assembler Option Summary (PTF UK08101) Page 1
HLASM R5.0 2008/11/14 22.24
Â² 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))
Â² XREF(SHORT,UNREFS)

Â² No Overriding DD Names
Â¯
ADD External Symbol Dictionary Page 2
Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R5.0 2008/11/14 22.24
Â²ADD SD 00000001 00000000 000001D8 02
Â¯
Â²ADD contest program Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
Â²000000 00000 001D8 2 ADD CSECT
Â² 3 ADD AMODE 31
Â² 4 ADD RMODE 24
Â² 5 *
Â² 6 *--------------------------------------------------------------------*
Â² 7 * *
Â² 8 * register equates *
Â² 9 * *
Â² 10 *--------------------------------------------------------------------*
Â² 11 *
Â² 00000 12 R0 EQU 0 register 0
Â² 00001 13 R1 EQU 1 register 1
Â² 00002 14 R2 EQU 2 register 2
Â² 00003 15 R3 EQU 3 register 3
Â² 00004 16 R4 EQU 4 register 4
Â² 00005 17 R5 EQU 5 register 5
Â² 00006 18 R6 EQU 6 register 6
Â² 00007 19 R7 EQU 7 register 7
Â² 00008 20 R8 EQU 8 register 8
Â² 00009 21 R9 EQU 9 register 9
Â² 0000A 22 R10 EQU 10 register 10
Â² 0000B 23 R11 EQU 11 register 11
Â² 0000C 24 BASEREG EQU 12 base register
Â² 0000D 25 SAVEREG EQU 13 save area register
Â² 0000E 26 RETREG EQU 14 caller's return address
Â² 0000F 27 ENTRYREG EQU 15 entry address
i 0000F 28 RETCODE EQU 15 return code
Â²ADD contest program Page 4
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
Â² 30 *
Â² 31 *--------------------------------------------------------------------*
Â² 32 * *
Â² 33 * standard entry setup, save area chaining, establish *
Â² 34 * base register and addressibility *
Â² 35 * *
Â² 36 *--------------------------------------------------------------------*
Â² 37 *
Â² R:F 00000 38 USING ADD,ENTRYREG establish addressibility
Â²000000 47F0 F014 00014 39 B SETUP branch around eyecatcher
Â²000004 C1C4C44040404040 40 DC CL8'ADD' program name
Â² 41 DC CL8'&SYSDATE' program assembled date
Â²00000C F1F161F1F461F0F8 + DC CL8'11/14/08' program assembled date
Â²000014 90EC D00C 0000C 42 SETUP STM RETREG,BASEREG,12(SAVEREG) save caller's registers
Â²000018 05C0 43 BALR BASEREG,R0 establish base register
Â² 44 DROP ENTRYREG drop initial base register
Â² R:C 0001A 45 USING *,BASEREG establish addressibilty
Â²00001A 41F0 C172 0018C 46 LA ENTRYREG,SAVEAREA point to this program save area
Â²00001E 50D0 F004 00004 47 ST SAVEREG,4(,ENTRYREG) save address of caller's save
Â² 48 * area
Â²000022 50F0 D008 00008 49 ST ENTRYREG,8(,SAVEREG) save address of this program
Â² 50 * save area
i000026 18DF 51 LR SAVEREG,ENTRYREG point to this program savearea
Â²ADD contest program Page 5
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
Â² 53 *
Â² 54 *--------------------------------------------------------------------*
Â² 55 * *
Â² 56 * program body *
Â² 57 * *
Â² 58 *--------------------------------------------------------------------*
Â²000028 59 LOOPINIT DS 0H
Â² 60 OPEN (PRTLINE,OUTPUT)
Â²000028 61+ CNOP 0,4 ALIGN LIST TO FULLWORD 01-OPEN
Â²000028 4510 C016 00030 62+ BAL 1,*+8 LOAD REG1 W/LIST ADDR. @L2A 01-OPEN
Â²00002C 8F 63+ DC AL1(143) OPTION BYTE 01-OPEN
Â²00002D 000120 64+ DC AL3(PRTLINE) DCB ADDRESS 01-OPEN
Â²000030 0A13 65+ SVC 19 ISSUE OPEN SVC 01-OPEN
Â²000032 D24C C0B4 C066 000CE 00080 66 MVC LINE+1(77),STATLIN
Â²000038 5820 C1BA 001D4 67 L R2,COUNTER
Â² 68 *
Â²00003C 69 LOOP DS 0H
Â² 70 *
Â²00003C DE05 C16B C168 00185 00182 71 ED OUT,TOT
Â²000042 D205 C100 C16B 0011A 00185 72 MVC LINE+77(6),OUT
Â² 73 PUT PRTLINE,LINE
Â²000048 4110 C106 00120 75+ LA 1,PRTLINE LOAD PARAMETER REG 1 02-IHBIN
Â²00004C 4100 C0B3 000CD 76+ LA 0,LINE LOAD PARAMETER REG 0 02-IHBIN
Â²000050 1FFF 77+ SLR 15,15 CLEAR REGISTER @L1A 01-PUT
Â²000052 BFF7 1031 00031 78+ ICM 15,7,49(1) LOAD PUT ROUTINE ADDR @L1C 01-PUT
Â²000056 05EF 79+ BALR 14,15 LINK TO PUT ROUTINE 01-PUT
Â²000058 0000 0000 0000 00000 00000 80 MVC OUT,X'402020202020'
Â²** ASMA146E Self-defining term too long or value too large - X'402020202020'
Â²** ASMA435I Record 69 in ZCON039.ZOS.ANSWERS(ASM010) on volume: SHAR0A
Â²00005E FA21 C168 C166 00182 00180 81 AP TOT,ONE
Â² 82 *
Â²000064 4620 C022 0003C 83 BCT 2,LOOP
Â² 84 *
Â² 85 CLOSE (PRTLINE)
Â²000068 86+ CNOP 0,4 ALIGN LIST TO FULLWORD 01-CLOSE
Â²000068 4510 C056 00070 87+ BAL 1,*+8 LOAD REG1 W/LIST ADDR. @L2A 01-CLOSE
Â²00006C 80 88+ DC AL1(128) OPTION BYTE 01-CLOSE
Â²00006D 000120 89+ DC AL3(PRTLINE) DCB ADDRESS 01-CLOSE
Â²000070 0A14 90+ SVC 20 ISSUE CLOSE SVC 01-CLOSE
Â² 91 *
Â² 92 *--------------------------------------------------------------------*
Â² 93 * *
Â² 94 * standard exit - restore caller's registers and *
Â² 95 * return to caller *
Â² 96 * *
Â² 97 *--------------------------------------------------------------------*
Â² 98 *
Â²000072 99 EXIT DS 0H halfword boundary alignment
Â²000072 58D0 D004 00004 100 L SAVEREG,4(,SAVEREG) restore caller's save area addr
Â²000076 58E0 D00C 0000C 101 L RETREG,12(,SAVEREG) restore return address register
Â²00007A 980C D014 00014 102 LM R0,BASEREG,20(SAVEREG) restore all regs. except reg15
i00007E 07FE 103 BR RETREG return to caller
Â²ADD contest program Page 6
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
Â² 105 *
Â² 106 *--------------------------------------------------------------------*
Â² 107 * *
Â² 108 * storage and constant definitions. *
Â² 109 * print output definition. *
Â² 110 * *
Â² 111 *--------------------------------------------------------------------*
Â² 112 *
Â²000080 113 STATLIN DS 0CL77
Â²000080 E6C5D3C3D6D4C540 114 DC C'WELCOME TO THE MAINFRAME CHALLENGE!! '
Â²0000A5 E3C8C9E240C9E240 115 DC C'THIS IS THE CONTENT OF YOUR TOT COUNTER '
Â² 116 *
Â²0000CD 117 LINE DS 0CL81
Â²0000CD 40 118 DC C' '
Â²0000CE 119 DS CL80
Â² 120 PRTLINE DCB DSORG=PS,DDNAME=PRTLINE,MACRF=PM, X
RECFM=FA,LRECL=83,BLKSIZE=83
Â² 123+* DATA CONTROL BLOCK
Â² 124+*
Â²00011E 0000
Â²000120 125+PRTLINE DC 0F'0' ORIGIN ON WORD BOUNDARY 01-DCB
Â² 126+* DIRECT ACCESS DEVICE INTERFACE
Â²000120 0000000000000000 127+ DC BL16'0' FDAD, DVTBL 01-DCB
Â²000130 00000000 128+ DC A(0) KEYLEN, DEVT, TRBAL 01-DCB
Â² 129+* COMMON ACCESS METHOD INTERFACE
Â²000134 00 130+ DC AL1(0) BUFNO, NUMBER OF BUFFERS 01-DCB
Â²000135 000001 131+ DC AL3(1) BUFCB, BUFFER POOL CONTROL BLOCK 01-DCB
Â²000138 0000 132+ DC AL2(0) BUFL, BUFFER LENGTH 01-DCB
Â²00013A 4000 133+ DC BL2'0100000000000000' DSORG, DATA SET ORGANIZATION 01-DCB
Â²00013C 00000001 134+ DC A(1) IOBAD FOR EXCP OR RESERVED 01-DCB
Â² 135+* FOUNDATION EXTENSION
Â²000140 00 136+ DC BL1'00000000' BFTEK, BFALN, DCBE INDICATORS 01-DCB
Â²000141 000001 137+ DC AL3(1) EODAD (END OF DATA ROUTINE ADDRESS) 01-DCB
Â²000144 84 138+ DC BL1'10000100' RECFM (RECORD FORMAT) 01-DCB
Â²000145 000000 139+ DC AL3(0) EXLST (EXIT LIST ADDRESS) 01-DCB
Â² 140+* FOUNDATION BLOCK
Â²000148 D7D9E3D3C9D5C540 141+ DC CL8'PRTLINE' DDNAME 01-DCB
Â²000150 02 142+ DC BL1'00000010' OFLGS (OPEN FLAGS) 01-DCB
Â²000151 00 143+ DC BL1'00000000' IFLGS (IOS FLAGS) 01-DCB
Â²000152 0050 144+ DC BL2'0000000001010000' MACR (MACRO FORMAT) 01-DCB
Â² 145+* BSAM-BPAM-QSAM INTERFACE
Â²000154 00 146+ DC BL1'00000000' OPTCD, OPTION CODES 01-DCB
Â²000155 000001 147+ DC AL3(1) CHECK OR INTERNAL QSAM SYNCHRONIZING RTN. 01-DCB
Â²000158 00000001 148+ DC A(1) SYNAD, SYNCHRONOUS ERROR RTN. (3 BYTES) 01-DCB
Â²00015C 0000 149+ DC H'0' INTERNAL ACCESS METHOD FLAGS 01-DCB
Â²00015E 0053 150+ DC AL2(83) BLKSIZE, BLOCK SIZE 01-DCB
Â²000160 00000000 151+ DC F'0' INTERNAL ACCESS METHOD FLAGS 01-DCB
Â²000164 00000001 152+ DC A(1) INTERNAL ACCESS METHOD USE 01-DCB
Â² 153+* QSAM INTERFACE
Â²000168 00000001 154+ DC A(1) EOBAD 01-DCB
Â²00016C 00000001 155+ DC A(1) RECAD 01-DCB
Â²000170 0000 156+ DC H'0' QSWS (FLAGS) AND EITHER DIRCT OR BUFOFF 01-DCB
Â²000172 0053 157+ DC AL2(83) LRECL 01-DCB
i000174 00 158+ DC BL1'00000000' EROPT, ERROR OPTION 01-DCB
Â²ADD contest program Page 7
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/14 22.24
Â²000175 000001 159+ DC AL3(1) CNTRL 01-DCB
Â²000178 00000000 160+ DC H'0,0' RESERVED AND PRECL 01-DCB
Â²00017C 00000001 161+ DC A(1) EOB, INTERNAL ACCESS METHOD FIELD 01-DCB
Â²000180 001C 162 ONE DC P'01'
Â²000182 01000C 163 TOT DC PL3'1000'
Â²000185 402020202020 164 OUT DC X'402020202020'
Â²00018B 00
Â²00018C FFFFFFFFFFFFFFFF 165 SAVEAREA DC 18F'-1' register save area
Â²0001D4 00002329 166 COUNTER DC F'9001'
Â²000000 167 END ADD
Â¯
ADD Relocation Dictionary Page 8
Pos.Id Rel.Id Address Type Action HLASM R5.0 2008/11/14 22.24
Â² 00000001 00000001 0000002D A 3 +
Â² 00000001 00000001 0000006D A 3 +
Â¯
ADD Ordinary Symbol and Literal Cross Reference Page 9
Symbol Length Value Id R Type Asm Program Defn References HLASM R5.0 2008/11/14 22.24
Â²ADD 1 00000000 00000001 J 2 3 4 38U 167
Â²BASEREG 1 0000000C 00000001 A U 24 42 43M 45U 102M
Â²COUNTER 4 000001D4 00000001 F F 166 67
Â²ENTRYREG 1 0000000F 00000001 A U 27 38U 44D 46M 47 49 51
Â²LINE 81 000000CD 00000001 C C 117 66M 72M 76
Â²LOOP 2 0000003C 00000001 H H 69 83B
Â²ONE 2 00000180 00000001 P P 162 81
Â²OUT 6 00000185 00000001 X X 164 71M 72 80M
Â²PRTLINE 4 00000120 00000001 F F 125 64 75 89
Â²RETREG 1 0000000E 00000001 A U 26 42 101M 103B
Â²R0 1 00000000 00000001 A U 12 43B 102M
Â²R2 1 00000002 00000001 A U 14 67M
Â²SAVEAREA 4 0000018C 00000001 F F 165 46
Â²SAVEREG 1 0000000D 00000001 A U 25 42 47 49 51M 100M 100 101 102
Â²SETUP 4 00000014 00000001 I 42 39B
Â²STATLIN 77 00000080 00000001 C C 113 66
Â²TOT 3 00000182 00000001 P P 163 71 81M
Â¯
ADD Unreferenced Symbols Defined in CSECTs Page 10
Defn Symbol HLASM R5.0 2008/11/14 22.24
Â² 99 EXIT
Â² 59 LOOPINIT
Â² 28 RETCODE
Â² 13 R1
Â² 22 R10
Â² 23 R11
Â² 15 R3
Â² 16 R4
Â² 17 R5
Â² 18 R6
Â² 19 R7
Â² 20 R8
Â² 21 R9
Â¯
ADD Macro and Copy Code Source Summary Page 11
Con Source Volume Members HLASM R5.0 2008/11/14 22.24
Â² L1 SYS1.MACLIB DMTCAT CLOSE DCB IHBINNRA IHB01 OPEN PUT
Â¯
ADD Using Map Page 12
Â² HLASM R5.0 2008/11/14 22.24
Â² Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text
Count Id Type Value Range Id Disp Stmt
Â² 38 00000000 00000001 USING ORDINARY 00000000 00001000 00000001 15 00014 39 ADD,ENTRYREG
Â² 44 0000001A 00000001 DROP 15 ENTRYREG
Â² 45 0000001A 00000001 USING ORDINARY 0000001A 00001000 00000001 12 001BA 87 *,BASEREG
Â¯
General Purpose Register Cross Reference Page 13
Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R5.0 2008/11/14 22.24
Â² 0(0) 42 76M 102M
Â² 1(1) 42 62M 75M 78 87M 102M
Â² 2(2) 42 67M 83M 102M
Â² 3(3) 42 102M
Â² 4(4) 42 102M
Â² 5(5) 42 102M
Â² 6(6) 42 102M
Â² 7(7) 42 102M
Â² 8(8) 42 102M
Â² 9(9) 42 102M
Â² 10(A) 42 102M
Â² 11(B) 42 102M
Â² 12(C) 42 43M 45U 102M
Â² 13(D) 42 47 49 51M 100M 100 101 102
Â² 14(E) 42 79M 101M 103B
Â² 15(F) 38U 42 44D 46M 47 49 51 77M 77 78M 79B
Â¯
ADD Diagnostic Cross Reference and Assembler Summary Page 14
HLASM R5.0 2008/11/14 22.24
Statements Flagged
Â² 80(P1,69)

1 Statement Flagged in this Assembly 8 was Highest Severity Code
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 5.0, PTF UK08101
SYSTEM: z/OS 01.07.00 JOBNAME: ADD STEPNAME: STEP1 PROCSTEP: C
Â²Data Sets Allocated for this Assembly
Â² Con DDname Data Set Name Volume Member
Â² P1 SYSIN ZCON039.ZOS.ANSWERS SHAR0A ASM010
Â² L1 SYSLIB SYS1.MACLIB DMTCAT
Â² SYSLIN SYS08319.T222434.RA000.ADD.OBJ.H01 DMTP01
Â² SYSPRINT ZCON039.ADD.JOB08458.D0000101.?
Â²
Â² 32140K allocated to Buffer Pool
Â² 111 Primary Input Records Read 2675 Library Records Read
Â² 0 ASMAOPT Records Read 332 Primary Print Records Written
11 Object Records Written 0 ADATA Records Written
Â²Assembly Start Time: 22.24.34 Stop Time: 22.24.35 Processor Time: 00.00.00.0160
Â²Return Code 008
!! END OF JES SPOOL FILE !!
1z/OS V1 R7 BINDER 22:24:35 FRIDAY NOVEMBER 14, 2008
BATCH EMULATOR JOB(ADD ) STEP(STEP1 ) PGM= HEWL PROCEDURE(L )
IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST,NCAL

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

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

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

0 ADD CSECT 1D8 SYSLIN 01 **NULL**
1 *** DATA SET SUMMARY ***

DDNAME CONCAT FILE IDENTIFICATION

SYSLIN 01 SYS08319.T222434.RA000.ADD.OBJ.H01

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

1PROCESSING OPTIONS:

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

1SAVE OPERATION SUMMARY:

MEMBER NAME ADD
LOAD LIBRARY ZCON039.PART3.LOAD
PROGRAM TYPE LOAD MODULE
VOLUME SERIAL SHAR0D
MAX BLOCK 6144
DISPOSITION ADDED NEW
TIME OF SAVE 22.24.35 NOV 14, 2008

1SAVE MODULE ATTRIBUTES:

AC 000
AMODE 31
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
SSI
SYM GENERATED NO
TEST NO
XPLINK NO
MODULE SIZE (HEX) 000001D8

1 ENTRY POINT AND ALIAS SUMMARY:

NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS

ADD MAIN_EP 31 00000000 B_TEXT

***** E N D O F R E P O R T *****

1z/OS V1 R7 BINDER 22:24:35 FRIDAY NOVEMBER 14, 2008
BATCH EMULATOR JOB(ADD ) STEP(STEP1 ) PGM= HEWL PROCEDURE(L )
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0.

1----------------------
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 ****

!! END OF JES SPOOL FILE !!

But still, I think that there should be the program execution output and I didn't got it, the "ADD" member was created in ZCON039.PART3.LOAD but when I open it has a lot of illegible characters... Is there any specific way to run it?

Thanks in advance,

[]'s!

by **dick scherrer** » Sat Nov 15, 2008 9:08 am

Hello,

the "ADD" member was created in ZCON039.PART3.LOAD but when I open it has a lot of illegible characters...

You will not be able to read the load module. . . By design. . . This is executable code for the machine to "read", not people.

The ADD pgm was not executed because you told it not to when the rc from any preceeding step was not zero.

Is there any specific way to run it?

Change the code so there is no rc=8 in the assembly.

by **hakghen** » Sat Nov 15, 2008 8:23 pm

Good afternoon!

Thanks for the help, I managed to fix the code and make it to run Ok, using less resources and giving the right output, here's its log!

Thanks again!
[]'s!

Select all

1 J E S 2 J O B L O G -- S Y S T E M M V S T -- N O D E T S T M V S 0 1
0
14.33.57 JOB08567 ---- SATURDAY, 15 NOV 2008 ----
14.33.57 JOB08567 IRR010I USERID ZCON039 IS ASSIGNED TO THIS JOB.
14.33.57 JOB08567 IEF677I WARNING MESSAGE(S) FOR JOB ADD ISSUED
14.33.57 JOB08567 ICH70001I ZCON039 LAST ACCESS AT 14:22:23 ON SATURDAY, NOVEMBER 15, 2008
14.33.57 JOB08567 $HASP373 ADD STARTED - INIT 1 - CLASS A - SYS MVST
14.33.57 JOB08567 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
14.33.57 JOB08567 -JOBNAME STEPNAME PROCSTEP RC EXCP CPU SRB CLOCK SERV PG PAGE SWAP VIO SWAPS STEPNO
14.33.57 JOB08567 -ADD STEP1 C 00 101 .00 .00 .00 5001 0 0 0 0 0 1
14.33.57 JOB08567 -ADD STEP1 L 00 55 .00 .00 .00 1588 0 0 0 0 0 2
14.33.57 JOB08567 -ADD STEP2 00 79 .00 .00 .00 4481 0 0 0 0 0 3
14.33.57 JOB08567 -ADD ENDED. NAME- TOTAL CPU TIME= .00 TOTAL ELAPSED TIME= .00
14.33.57 JOB08567 $HASP395 ADD ENDED
0------ JES2 JOB STATISTICS ------
- 15 NOV 2008 JOB EXECUTION DATE
- 13 CARDS READ
- 9,591 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 811 SYSOUT SPOOL KBYTES
- 0.00 MINUTES EXECUTION TIME
!! END OF JES SPOOL FILE !!
1 //ADD JOB 1,NOTIFY=&SYSUID,MSGCLASS=H JOB08567
//**************************************************
//* COMPILE ASSEMBLER PROGRAM
//**************************************************
IEFC653I SUBSTITUTION JCL - 1,NOTIFY=ZCON039,MSGCLASS=H
2 //STEP1 EXEC HLASMCL
3 XXASMACL PROC 00001000
XX* 00002000
XX******************************************************************** 00003000
XX* Licensed Materials - Property of IBM * 00004000
XX* * 00005000
XX* 5696-234 * 00006000
XX* * 00007000
XX* (c) Copyright IBM Corp. 1992, 1998. All Rights Reserved. * 00008000
XX* * 00009000
XX* US Government Users Restricted Rights - Use, * 00010000
XX* duplication or disclosure restricted by GSA ADP * 00011000
XX* Schedule Contract with IBM Corp. * 00012000
XX* * 00013000
XX******************************************************************** 00014000
XX* * 00015000
XX* ASMACL * 00016000
XX* * 00017000
XX* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER, LINK-EDITS THE * 00018000
XX* NEWLY ASSEMBLED PROGRAM. * 00019000
XX* * 00020000
XX******************************************************************** 00021000
XX* 00022000
4 XXC EXEC PGM=ASMA90 00023000
5 XXSYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00024000
6 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND), 00025000
XX UNIT=SYSALLDA,DCB=BUFNO=1 00026000
7 XXSYSPRINT DD SYSOUT=* 00027000
8 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND), 00028000
XX UNIT=SYSALLDA,DISP=(MOD,PASS), 00029000
XX DCB=(BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1) 00030000
9 //C.SYSIN DD DSN=ZCON039.ZOS.ANSWERS(ASM010),DISP=SHR
10 XXL EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,C) 00031000
11 XXSYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 00032000
12 XX DD DDNAME=SYSIN 00033000
13 //L.SYSLMOD DD DSN=ZCON039.PART3.LOAD(ADD),DISP=SHR
X/SYSLMOD DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)), 00034000
X/ DSN=&&GOSET(GO) 00035000
14 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND), 00036000
XX UNIT=SYSALLDA,DCB=BUFNO=1 00037000
15 XXSYSPRINT DD SYSOUT=* 00038000
16 // IF RC = 0 THEN
17 //STEP2 EXEC PGM=ADD
18 //STEPLIB DD DSN=ZCON039.PART3.LOAD,DISP=SHR
19 //PRTLINE DD SYSOUT=*
20 // ELSE
21 // ENDIF
!! END OF JES SPOOL FILE !!
STMT NO. MESSAGE
2 IEFC001I PROCEDURE HLASMCL WAS EXPANDED USING SYSTEM LIBRARY CENTER.PROCLIB
17 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
6 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
8 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
14 IGD01005I STORAGE CLASS INSTALLATION EXIT ENTERED
ICH70001I ZCON039 LAST ACCESS AT 14:22:23 ON SATURDAY, NOVEMBER 15, 2008
IEF236I ALLOC. FOR ADD C STEP1
IEF237I 2744 ALLOCATED TO SYSLIB
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS08320.T143357.RA000.ADD.SYSUT1.H01 )
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTP07
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD101I SMS ALLOCATED TO DDNAME (SYSLIN )
DSN (SYS08320.T143357.RA000.ADD.OBJ.H01 )
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTP01
IGD103I SMS ALLOCATED TO DDNAME SYSIN
IEF142I ADD C STEP1 - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYS1.MACLIB KEPT
IEF285I VOL SER NOS= DMTCAT.
IGD105I SYS08320.T143357.RA000.ADD.SYSUT1.H01 DELETED, DDNAME=SYSUT1
IEF285I ZCON039.ADD.JOB08567.D0000101.? SYSOUT
IGD106I SYS08320.T143357.RA000.ADD.OBJ.H01 PASSED, DDNAME=SYSLIN
IGD104I ZCON039.ZOS.ANSWERS RETAINED, DDNAME=SYSIN
IEF373I STEP/C /START 2008320.1433
IEF374I STEP/C /STOP 2008320.1433 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 176K SYS 336K EXT 32768K SYS 11312K
IEF236I ALLOC. FOR ADD L STEP1
IGD103I SMS ALLOCATED TO DDNAME SYSLIN
IEF237I DMY ALLOCATED TO
IGD103I SMS ALLOCATED TO DDNAME SYSLMOD
IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
DSN (SYS08320.T143357.RA000.ADD.SYSUT1.H01 )
STORCLAS (BASE) MGMTCLAS ( ) DATACLAS ( )
VOL SER NOS= DMTP07
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF142I ADD L STEP1 - STEP WAS EXECUTED - COND CODE 0000
IGD105I SYS08320.T143357.RA000.ADD.OBJ.H01 DELETED, DDNAME=SYSLIN
IGD104I ZCON039.PART3.LOAD RETAINED, DDNAME=SYSLMOD
IGD105I SYS08320.T143357.RA000.ADD.SYSUT1.H01 DELETED, DDNAME=SYSUT1
IEF285I ZCON039.ADD.JOB08567.D0000102.? SYSOUT
IEF373I STEP/L /START 2008320.1433
IEF374I STEP/L /STOP 2008320.1433 CPU 0MIN 00.01SEC SRB 0MIN 00.00SEC VIRT 92K SYS 340K EXT 1644K SYS 11092K
IEF236I ALLOC. FOR ADD STEP2
IGD103I SMS ALLOCATED TO DDNAME STEPLIB
IEF237I JES2 ALLOCATED TO PRTLINE
IEF142I ADD STEP2 - STEP WAS EXECUTED - COND CODE 0000
IGD104I ZCON039.PART3.LOAD RETAINED, DDNAME=STEPLIB
IEF285I ZCON039.ADD.JOB08567.D0000103.? SYSOUT
IEF373I STEP/STEP2 /START 2008320.1433
IEF374I STEP/STEP2 /STOP 2008320.1433 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 12K SYS 328K EXT 0K SYS 11100K
IEF375I JOB/ADD /START 2008320.1433
IEF376I JOB/ADD /STOP 2008320.1433 CPU 0MIN 00.05SEC SRB 0MIN 00.00SEC
!! END OF JES SPOOL FILE !!
Â¯
High Level Assembler Option Summary (PTF UK08101) Page 1
HLASM R5.0 2008/11/15 14.33
Â² 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))
Â² XREF(SHORT,UNREFS)

Â² No Overriding DD Names
Â¯
ADD External Symbol Dictionary Page 2
Symbol Type Id Address Length Owner Id Flags Alias-of HLASM R5.0 2008/11/15 14.33
Â²ADD SD 00000001 00000000 000001DE 02
Â¯
Â²ADD contest program Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/15 14.33
Â²000000 00000 001DE 2 ADD CSECT
Â² 3 ADD AMODE 31
Â² 4 ADD RMODE 24
Â² 5 *
Â² 6 *--------------------------------------------------------------------*
Â² 7 * *
Â² 8 * register equates *
Â² 9 * *
Â² 10 *--------------------------------------------------------------------*
Â² 11 *
Â² 00000 12 R0 EQU 0 register 0
Â² 00001 13 R1 EQU 1 register 1
Â² 00002 14 R2 EQU 2 register 2
Â² 00003 15 R3 EQU 3 register 3
Â² 00004 16 R4 EQU 4 register 4
Â² 00005 17 R5 EQU 5 register 5
Â² 00006 18 R6 EQU 6 register 6
Â² 00007 19 R7 EQU 7 register 7
Â² 00008 20 R8 EQU 8 register 8
Â² 00009 21 R9 EQU 9 register 9
Â² 0000A 22 R10 EQU 10 register 10
Â² 0000B 23 R11 EQU 11 register 11
Â² 0000C 24 BASEREG EQU 12 base register
Â² 0000D 25 SAVEREG EQU 13 save area register
Â² 0000E 26 RETREG EQU 14 caller's return address
Â² 0000F 27 ENTRYREG EQU 15 entry address
i 0000F 28 RETCODE EQU 15 return code
Â²ADD contest program Page 4
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/15 14.33
Â² 30 *
Â² 31 *--------------------------------------------------------------------*
Â² 32 * *
Â² 33 * standard entry setup, save area chaining, establish *
Â² 34 * base register and addressibility *
Â² 35 * *
Â² 36 *--------------------------------------------------------------------*
Â² 37 *
Â² R:F 00000 38 USING ADD,ENTRYREG establish addressibility
Â²000000 47F0 F014 00014 39 B SETUP branch around eyecatcher
Â²000004 C1C4C44040404040 40 DC CL8'ADD' program name
Â² 41 DC CL8'&SYSDATE' program assembled date
Â²00000C F1F161F1F561F0F8 + DC CL8'11/15/08' program assembled date
Â²000014 90EC D00C 0000C 42 SETUP STM RETREG,BASEREG,12(SAVEREG) save caller's registers
Â²000018 05C0 43 BALR BASEREG,R0 establish base register
Â² 44 DROP ENTRYREG drop initial base register
Â² R:C 0001A 45 USING *,BASEREG establish addressibilty
Â²00001A 41F0 C172 0018C 46 LA ENTRYREG,SAVEAREA point to this program save area
Â²00001E 50D0 F004 00004 47 ST SAVEREG,4(,ENTRYREG) save address of caller's save
Â² 48 * area
Â²000022 50F0 D008 00008 49 ST ENTRYREG,8(,SAVEREG) save address of this program
Â² 50 * save area
i000026 18DF 51 LR SAVEREG,ENTRYREG point to this program savearea
Â²ADD contest program Page 5
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/15 14.33
Â² 53 *
Â² 54 *--------------------------------------------------------------------*
Â² 55 * *
Â² 56 * program body *
Â² 57 * *
Â² 58 *--------------------------------------------------------------------*
Â²000028 59 LOOPINIT DS 0H
Â² 60 OPEN (PRTLINE,OUTPUT)
Â²000028 61+ CNOP 0,4 ALIGN LIST TO FULLWORD 01-OPEN
Â²000028 4510 C016 00030 62+ BAL 1,*+8 LOAD REG1 W/LIST ADDR. @L2A 01-OPEN
Â²00002C 8F 63+ DC AL1(143) OPTION BYTE 01-OPEN
Â²00002D 000120 64+ DC AL3(PRTLINE) DCB ADDRESS 01-OPEN
Â²000030 0A13 65+ SVC 19 ISSUE OPEN SVC 01-OPEN
Â²000032 D24C C0B4 C066 000CE 00080 66 MVC LINE+1(77),STATLIN
Â²000038 5820 C1BA 001D4 67 L R2,COUNTER
Â² 68 *
Â²00003C 69 LOOP DS 0H
Â² 70 *
Â²00003C DE05 C16B C168 00185 00182 71 ED OUT,TOT
Â²000042 D205 C100 C16B 0011A 00185 72 MVC LINE+77(6),OUT
Â² 73 PUT PRTLINE,LINE
Â²000048 4110 C106 00120 75+ LA 1,PRTLINE LOAD PARAMETER REG 1 02-IHBIN
Â²00004C 4100 C0B3 000CD 76+ LA 0,LINE LOAD PARAMETER REG 0 02-IHBIN
Â²000050 1FFF 77+ SLR 15,15 CLEAR REGISTER @L1A 01-PUT
Â²000052 BFF7 1031 00031 78+ ICM 15,7,49(1) LOAD PUT ROUTINE ADDR @L1C 01-PUT
Â²000056 05EF 79+ BALR 14,15 LINK TO PUT ROUTINE 01-PUT
Â²000058 D205 C16B C1BE 00185 001D8 80 MVC OUT,=X'402020202020'
Â²00005E FA21 C168 C166 00182 00180 81 AP TOT,ONE
Â² 82 *
Â²000064 4620 C022 0003C 83 BCT 2,LOOP
Â² 84 *
Â² 85 CLOSE (PRTLINE)
Â²000068 86+ CNOP 0,4 ALIGN LIST TO FULLWORD 01-CLOSE
Â²000068 4510 C056 00070 87+ BAL 1,*+8 LOAD REG1 W/LIST ADDR. @L2A 01-CLOSE
Â²00006C 80 88+ DC AL1(128) OPTION BYTE 01-CLOSE
Â²00006D 000120 89+ DC AL3(PRTLINE) DCB ADDRESS 01-CLOSE
Â²000070 0A14 90+ SVC 20 ISSUE CLOSE SVC 01-CLOSE
Â² 91 *
Â² 92 *--------------------------------------------------------------------*
Â² 93 * *
Â² 94 * standard exit - restore caller's registers and *
Â² 95 * return to caller *
Â² 96 * *
Â² 97 *--------------------------------------------------------------------*
Â² 98 *
Â²000072 99 EXIT DS 0H halfword boundary alignment
Â²000072 58D0 D004 00004 100 L SAVEREG,4(,SAVEREG) restore caller's save area addr
Â²000076 58E0 D00C 0000C 101 L RETREG,12(,SAVEREG) restore return address register
Â²00007A 980C D014 00014 102 LM R0,BASEREG,20(SAVEREG) restore all regs. except reg15
i00007E 07FE 103 BR RETREG return to caller
Â²ADD contest program Page 6
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/15 14.33
Â² 105 *
Â² 106 *--------------------------------------------------------------------*
Â² 107 * *
Â² 108 * storage and constant definitions. *
Â² 109 * print output definition. *
Â² 110 * *
Â² 111 *--------------------------------------------------------------------*
Â² 112 *
Â²000080 113 STATLIN DS 0CL77
Â²000080 E6C5D3C3D6D4C540 114 DC C'WELCOME TO THE MAINFRAME CHALLENGE!! '
Â²0000A5 E3C8C9E240C9E240 115 DC C'THIS IS THE CONTENT OF YOUR TOT COUNTER '
Â² 116 *
Â²0000CD 117 LINE DS 0CL81
Â²0000CD 40 118 DC C' '
Â²0000CE 119 DS CL80
Â² 120 PRTLINE DCB DSORG=PS,DDNAME=PRTLINE,MACRF=PM, X
RECFM=FA,LRECL=83,BLKSIZE=83
Â² 123+* DATA CONTROL BLOCK
Â² 124+*
Â²00011E 0000
Â²000120 125+PRTLINE DC 0F'0' ORIGIN ON WORD BOUNDARY 01-DCB
Â² 126+* DIRECT ACCESS DEVICE INTERFACE
Â²000120 0000000000000000 127+ DC BL16'0' FDAD, DVTBL 01-DCB
Â²000130 00000000 128+ DC A(0) KEYLEN, DEVT, TRBAL 01-DCB
Â² 129+* COMMON ACCESS METHOD INTERFACE
Â²000134 00 130+ DC AL1(0) BUFNO, NUMBER OF BUFFERS 01-DCB
Â²000135 000001 131+ DC AL3(1) BUFCB, BUFFER POOL CONTROL BLOCK 01-DCB
Â²000138 0000 132+ DC AL2(0) BUFL, BUFFER LENGTH 01-DCB
Â²00013A 4000 133+ DC BL2'0100000000000000' DSORG, DATA SET ORGANIZATION 01-DCB
Â²00013C 00000001 134+ DC A(1) IOBAD FOR EXCP OR RESERVED 01-DCB
Â² 135+* FOUNDATION EXTENSION
Â²000140 00 136+ DC BL1'00000000' BFTEK, BFALN, DCBE INDICATORS 01-DCB
Â²000141 000001 137+ DC AL3(1) EODAD (END OF DATA ROUTINE ADDRESS) 01-DCB
Â²000144 84 138+ DC BL1'10000100' RECFM (RECORD FORMAT) 01-DCB
Â²000145 000000 139+ DC AL3(0) EXLST (EXIT LIST ADDRESS) 01-DCB
Â² 140+* FOUNDATION BLOCK
Â²000148 D7D9E3D3C9D5C540 141+ DC CL8'PRTLINE' DDNAME 01-DCB
Â²000150 02 142+ DC BL1'00000010' OFLGS (OPEN FLAGS) 01-DCB
Â²000151 00 143+ DC BL1'00000000' IFLGS (IOS FLAGS) 01-DCB
Â²000152 0050 144+ DC BL2'0000000001010000' MACR (MACRO FORMAT) 01-DCB
Â² 145+* BSAM-BPAM-QSAM INTERFACE
Â²000154 00 146+ DC BL1'00000000' OPTCD, OPTION CODES 01-DCB
Â²000155 000001 147+ DC AL3(1) CHECK OR INTERNAL QSAM SYNCHRONIZING RTN. 01-DCB
Â²000158 00000001 148+ DC A(1) SYNAD, SYNCHRONOUS ERROR RTN. (3 BYTES) 01-DCB
Â²00015C 0000 149+ DC H'0' INTERNAL ACCESS METHOD FLAGS 01-DCB
Â²00015E 0053 150+ DC AL2(83) BLKSIZE, BLOCK SIZE 01-DCB
Â²000160 00000000 151+ DC F'0' INTERNAL ACCESS METHOD FLAGS 01-DCB
Â²000164 00000001 152+ DC A(1) INTERNAL ACCESS METHOD USE 01-DCB
Â² 153+* QSAM INTERFACE
Â²000168 00000001 154+ DC A(1) EOBAD 01-DCB
Â²00016C 00000001 155+ DC A(1) RECAD 01-DCB
Â²000170 0000 156+ DC H'0' QSWS (FLAGS) AND EITHER DIRCT OR BUFOFF 01-DCB
Â²000172 0053 157+ DC AL2(83) LRECL 01-DCB
i000174 00 158+ DC BL1'00000000' EROPT, ERROR OPTION 01-DCB
Â²ADD contest program Page 7
Active Usings: ADD+X'1A',R12
Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R5.0 2008/11/15 14.33
Â²000175 000001 159+ DC AL3(1) CNTRL 01-DCB
Â²000178 00000000 160+ DC H'0,0' RESERVED AND PRECL 01-DCB
Â²00017C 00000001 161+ DC A(1) EOB, INTERNAL ACCESS METHOD FIELD 01-DCB
Â²000180 001C 162 ONE DC P'01'
Â²000182 01000C 163 TOT DC PL3'1000'
Â²000185 402020202020 164 OUT DC X'402020202020'
Â²00018B 00
Â²00018C FFFFFFFFFFFFFFFF 165 SAVEAREA DC 18F'-1' register save area
Â²0001D4 00002329 166 COUNTER DC F'9001'
Â²000000 167 END ADD
Â²0001D8 402020202020 168 =X'402020202020'
Â¯
ADD Relocation Dictionary Page 8
Pos.Id Rel.Id Address Type Action HLASM R5.0 2008/11/15 14.33
Â² 00000001 00000001 0000002D A 3 +
Â² 00000001 00000001 0000006D A 3 +
Â¯
ADD Ordinary Symbol and Literal Cross Reference Page 9
Symbol Length Value Id R Type Asm Program Defn References HLASM R5.0 2008/11/15 14.33
Â²ADD 1 00000000 00000001 J 2 3 4 38U 167
Â²BASEREG 1 0000000C 00000001 A U 24 42 43M 45U 102M
Â²COUNTER 4 000001D4 00000001 F F 166 67
Â²ENTRYREG 1 0000000F 00000001 A U 27 38U 44D 46M 47 49 51
Â²LINE 81 000000CD 00000001 C C 117 66M 72M 76
Â²LOOP 2 0000003C 00000001 H H 69 83B
Â²ONE 2 00000180 00000001 P P 162 81
Â²OUT 6 00000185 00000001 X X 164 71M 72 80M
Â²PRTLINE 4 00000120 00000001 F F 125 64 75 89
Â²RETREG 1 0000000E 00000001 A U 26 42 101M 103B
Â²R0 1 00000000 00000001 A U 12 43B 102M
Â²R2 1 00000002 00000001 A U 14 67M
Â²SAVEAREA 4 0000018C 00000001 F F 165 46
Â²SAVEREG 1 0000000D 00000001 A U 25 42 47 49 51M 100M 100 101 102
Â²SETUP 4 00000014 00000001 I 42 39B
Â²STATLIN 77 00000080 00000001 C C 113 66
Â²TOT 3 00000182 00000001 P P 163 71 81M
Â²=X'402020202020'
Â² 6 000001D8 00000001 X 168 80
Â¯
ADD Unreferenced Symbols Defined in CSECTs Page 10
Defn Symbol HLASM R5.0 2008/11/15 14.33
Â² 99 EXIT
Â² 59 LOOPINIT
Â² 28 RETCODE
Â² 13 R1
Â² 22 R10
Â² 23 R11
Â² 15 R3
Â² 16 R4
Â² 17 R5
Â² 18 R6
Â² 19 R7
Â² 20 R8
Â² 21 R9
Â¯
ADD Macro and Copy Code Source Summary Page 11
Con Source Volume Members HLASM R5.0 2008/11/15 14.33
Â² L1 SYS1.MACLIB DMTCAT CLOSE DCB IHBINNRA IHB01 OPEN PUT
Â¯
ADD Using Map Page 12
Â² HLASM R5.0 2008/11/15 14.33
Â² Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text
Count Id Type Value Range Id Disp Stmt
Â² 38 00000000 00000001 USING ORDINARY 00000000 00001000 00000001 15 00014 39 ADD,ENTRYREG
Â² 44 0000001A 00000001 DROP 15 ENTRYREG
Â² 45 0000001A 00000001 USING ORDINARY 0000001A 00001000 00000001 12 001BE 87 *,BASEREG
Â¯
General Purpose Register Cross Reference Page 13
Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R5.0 2008/11/15 14.33
Â² 0(0) 42 76M 102M
Â² 1(1) 42 62M 75M 78 87M 102M
Â² 2(2) 42 67M 83M 102M
Â² 3(3) 42 102M
Â² 4(4) 42 102M
Â² 5(5) 42 102M
Â² 6(6) 42 102M
Â² 7(7) 42 102M
Â² 8(8) 42 102M
Â² 9(9) 42 102M
Â² 10(A) 42 102M
Â² 11(B) 42 102M
Â² 12(C) 42 43M 45U 102M
Â² 13(D) 42 47 49 51M 100M 100 101 102
Â² 14(E) 42 79M 101M 103B
Â² 15(F) 38U 42 44D 46M 47 49 51 77M 77 78M 79B
Â¯
ADD Diagnostic Cross Reference and Assembler Summary Page 14
HLASM R5.0 2008/11/15 14.33
Â² No Statements Flagged in this Assembly
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 5.0, PTF UK08101
SYSTEM: z/OS 01.07.00 JOBNAME: ADD STEPNAME: STEP1 PROCSTEP: C
Â²Data Sets Allocated for this Assembly
Â² Con DDname Data Set Name Volume Member
Â² P1 SYSIN ZCON039.ZOS.ANSWERS SHAR0A ASM010
Â² L1 SYSLIB SYS1.MACLIB DMTCAT
Â² SYSLIN SYS08320.T143357.RA000.ADD.OBJ.H01 DMTP01
Â² SYSPRINT ZCON039.ADD.JOB08567.D0000101.?
Â²
Â² 32140K allocated to Buffer Pool
Â² 111 Primary Input Records Read 2675 Library Records Read
Â² 0 ASMAOPT Records Read 330 Primary Print Records Written
11 Object Records Written 0 ADATA Records Written
Â²Assembly Start Time: 14.33.57 Stop Time: 14.33.57 Processor Time: 00.00.00.0154
Â²Return Code 000
!! END OF JES SPOOL FILE !!
1z/OS V1 R7 BINDER 14:33:57 SATURDAY NOVEMBER 15, 2008
BATCH EMULATOR JOB(ADD ) STEP(STEP1 ) PGM= HEWL PROCEDURE(L )
IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST,NCAL

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

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

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

0 ADD CSECT 1DE SYSLIN 01 **NULL**
1 *** DATA SET SUMMARY ***

DDNAME CONCAT FILE IDENTIFICATION

SYSLIN 01 SYS08320.T143357.RA000.ADD.OBJ.H01

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

1PROCESSING OPTIONS:

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

1SAVE OPERATION SUMMARY:

MEMBER NAME ADD
LOAD LIBRARY ZCON039.PART3.LOAD
PROGRAM TYPE LOAD MODULE
VOLUME SERIAL SHAR0D
MAX BLOCK 6144
DISPOSITION REPLACED
TIME OF SAVE 14.33.57 NOV 15, 2008

1SAVE MODULE ATTRIBUTES:

AC 000
AMODE 31
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
SSI
SYM GENERATED NO
TEST NO
XPLINK NO
MODULE SIZE (HEX) 000001E0

1 ENTRY POINT AND ALIAS SUMMARY:

NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS

ADD MAIN_EP 31 00000000 B_TEXT

***** E N D O F R E P O R T *****

1z/OS V1 R7 BINDER 14:33:57 SATURDAY NOVEMBER 15, 2008
BATCH EMULATOR JOB(ADD ) STEP(STEP1 ) PGM= HEWL PROCEDURE(L )
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0.

1----------------------
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 ****

!! END OF JES SPOOL FILE !!
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1000
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1001
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1002
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1003
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1004
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1005
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1006
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1007
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1008
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 1009
.
.
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 9996
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 9997
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 9998
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 9999
WELCOME TO THE MAINFRAME CHALLENGE!! THIS IS THE CONTENT OF YOUR TOT COUNTER 10000
!! END OF JES SPOOL FILE !!

by **dick scherrer** » Sat Nov 15, 2008 11:22 pm

Good to hear it is working - Thanks for letting us know

d

by **enrico-sorichetti** » Sun Nov 23, 2008 10:08 pm

I find a bit or rather, a lot unethical to ask for help when participating to a contest
if the tasks of the contest are above Your skill level, simply drop out of the contest

regards
enrico sorichetti

by **hakghen** » Thu Mar 05, 2009 6:19 pm

We were instructed by contest organizers to look for help on forums and etc, so, I don't think it's unethical. After all, when working with these things you'll have to do a lot of teamwork, and this is a way to develop it

IBM Mainframe Forum

Assembler Compiler JOB

Assembler Compiler JOB

Re: Assembler Compiler JOB

Re: Assembler Compiler JOB

Re: Assembler Compiler JOB

Re: Assembler Compiler JOB

Re: Assembler Compiler JOB

Re: Assembler Compiler JOB

Re: Assembler Compiler JOB