IBM Mainframe Forum

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

Current state...

COPY SETUP
TITLE 'PROGRAM 4 80/80 LISTING'
PRINT NOGEN
WTO 'PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)'
OPEN (INFILE,(INPUT))
OPEN (OUTFILE,(OUTPUT))
* WTO 'Files opened successfully'
* ZAP NUM,=P'2'
* ZAP NUM2,=P'1'
* MVC CHAR1,=C'9'
*
*LOOP EQU *
* GET INFILE,IRECORD
** MVC ORECORD,=CL133' '

******** MVC ORECORD(80),IRECORD
******** MVC ORECORD(10),=C' '

* MVC ORECORD+10(62),IRECORD
* PACK NUM,CHAR1
*
* AP NUM,NUM2

* UNPK CHAR1,NUM
* OI CHAR1,X'F0'
* MVC ORECORD(2),CHAR1

* PUT OUTFILE,ORECORD
* B LOOP
*
EOF EQU *
CLOSE (INFILE,,OUTFILE)
* CLOSE (INFILE)
WTO 'PROG4 ENDED OK'
ENDIT
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=80, X
DSORG=PS, X
RECFM=FB, X
MACRF=(PM), X
BLKSIZE=100
*
CHAR1 DS CL2
NUM DS PL2
NUM2 DS PL2
IRECORD DC CL80' '
ORECORD DC CL72' '
END COPY

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

04.15.27 JOB02924 ---- TUESDAY, 25 SEP 2012 ----
04.15.27 JOB02924 IRR010I USERID C432110 IS ASSIGNED TO THIS JOB.
04.15.28 JOB02924 IEF677I WARNING MESSAGE(S) FOR JOB C432110A ISSUED
04.15.28 JOB02924 ICH70001I C432110 LAST ACCESS AT 04:13:30 ON TUESDAY, SEPTEMBER 25, 2012
04.15.28 JOB02924 $HASP373 C432110A STARTED - INIT 1 - CLASS A - SYS S0W1
04.15.29 JOB02924 - -----TIMINGS (MINS.)------ -----PAGING COUNTS----
04.15.29 JOB02924 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
04.15.29 JOB02924 -CLG C 00 209 75 .00 .00 .0 54 BATCH 0 0 0 0
04.15.29 JOB02924 -CLG L 00 20 2 .00 .00 .0 2 BATCH 0 0 0 0
04.15.29 JOB02924 +PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)
04.15.29 JOB02924 IEC141I 013-20,IGG0191A,C432110A,G,OUTPUT,0D33,VPWRKB, 949
949 C432110.ASM(COPY)
04.15.29 JOB02924 IEA995I SYMPTOM DUMP OUTPUT 950
950 SYSTEM COMPLETION CODE=013 REASON CODE=00000020
950 TIME=04.15.29 SEQ=00139 CPU=0000 ASID=001B
950 PSW AT TIME OF ERROR 075C1000 80E651C6 ILC 2 INTC 0D
950 NO ACTIVE MODULE FOUND
950 NAME=UNKNOWN
950 DATA AT PSW 00E651C0 - 4100302C 0A0D010D A7E50126
950 AR/GR 0: 007FF3A0/00E65484 1: 00000000/A4013000
950 2: 00000000/00007F00 3: 00000000/00E65458
950 4: 00000000/007C1180 5: 00000000/007C1514
950 6: 00000000/007C14BC 7: 00000000/007C1514
950 8: 00000000/007C14DC 9: 00000000/007CB010
950 A: 00000000/007C7400 B: 00000000/00000000
950 C: 00000000/00000014 D: 00000000/00000001
950 E: 00000000/80E64A24 F: 00000000/00000020
950 END OF SYMPTOM DUMP
04.15.29 JOB02924 IEF450I C432110A G CLG - ABEND=S013 U0000 REASON=00000020
04.15.29 JOB02924 -CLG G *S013 10 1 .00 .00 .0 2 BATCH 0 0 0 0
04.15.29 JOB02924 -C432110A ENDED. NAME- TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
04.15.29 JOB02924 $HASP395 C432110A ENDED
------ JES2 JOB STATISTICS ------
25 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, JOB02924
// 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 04:13:30 ON TUESDAY, SEPTEMBER 25, 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 SYS12269.T041528.RA000.C432110A.SYSUT1.H01 DELETED
IEF285I C432110.C432110A.JOB02924.D0000101.? SYSOUT
IEF285I SYS12269.T041528.RA000.C432110A.OBJ.H01 PASSED
IEF285I C432110.ASM KEPT
IEF285I VOL SER NOS= VPWRKB.
IEF373I STEP/C /START 2012269.0415
IEF032I STEP/C /STOP 2012269.0415
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 SYS12269.T041528.RA000.C432110A.OBJ.H01 DELETED
IEF285I SYS12269.T041528.RA000.C432110A.GOSET.H01 PASSED
IEF285I SYS12269.T041528.RA000.C432110A.SYSUT1.H01 DELETED
IEF285I C432110.C432110A.JOB02924.D0000102.? SYSOUT
IEF373I STEP/L /START 2012269.0415
IEF032I STEP/L /STOP 2012269.0415
CPU: 0 HR 00 MIN 00.01 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-20,IGG0191A,C432110A,G,OUTPUT,0D33,VPWRKB,
C432110.ASM(COPY)
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013 REASON CODE=00000020
TIME=04.15.29 SEQ=00139 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/00000014 D: 00000000/00000001
E: 00000000/80E64A24 F: 00000000/00000020
END OF SYMPTOM DUMP
IEF472I C432110A G CLG - COMPLETION CODE - SYSTEM=013 USER=0000 REASON=00000020
IEF285I SYS12269.T041528.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 2012269.0415
IEF032I STEP/G /STOP 2012269.0415
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 SYS12269.T041528.RA000.C432110A.GOSET.H01 DELETED
IEF375I JOB/C432110A/START 2012269.0415
IEF033I JOB/C432110A/STOP 2012269.0415
CPU: 0 HR 00 MIN 00.06 SEC SRB: 0 HR 00 MIN 00.00 SEC

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

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

5+* SAVE REGISTERS
6+ SAVE (14,12),,COPY-09/25/12-04.15 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 F2F561F1F260F0F4 12+ DC CL8'25/12-04' IDENTIFIER 02-SAVE
000015 4BF1F5 13+ DC CL3'.15' 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/25 04.15
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/25 04.15
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=80, X
DSORG=PS, X
RECFM=FB, X
MACRF=(PM), X
000130 0000000000000000 BLKSIZE=100
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/25 04.15
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/25 04.15
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/25 04.15
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/25 04.15
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/25 04.15
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/25 04.15
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/25 04.15
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 SYS12269.T041528.RA000.C432110A.OBJ.H01
SYSPRINT C432110.C432110A.JOB02924.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: 04.15.29 Stop Time: 04.15.29 Processor Time: 00.00.00.0339
Return Code 000
z/OS V1 R13 BINDER 04:15:28 TUESDAY SEPTEMBER 25, 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 SYS12269.T041528.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 SYS12269.T041528.RA000.C432110A.GOSET.H01
PROGRAM TYPE LOAD MODULE
VOLUME SERIAL
MAX BLOCK 32760
DISPOSITION ADDED NEW
TIME OF SAVE 04.15.29 SEP 25, 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 04:15:28 TUESDAY SEPTEMBER 25, 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 **NicC** » Tue Sep 25, 2012 3:39 pm

If you are going to specify the lrecl and blocksize in the program make sure that they match those attributes of your output dataset. Your LRECL is probably 80 but your blocksize has to be a multiple of 80. Use ISPF option 3.2 on that dataset to get the attributes.

by **RISCCISCInstSet** » Tue Sep 25, 2012 4:01 pm

So that was what was wrong.

It didn't abend this time. Thanks for your help. I may need to return to this thread if it turns out
a) this sub-problem isn't really solved, and b) I've tried to work on it myself and probably need a little help. I'll try to keep a note of the information gave me.

by **NicC** » Tue Sep 25, 2012 4:11 pm

I was slightly amiss with my blocksize statement - the blocksize has to be a multiple of the LRECL whether that is 80 or something else. For a variable length record file the blocksize must be at least 4 bytes greater than the LRECL. But it is all in the JCL manual.

by **Robert Sample** » Tue Sep 25, 2012 4:40 pm

These days, for a variable length data set, the block size must be a minimum of LRECL+4. However, the block size does not have to be (a multiple of the LRECL) + 4.

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

RISCCISCInstSet,

When you rerturn, try to read all that people post. A couple of times you've had to be told things more than once. Do it from the first, and you'll get more sleep :-)

Last time I looked you still had some of the problems in the program that I pointed out earlier...

by **RISCCISCInstSet** » Tue Sep 25, 2012 8:19 pm

I'll be sure and review that; thanks!

by **steve-myers** » Wed Sep 26, 2012 1:45 am

Well, we've gotten well off the subject.

Billyboyo is correct about specifying LRECL=??,BLKSIZE=130. It won't work. A better idea is to make the program adjust to changing the LRECL. It would have to be different, perhaps like this-

Select all

* DATASET COPY WITH AN LRECL CHANGE
COPYX CSECT
DCBD DSORG=QS,DEVD=DA
COPYX CSECT
USING *,12
SAVE (14,12),,*
LR 12,15
LA 15,SAVEAREA
ST 13,4(,15)
ST 15,8(,13)
LR 13,15
LA 1,OPARM1
BAS 14,OPENLIST
LTR 15,15
BNZ EXIT
LA 1,OPARM2
BAS 14,OPENLIST
LTR 15,15
BNZ EXIT
COPYLOOP GET INPUTDCB
LR 2,1
LH 3,DCBLRECL-IHADCB+INPUTDCB
PUT OUTPUTDCB
LR 0,1
LH 1,DCBLRECL-IHADCB+OUTPUTDCB
ICM 3,B'1000',ABLANK
MVCL 0,2
B COPYLOOP
EXIT DC 0H'0'
INPUTEOF CLOSE MF=(E,CPARM)
L 13,4(,13)
RETURN (14,12),T,RC=0
OPENLIST BALR 15,0
SAVE (14,2),,OPENLIST
LR 2,1
OPEN MF=(E,(1))
SR 15,15
OL0100 L 1,0(,2)
TM DCBOFLGS-IHADCB(1),DCBOFOPN
BO OL0200
LA 15,4
OL0200 TM 0(2),X'80'
LA 2,4(,2)
BZ OL0100
RETURN (14,2),T,RC=(15)
DROP ,
CNOP 0,8
USING *,15
USING IHADCB,1
OPENEXIT SR 0,0
ICM 0,B'0011',DCBLRECL
JNZ OX0100
LH 0,DCBLRECL-IHADCB+INPUTDCB
OX0100 STH 0,DCBLRECL
BR 14
DROP ,
SAVEAREA DC 9D'0'
OPARM1 OPEN (INPUTDCB,INPUT),MF=L
OPARM2 OPEN (OUTPUTDCB,OUTPUT),MF=L
CPARM CLOSE (INPUTDCB,,OUTPUTDCB),MF=L
INPUTDCB DCB DSORG=PS,MACRF=GL,RECFM=FB,DDNAME=INPUT,EODAD=INPUTEOF
OUTPUTDCB DCB DSORG=PS,MACRF=PL,RECFM=FB,DDNAME=OUTPUT,EXLST=XLIST
XLIST DC 0A(0),AL1(X'80'+5),AL3(OPENEXIT)
ABLANK DC C' '
END COPYX

If the output LRECL is greater than the input LRECL, the program fills the record with blanks. If the output LRECL is not specified, the program copies the input LRECL to the output DCB.

Both DCBs specify "locate mode" processing. For input, the GET macro returns the address of the data in the input buffer. For output, the PUT macro returns the address of an output area your program must fill in. The copy loop becomes

Select all

COPYLOOP GET INPUTDCB
LR 2,1
LH 3,DCBLRECL-IHADCB+INPUTDCB
PUT OUTPUTDCB
LR 0,1
LH 1,DCBLRECL-IHADCB+OUTPUTDCB
ICM 3,B'1000',ABLANK
MVCL 0,2
B COPYLOOP

The GET macro returns the record address in register 1. The program loads the record length from the DCB. The PUT macro returns the address of space for the record, and, as with input, the program loads the record length from the DCB. After preparing the registers, the program uses the MVCL instruction to copy the input data to the output buffer, and extend the input data with blanks if necessary.

The output DCB LRECL is prepared in a DCB open exit. OPEN calls the exit after it has prepared the DCB from the dataset LRECL and JCL specified DCB parameters; the open exit verifies and alters the parameters as necessary before it returns to OPEN.

Select all

USING *,15
USING IHADCB,1
OPENEXIT SR 0,0
ICM 0,B'0011',DCBLRECL
BNZ OX0100
LH 0,DCBLRECL-IHADCB+INPUTDCB
OX0100 STH 0,DCBLRECL
BR 14

The exit is called using the usual linkage conventions with the address of the DCB in register 1 The program loads the LRECL; if there is no value in the LRECL, the program loads the input LRECL and stores it in the output DCB.

by **steve-myers** » Wed Sep 26, 2012 9:23 am

NicC wrote:....For a variable length record file the blocksize must be (a multiple of the stated LRECL) + 4. But it is all in the JCL manual.

Actually, the only relationship between LRECL and BLKSIZE for datasets containing variable length records is BLKSIZE must be greater than or equal to LRECL + 4. Even this relation does not apply for RECFM=VBS. SMF data, for example, is usually RECFM=VBS, LRECL=32767, BLKSIZE=something.

IBM Mainframe Forum

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