Top posting:
The earlier poster who suggested you have forgotten
your save area chaining was probably closest. I
put in a few suggested instructions below, after line
33 and 203 (look for "===>"); that should get you
closer, anyway.
On 3/8/2011 12:59 PM, Hunt, Bruce wrote:
I hope this is what you were asking for. This is the assembler output. Thanks
to others for their suggestions. Amode 24 still gets a soc4 but this module
does not call anything else. Also adding brackets to the open statement still
resulted in a soc4.
-- TOP OF JOB --
PDSMAN r7.61 COMPILER INTERFACE
08 March 2011.067 13:34:26 PAGE
** PDSM15 ** BEST TRSA38.LIB.CNTL
Member Update Date/Time Vers. Job Name S Referenced Base Date
XP1000 03/08/2011 13:30 01.17 TRSA38
MEMBERS COPIED FROM SYSLIB
EQUATES 03/02/1991 14:49 01.00 TRS176 -- None -- 03/02/1991
TRS.DEVL.COPYLIB
High Level Assembler Option Summary
(PTF UK47103) Page 1
HLASM R6.0 2011/03/08 13.34
No Overriding ASMAOPT Parameters
Overriding Parameters- NODECK,OBJECT,,LIST,ALIGN
No Process Statements
Options for this Assembly
NOADATA
3 ALIGN
NOASA
BATCH
CODEPAGE(047C)
NOCOMPAT
NODBCS
3 NODECK
DXREF
ESD
NOEXIT
FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)
NOFOLD
NOGOFF
NOINFO
LANGUAGE(EN)
NOLIBMAC
LINECOUNT(60)
3 LIST(121)
MACHINE(,NOLIST)
MXREF(SOURCE)
3 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 2011/03/08 13.34
XP1000 SD 00000001 00000000 00017AF8 06
XP1000
Page 3
Active Usings: None
Loc Object Code Addr1 Addr2 Stmt Source Statement
HLASM R6.0 2011/03/08 13.34
2 *
3 * 02/25/11 B HUNT CHANGED A SPANNED
FILE TO A FIXED FILE
4 *
5 XP1000 AMODE 31
6 XP1000 RMODE ANY
000000 00000 17AF8 7 XP1000 START
00003**7
8 COPY EQUATES
00000 9=R0 EQU 0
00005
00001 10=R1 EQU 1
00006
00002 11=R2 EQU 2
00007
00003 12=R3 EQU 3
00008
00004 13=R4 EQU 4
00009
00005 14=R5 EQU 5
00010
00006 15=R6 EQU 6
00011
00007 16=R7 EQU 7
00012
00008 17=R8 EQU 8
00013
00009 18=R9 EQU 9
00014
0000A 19=RA EQU 10
00015
0000B 20=RB EQU 11
00016
0000C 21=RC EQU 12
00017
0000D 22=RD EQU 13
00018
0000E 23=RE EQU 14
00019
0000F 24=RF EQU 15
00020
0000A 25=BASE1 EQU 10
00021
0000B 26=BASE2 EQU 11
00022
0000C 27=BASE3 EQU 12
00023
28 SAVE (14,12)
SAVE REGISTERS 14 THRU 12 00020
000000 30+ DS 0H
01-SAVE
000000 90EC D00C 0000C 31+ STM 14,12,12(13)
SAVE REGISTERS 01-SAVE
000004 0DA0 32 BASR BASE1,0
ESTABLISH ADDRESSABILITY 00021
R:A 00006 33 USING *,BASE1
PROVIDE BASE ID 00022
===> ST R13,SAVEAREA+4
===> LA R13,SAVEAREA
34 WTO ' START XP1000',
X
ROUTCDE=(2),
X
DESC=(7)
000006 0700 36+ CNOP 0,4
01-WTO
000008 A715 000D 00022 37+ BRAS 1,IHB0003A
BRANCH AROUND MESSAGE @LCC 01-WTO
00000C 0011 38+ DC AL2(17)
TEXT LENGTH @YA17152 01-WTO
00000E 8000 39+ DC B'1000000000000000'
MCSFLAGS 01-WTO
000010 40E2E3C1D9E340E7 40+ DC C' START XP1000'
MESSAGE TEXT @L6C 01-WTO
00001D 0200 41+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
00001F 4000 42+ DC B'0100000000000000'
ROUTING CODES 01-WTO
000022 43+IHB0003A DS 0H
01-WTO
000022 0A23 44+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
000024 47F0 A03A 00040 45 B BEGIN
000028 47 DS 0D
000028 E7D7F1F0F0F04040 48 DC CL8'XP1000'
49 DC CL8'&SYSDATE'
000030 F0F361F0F861F1F1 + DC CL8'03/08/11'
50 DC CL8'&SYSTIME'
000038 F1F34BF3F4404040 + DC CL8'13.34'
000040 52 BEGIN DS 0H
53 WTO ' BEFORE
OPEN',ROUTCDE=(2),DESC=(7)
000040 55+ CNOP 0,4
01-WTO
XP1000
Page 4
Active Usings: XP1000+X'6',R10
Loc Object Code Addr1 Addr2 Stmt Source Statement
HLASM R6.0 2011/03/08 13.34
000040 A715 000C 00058 56+ BRAS 1,IHB0005A
BRANCH AROUND MESSAGE @LCC 01-WTO
000044 0010 57+ DC AL2(16)
TEXT LENGTH @YA17152 01-WTO
000046 8000 58+ DC B'1000000000000000'
MCSFLAGS 01-WTO
000048 40C2C5C6D6D9C540 59+ DC C' BEFORE OPEN'
MESSAGE TEXT @L6C 01-WTO
000054 0200 60+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
000056 4000 61+ DC B'0100000000000000'
ROUTING CODES 01-WTO
000058 62+IHB0005A DS 0H
01-WTO
000058 0A23 63+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
64 OPEN
(INFILE,(INPUT),OUTFILE,(OUTPUT))
00005A 0700 65+ CNOP 0,4
ALIGN LIST TO FULLWORD 01-OPEN
00005C 4510 A062 00068 66+ BAL 1,*+12
LOAD REG1 W/LIST ADDR. @L2A 01-OPEN
000060 00 67+ DC AL1(0)
OPTION BYTE 01-OPEN
000061 0001E0 68+ DC AL3(INFILE)
DCB ADDRESS 01-OPEN
000064 8F 69+ DC AL1(143)
OPTION BYTE 01-OPEN
000065 000240 70+ DC AL3(OUTFILE)
DCB ADDRESS 01-OPEN
000068 0A13 71+ SVC 19
ISSUE OPEN SVC 01-OPEN
00006A 12FF 72 LTR 15,15
00006C 4770 A15E 00164 73 BNZ BADOPEN
74 WTO ' GOOD OPEN
FILE',ROUTCDE=(2),DESC=(7)
000070 76+ CNOP 0,4
01-WTO
000070 A715 000E 0008C 77+ BRAS 1,IHB0008A
BRANCH AROUND MESSAGE @LCC 01-WTO
000074 0013 78+ DC AL2(19)
TEXT LENGTH @YA17152 01-WTO
000076 8000 79+ DC B'1000000000000000'
MCSFLAGS 01-WTO
000078 40C7D6D6C440D6D7 80+ DC C' GOOD OPEN FILE'
MESSAGE TEXT @L6C 01-WTO
000087 0200 81+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
000089 4000 82+ DC B'0100000000000000'
ROUTING CODES 01-WTO
00008C 83+IHB0008A DS 0H
01-WTO
00008C 0A23 84+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
00008E 85 LOOP DS 0H
86 GET INFILE,INREC
00008E 4110 A1DA 001E0 88+ LA 1,INFILE
LOAD PARAMETER REG 1 02-IHBIN
000092 4100 A36A 00370 89+ LA 0,INREC
LOAD PARAMETER REG 0 02-IHBIN
000096 1FFF 90+ SLR 15,15
CLEAR REGISTER @L1A 01-GET
000098 BFF7 1031 00031 91+ ICM 15,7,49(1)
LOAD GET ROUTINE ADDR @L1C 01-GET
00009C 05EF 92+ BALR 14,15
LINK TO GET ROUTINE 01-GET
93 WTO ' GOOD FILE
READ',ROUTCDE=(2),DESC=(7)
00009E 0700 95+ CNOP 0,4
01-WTO
0000A0 A715 000E 000BC 96+ BRAS 1,IHB0012A
BRANCH AROUND MESSAGE @LCC 01-WTO
0000A4 0013 97+ DC AL2(19)
TEXT LENGTH @YA17152 01-WTO
0000A6 8000 98+ DC B'1000000000000000'
MCSFLAGS 01-WTO
0000A8 40C7D6D6C440C6C9 99+ DC C' GOOD FILE READ'
MESSAGE TEXT @L6C 01-WTO
0000B7 0200 100+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
0000B9 4000 101+ DC B'0100000000000000'
ROUTING CODES 01-WTO
0000BC 102+IHB0012A DS 0H
01-WTO
0000BC 0A23 103+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
0000BE D287 A29A A36A 002A0 00370 104 MVC BATA,DATA
105 WTO ' GOOD
MOVE',ROUTCDE=(2),DESC=(7)
0000C4 107+ CNOP 0,4
01-WTO
0000C4 A715 000B 000DA 108+ BRAS 1,IHB0014A
BRANCH AROUND MESSAGE @LCC 01-WTO
0000C8 000E 109+ DC AL2(14)
TEXT LENGTH @YA17152 01-WTO
0000CA 8000 110+ DC B'1000000000000000'
MCSFLAGS 01-WTO
0000CC 40C7D6D6C440D4D6 111+ DC C' GOOD MOVE'
MESSAGE TEXT @L6C 01-WTO
0000D6 0200 112+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
0000D8 4000 113+ DC B'0100000000000000'
ROUTING CODES 01-WTO
0000DA 114+IHB0014A DS 0H
01-WTO
XP1000
Page 5
Active Usings: XP1000+X'6',R10
Loc Object Code Addr1 Addr2 Stmt Source Statement
HLASM R6.0 2011/03/08 13.34
0000DA 0A23 115+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
116 PUT OUTFILE,OUTREC
0000DC 4110 A23A 00240 118+ LA 1,OUTFILE
LOAD PARAMETER REG 1 02-IHBIN
0000E0 4100 A29A 002A0 119+ LA 0,OUTREC
LOAD PARAMETER REG 0 02-IHBIN
0000E4 1FFF 120+ SLR 15,15
CLEAR REGISTER @L1A 01-PUT
0000E6 BFF7 1031 00031 121+ ICM 15,7,49(1)
LOAD PUT ROUTINE ADDR @L1C 01-PUT
0000EA 05EF 122+ BALR 14,15
LINK TO PUT ROUTINE 01-PUT
123 WTO ' GOOD FILE
WRITE',ROUTCDE=(2),DESC=(7)
0000EC 125+ CNOP 0,4
01-WTO
0000EC A715 000E 00108 126+ BRAS 1,IHB0018A
BRANCH AROUND MESSAGE @LCC 01-WTO
0000F0 0014 127+ DC AL2(20)
TEXT LENGTH @YA17152 01-WTO
0000F2 8000 128+ DC B'1000000000000000'
MCSFLAGS 01-WTO
0000F4 40C7D6D6C440C6C9 129+ DC C' GOOD FILE WRITE'
MESSAGE TEXT @L6C 01-WTO
000104 0200 130+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
000106 4000 131+ DC B'0100000000000000'
ROUTING CODES 01-WTO
000108 132+IHB0018A DS 0H
01-WTO
000108 0A23 133+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
00010A 47F0 A088 0008E 134 B LOOP
00010E 135 FINAL DS 0H
136 WTO ' BEFORE FILE
CLOSE',ROUTCDE=(2),DESC=(7)
00010E 0700 138+ CNOP 0,4
01-WTO
000110 A715 000F 0012E 139+ BRAS 1,IHB0020A
BRANCH AROUND MESSAGE @LCC 01-WTO
000114 0016 140+ DC AL2(22)
TEXT LENGTH @YA17152 01-WTO
000116 8000 141+ DC B'1000000000000000'
MCSFLAGS 01-WTO
000118 40C2C5C6D6D9C540 142+ DC C' BEFORE FILE CLOSE'
MESSAGE TEXT @L6C 01-WTO
00012A 0200 143+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
00012C 4000 144+ DC B'0100000000000000'
ROUTING CODES 01-WTO
00012E 145+IHB0020A DS 0H
01-WTO
00012E 0A23 146+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
147 CLOSE (INFILE,,OUTFILE)
000130 148+ CNOP 0,4
ALIGN LIST TO FULLWORD 01-CLOSE
000130 4510 A136 0013C 149+ BAL 1,*+12
LOAD REG1 W/LIST ADDR. @L2A 01-CLOSE
000134 00 150+ DC AL1(0)
OPTION BYTE 01-CLOSE
000135 0001E0 151+ DC AL3(INFILE)
DCB ADDRESS 01-CLOSE
000138 80 152+ DC AL1(128)
OPTION BYTE 01-CLOSE
000139 000240 153+ DC AL3(OUTFILE)
DCB ADDRESS 01-CLOSE
00013C 0A14 154+ SVC 20
ISSUE CLOSE SVC 01-CLOSE
155 WTO ' GOOD FILE
CLOSE',ROUTCDE=(2),DESC=(7)
00013E 0700 157+ CNOP 0,4
01-WTO
000140 A715 000E 0015C 158+ BRAS 1,IHB0023A
BRANCH AROUND MESSAGE @LCC 01-WTO
000144 0014 159+ DC AL2(20)
TEXT LENGTH @YA17152 01-WTO
000146 8000 160+ DC B'1000000000000000'
MCSFLAGS 01-WTO
000148 40C7D6D6C440C6C9 161+ DC C' GOOD FILE CLOSE'
MESSAGE TEXT @L6C 01-WTO
000158 0200 162+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
00015A 4000 163+ DC B'0100000000000000'
ROUTING CODES 01-WTO
00015C 164+IHB0023A DS 0H
01-WTO
00015C 0A23 165+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
00015E 47F0 A1D4 001DA 166 B C100
167 BADOPEN WTO ' UABLE TO OPEN
FILE',ROUTCDE=(2),DESC=(7)
000162 0700 169+ CNOP 0,4
01-WTO
000164 A715 0010 00184 170+BADOPEN BRAS 1,IHB0025A
BRANCH AROUND MESSAGE @LCC 01-WTO
000168 0017 171+ DC AL2(23)
TEXT LENGTH @YA17152 01-WTO
00016A 8000 172+ DC B'1000000000000000'
MCSFLAGS 01-WTO
00016C 40E4C1C2D3C540E3 173+ DC C' UABLE TO OPEN FILE'
MESSAGE TEXT @L6C 01-WTO
00017F 0200 174+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
XP1000
Page 6
Active Usings: XP1000+X'6',R10
Loc Object Code Addr1 Addr2 Stmt Source Statement
HLASM R6.0 2011/03/08 13.34
000181 4000 175+ DC B'0100000000000000'
ROUTING CODES 01-WTO
000184 176+IHB0025A DS 0H
01-WTO
000184 0A23 177+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
000186 47F0 A1D4 001DA 178 B C100
179 BADREAD WTO ' READ UNSUCCESSFUL
',ROUTCDE=(2),DESC=(7)
00018A 0700 181+ CNOP 0,4
01-WTO
00018C A715 0010 001AC 182+BADREAD BRAS 1,IHB0027A
BRANCH AROUND MESSAGE @LCC 01-WTO
000190 0017 183+ DC AL2(23)
TEXT LENGTH @YA17152 01-WTO
000192 8000 184+ DC B'1000000000000000'
MCSFLAGS 01-WTO
000194 40D9C5C1C440E4D5 185+ DC C' READ UNSUCCESSFUL '
MESSAGE TEXT @L6C 01-WTO
0001A7 0200 186+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
0001A9 4000 187+ DC B'0100000000000000'
ROUTING CODES 01-WTO
0001AC 188+IHB0027A DS 0H
01-WTO
0001AC 0A23 189+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
0001AE 47F0 A1D4 001DA 190 B C100
191 BADWRITE WTO ' WRITE UNSUCCESSFUL
',ROUTCDE=(2),DESC=(7)
0001B2 0700 193+ CNOP 0,4
01-WTO
0001B4 A715 0010 001D4 194+BADWRITE BRAS 1,IHB0029A
BRANCH AROUND MESSAGE @LCC 01-WTO
0001B8 0018 195+ DC AL2(24)
TEXT LENGTH @YA17152 01-WTO
0001BA 8000 196+ DC B'1000000000000000'
MCSFLAGS 01-WTO
0001BC 40E6D9C9E3C540E4 197+ DC C' WRITE UNSUCCESSFUL '
MESSAGE TEXT @L6C 01-WTO
0001D0 0200 198+ DC B'0000001000000000'
DESCRIPTOR CODES 01-WTO
0001D2 4000 199+ DC B'0100000000000000'
ROUTING CODES 01-WTO
0001D4 200+IHB0029A DS 0H
01-WTO
0001D4 0A23 201+ SVC 35
ISSUE SVC 35 @L6A 01-WTO
0001D6 47F0 A1D4 001DA 202 B C100
0001DA 203 C100 DS 0H
===> L R13,SAVEAREA+4
204 RETURN (14,12)
RESTORE REGISTERS AND RETURN 00119
0001DA 98EC D00C 0000C 206+ LM 14,12,12(13)
RESTORE THE REGISTERS 01-RETUR
0001DE 07FE 207+ BR 14
RETURN 01-RETUR
208 INFILE DCB
DSORG=PS,RECFM=VBS,MACRF=GM, +
DDNAME=INDD,EODAD=FINAL
211+* DATA CONTROL
BLOCK
212+*
0001E0 213+INFILE DC 0F'0' ORIGIN ON
WORD BOUNDARY 01-DCB
214+* DIRECT ACCESS
DEVICE INTERFACE
0001E0 0000000000000000 215+ DC BL16'0' FDAD,
DVTBL 01-DCB
0001F0 00000000 216+ DC A(0) KEYLEN,
DEVT, TRBAL 01-DCB
217+* COMMON ACCESS
METHOD INTERFACE
0001F4 00 218+ DC AL1(0) BUFNO,
NUMBER OF BUFFERS 01-DCB
0001F5 000001 219+ DC AL3(1) BUFCB,
BUFFER POOL CONTROL BLOCK 01-DCB
0001F8 0000 220+ DC AL2(0) BUFL,
BUFFER LENGTH 01-DCB
0001FA 4000 221+ DC BL2'0100000000000000'
DSORG, DATA SET ORGANIZATION 01-DCB
0001FC 00000001 222+ DC A(1) IOBAD FOR
EXCP OR RESERVED 01-DCB
223+* FOUNDATION
EXTENSION
000200 00 224+ DC BL1'00000000' BFTEK,
BFALN, DCBE INDICATORS 01-DCB
000201 00010E 225+ DC AL3(FINAL) EODAD
(END OF DATA ROUTINE ADDRESS) 01-DCB
000204 58 226+ DC BL1'01011000' RECFM
(RECORD FORMAT) 01-DCB
000205 000000 227+ DC AL3(0) EXLST
(EXIT LIST ADDRESS) 01-DCB
228+* FOUNDATION
BLOCK
000208 C9D5C4C440404040 229+ DC CL8'INDD' DDNAME
01-DCB
000210 02 230+ DC BL1'00000010' OFLGS
(OPEN FLAGS) 01-DCB
000211 00 231+ DC BL1'00000000' IFLGS
(IOS FLAGS) 01-DCB
000212 5000 232+ DC BL2'0101000000000000'
MACR (MACRO FORMAT) 01-DCB
XP1000
Page 7
Active Usings: XP1000+X'6',R10
Loc Object Code Addr1 Addr2 Stmt Source Statement
HLASM R6.0 2011/03/08 13.34
233+* BSAM-BPAM-QSAM
INTERFACE
000214 00 234+ DC BL1'00000000' OPTCD,
OPTION CODES 01-DCB
000215 000001 235+ DC AL3(1) CHECK OR
INTERNAL QSAM SYNCHRONIZING RTN. 01-DCB
000218 00000001 236+ DC A(1) SYNAD,
SYNCHRONOUS ERROR RTN. (3 BYTES) 01-DCB
00021C 0000 237+ DC H'0' INTERNAL
ACCESS METHOD FLAGS 01-DCB
00021E 0000 238+ DC AL2(0) BLKSIZE,
BLOCK SIZE 01-DCB
000220 00000000 239+ DC F'0' INTERNAL
ACCESS METHOD FLAGS 01-DCB
000224 00000001 240+ DC A(1) INTERNAL
ACCESS METHOD USE 01-DCB
241+* QSAM
INTERFACE
000228 00000001 242+ DC A(1) EOBAD
01-DCB
00022C 00000001 243+ DC A(1) RECAD
01-DCB
000230 0000 244+ DC H'0' QSWS
(FLAGS) AND EITHER DIRCT OR BUFOFF 01-DCB
000232 0000 245+ DC AL2(0) LRECL
01-DCB
000234 00 246+ DC BL1'00000000' EROPT,
ERROR OPTION 01-DCB
000235 000001 247+ DC AL3(1) CNTRL
01-DCB
000238 00000000 248+ DC H'0,0' RESERVED
AND PRECL 01-DCB
00023C 00000001 249+ DC A(1) EOB,
INTERNAL ACCESS METHOD FIELD 01-DCB
250 OUTFILE DCB
DSORG=PS,RECFM=FB,LRECL=136,BLKSIZE=13600,MACRF=PM, +
DDNAME=OUTDD
253+* DATA CONTROL
BLOCK
254+*
000240 255+OUTFILE DC 0F'0' ORIGIN ON
WORD BOUNDARY 01-DCB
256+* DIRECT ACCESS
DEVICE INTERFACE
000240 0000000000000000 257+ DC BL16'0' FDAD,
DVTBL 01-DCB
000250 00000000 258+ DC A(0) KEYLEN,
DEVT, TRBAL 01-DCB
259+* COMMON ACCESS
METHOD INTERFACE
000254 00 260+ DC AL1(0) BUFNO,
NUMBER OF BUFFERS 01-DCB
000255 000001 261+ DC AL3(1) BUFCB,
BUFFER POOL CONTROL BLOCK 01-DCB
000258 0000 262+ DC AL2(0) BUFL,
BUFFER LENGTH 01-DCB
00025A 4000 263+ DC BL2'0100000000000000'
DSORG, DATA SET ORGANIZATION 01-DCB
00025C 00000001 264+ DC A(1) IOBAD FOR
EXCP OR RESERVED 01-DCB
265+* FOUNDATION
EXTENSION
000260 00 266+ DC BL1'00000000' BFTEK,
BFALN, DCBE INDICATORS 01-DCB
000261 000001 267+ DC AL3(1) EODAD
(END OF DATA ROUTINE ADDRESS) 01-DCB
000264 90 268+ DC BL1'10010000' RECFM
(RECORD FORMAT) 01-DCB
000265 000000 269+ DC AL3(0) EXLST
(EXIT LIST ADDRESS) 01-DCB
270+* FOUNDATION
BLOCK
000268 D6E4E3C4C4404040 271+ DC CL8'OUTDD' DDNAME
01-DCB
000270 02 272+ DC BL1'00000010' OFLGS
(OPEN FLAGS) 01-DCB
000271 00 273+ DC BL1'00000000' IFLGS
(IOS FLAGS) 01-DCB
000272 0050 274+ DC BL2'0000000001010000'
MACR (MACRO FORMAT) 01-DCB
275+* BSAM-BPAM-QSAM
INTERFACE
000274 00 276+ DC BL1'00000000' OPTCD,
OPTION CODES 01-DCB
000275 000001 277+ DC AL3(1) CHECK OR
INTERNAL QSAM SYNCHRONIZING RTN. 01-DCB
000278 00000001 278+ DC A(1) SYNAD,
SYNCHRONOUS ERROR RTN. (3 BYTES) 01-DCB
00027C 0000 279+ DC H'0' INTERNAL
ACCESS METHOD FLAGS 01-DCB
00027E 3520 280+ DC AL2(13600) BLKSIZE,
BLOCK SIZE 01-DCB
000280 00000000 281+ DC F'0' INTERNAL
ACCESS METHOD FLAGS 01-DCB
000284 00000001 282+ DC A(1) INTERNAL
ACCESS METHOD USE 01-DCB
283+* QSAM
INTERFACE
000288 00000001 284+ DC A(1) EOBAD
01-DCB
00028C 00000001 285+ DC A(1) RECAD
01-DCB
000290 0000 286+ DC H'0' QSWS
(FLAGS) AND EITHER DIRCT OR BUFOFF 01-DCB
000292 0088 287+ DC AL2(136) LRECL
01-DCB
XP1000
Page 8
Active Usings: XP1000+X'6',R10
Loc Object Code Addr1 Addr2 Stmt Source Statement
HLASM R6.0 2011/03/08 13.34
000294 00 288+ DC BL1'00000000' EROPT,
ERROR OPTION 01-DCB
000295 000001 289+ DC AL3(1) CNTRL
01-DCB
000298 00000000 290+ DC H'0,0' RESERVED
AND PRECL 01-DCB
00029C 00000001 291+ DC A(1) EOB,
INTERNAL ACCESS METHOD FIELD 01-DCB
0002A0 292 OUTREC DS 0CL136
0002A0 293 BATA DS CL136
000328 294 SAVEAREA DS 18F
000370 295 LTORG
000370 296 INREC DS 0F
000370 297 DATA DS CL136
0003F8 298 DS CL32000
0080F8 299 DS CL32000
00FDF8 300 DS CL32000
000000 301 END XP1000
Relocation Dictionary
Page 9
Pos.Id Rel.Id Address Type Action
HLASM R6.0 2011/03/08 13.34
00000001 00000001 00000061 A 3 +
00000001 00000001 00000065 A 3 +
00000001 00000001 00000135 A 3 +
00000001 00000001 00000139 A 3 +
00000001 00000001 00000201 A 3 +
Ordinary Symbol and Literal Cross Reference
Page 10
Symbol Length Value Id R Type Asm Program Defn References
HLASM R6.0 2011/03/08 13.34
BADOPEN 4 00000164 00000001 I 170 73B
BASE1 1 0000000A 00000001 A U 25 32M 33U
BATA 136 000002A0 00000001 C C 293 104M
BEGIN 2 00000040 00000001 H H 52 45B
C100 2 000001DA 00000001 H H 203 166B 178B 190B
202B
DATA 136 00000370 00000001 C C 297 104
FINAL 2 0000010E 00000001 H H 135 225
IHB0003A 2 00000022 00000001 H H 43 37B
IHB0005A 2 00000058 00000001 H H 62 56B
IHB0008A 2 0000008C 00000001 H H 83 77B
IHB0012A 2 000000BC 00000001 H H 102 96B
IHB0014A 2 000000DA 00000001 H H 114 108B
IHB0018A 2 00000108 00000001 H H 132 126B
IHB0020A 2 0000012E 00000001 H H 145 139B
IHB0023A 2 0000015C 00000001 H H 164 158B
IHB0025A 2 00000184 00000001 H H 176 170B
IHB0027A 2 000001AC 00000001 H H 188 182B
IHB0029A 2 000001D4 00000001 H H 200 194B
INFILE 4 000001E0 00000001 F F 213 68 88 151
INREC 4 00000370 00000001 F F 296 89
LOOP 2 0000008E 00000001 H H 85 134B
OUTFILE 4 00000240 00000001 F F 255 70 118 153
OUTREC 136 000002A0 00000001 C C 292 119
XP1000 1 00000000 00000001 J 7 5 6 301
Unreferenced Symbols Defined in CSECTs
Page 11
Defn Symbol
HLASM R6.0 2011/03/08 13.34
182 BADREAD
194 BADWRITE
26 BASE2
27 BASE3
19 RA
20 RB
21 RC
22 RD
23 RE
24 RF
9 R0
10 R1
11 R2
12 R3
13 R4
14 R5
15 R6
16 R7
17 R8
18 R9
294 SAVEAREA
Macro and Copy Code Source Summary
Page 12
Con Source Volume Members
HLASM R6.0 2011/03/08 13.34
L2 SYS1.MACLIB BRSZ1A CLOSE DCB
GET IHBINNRA IHB01 OPEN PUT
RETURN SAVE
SYSSTATE WTO
L4 TRS.DEVL.COPYLIB TRSD01 EQUATES
Using Map
Page 13
HLASM R6.0 2011/03/08 13.34
Stmt -----Location----- Action ----------------Using----------------- Reg
Max Last Label and Using Text
Count Id Type Value Range Id
Disp Stmt
33 00000006 00000001 USING ORDINARY 00000006 00001000 00000001 10
0036A 202 *,BASE1
General Purpose Register Cross Reference
Page 14
Register References (M=modified, B=branch, U=USING, D=DROP, N=index)
HLASM R6.0 2011/03/08 13.34
0(0) 31 89M 119M 206M
1(1) 31 37M 56M 66M 77M 88M 91 96M 108M 118M 121
126M 139M 149M 158M 170M 182M 194M
206M
2(2) 31 206M
3(3) 31 206M
4(4) 31 206M
5(5) 31 206M
6(6) 31 206M
7(7) 31 206M
8(8) 31 206M
9(9) 31 206M
10(A) 31 32M 33U 206M
11(B) 31 206M
12(C) 31 206M
13(D) 31 206
14(E) 31 92M 122M 206M 207B
15(F) 31 72M 72 90M 90 91M 92B 120M 120 121M 122B
206M
Diagnostic Cross Reference and Assembler
Summary Page 15
HLASM R6.0 2011/03/08 13.34
No Statements Flagged in this Assembly
HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 6.0, PTF UK47103
SYSTEM: z/OS 01.10.00 JOBNAME: PGCOMP STEPNAME: ASSEMBLY
PROCSTEP: ASM
Data Sets Allocated for this Assembly
Con DDname Data Set Name Volume Member
P1 SYSIN TRSA38.LIB.CNTL TSODS2 XP1000
L1 SYSLIB TRS.MACLIB SYS761
L2 SYS1.MACLIB BRSZ1A
L3 SYS1.MODGEN BRSZ1A
L4 TRS.DEVL.COPYLIB TRSD01
L5 TRS.PROD.SRCLIB SYS761
L6 CEE.SCEEMAC BRSZ1A
L7 SYS11067.T133424.RA000.PGCOMP.ALIB.H01 BPUB01
L8 SYS11067.T133424.RA000.PGCOMP.ALIB2.H01 BPUB01
SYSLIN SYS11067.T133424.RA000.PGCOMP.LOADSET.H01 BPUB01
SYSPRINT TRSA38.PGCOMP.JOB33956.D0000115.?
32100K allocated to Buffer Pool Storage required 640K
62 Primary Input Records Read 6379 Library Records Read
0 Work File Reads
0 ASMAOPT Records Read 478 Primary Print Records Written
0 Work File Writes
17 Object Records Written 0 ADATA Records Written
Assembly Start Time: 13.34.27 Stop Time: 13.34.27 Processor Time: 00.00.00.0956
Return Code 000
-- END OF JOB --
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
John P. Baker
Sent: Tuesday, March 08, 2011 11:50 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Trouble Reading a Spanned File with an Assembler Program
Bruce,
Can you please post the actual assembler output?
John P. Baker
Chief Software Architect
HFD Technologies
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf
Of Hunt, Bruce
Sent: Tuesday, March 08, 2011 12:40 PM
To: IBM-MAIN@bama.ua.edu
Subject: Trouble Reading a Spanned File with an Assembler Program
I am trying to read a spanned file with a record format of VBS or variable
blocked spanned, a record length of 1, a block size of 27998, an
organization of PS or physical sequential (all according to the file
attributes), and a real record size of 65535. I am not the greatest
Assembler programmer but my program is pretty simple. But I get a SOC4 on
the open. Any help will be greatly appreciated. Any idea what I am doing
wrong? The actual records in the spanned input file are header records that
are 76 bytes long, data records that are 136 bytes long, and trailer records
that are 28 bytes long. I have tried making my output file 28 bytes long and
tried making it 136 bytes long. Neither worked.
10.46.33 JOB33921 -ASMJCL RMS RMS@2X 00 32 7 551177
.00
10.46.33 JOB33921 + START XP1000
10.46.33 JOB33921 + BEFORE OPEN
10.46.35 JOB33921 IEA995I SYMPTOM DUMP OUTPUT 848
848 SYSTEM COMPLETION CODE=0C4 REASON CODE=00000010
848 TIME=10.46.34 SEQ=02539 CPU=0000 ASID=0060
848 PSW AT TIME OF ERROR 078C1000 80D26522 ILC 4 INTC
10
848 NO ACTIVE MODULE FOUND
848 NAME=UNKNOWN
848 DATA AT PSW 00D2651C - 56403DD6 0B049180 20324710
848 GR 0: 00011000 1: 00D00060
848 2: 001E9184 3: 00D264D2
848 4: 80D26522 5: 008FD7E0
848 6: 00D264D0 7: 00FBD480
848 8: 0E14409E 9: 8AAE2D88
848 A: 008CBC8D B: 008FF048
848 C: 010D93C0 D: 00006008
848 E: 90D26518 F: 008FF048
848 END OF SYMPTOM DUMP
TITLE 'XP1000'
*
* 02/25/11 B HUNT CHANGED A SPANNED FILE TO A FIXED FILE
*
XP1000 AMODE 31
XP1000 RMODE ANY
XP1000 START
COPY EQUATES
SAVE (14,12) SAVE REGISTERS 14 THRU 12
BASR BASE1,0 ESTABLISH ADDRESSABILITY
USING *,BASE1 PROVIDE BASE ID
WTO ' START XP1000', X
ROUTCDE=(2), X
DESC=(7)
B BEGIN
SPACE 1
DS 0D
DC CL8'XP1000'
DC CL8'&SYSDATE'
DC CL8'&SYSTIME'
SPACE 1
BEGIN DS 0H
WTO ' BEFORE OPEN',ROUTCDE=(2),DESC=(7)
OPEN (INFILE,INPUT,OUTFILE,OUTPUT)
LTR 15,15
BNZ BADOPEN
WTO ' GOOD OPEN FILE',ROUTCDE=(2),DESC=(7)
LOOP DS 0H
GET INFILE,INREC
WTO ' GOOD FILE READ',ROUTCDE=(2),DESC=(7)
MVC BATA,DATA
WTO ' GOOD MOVE',ROUTCDE=(2),DESC=(7)
PUT OUTFILE,OUTREC
WTO ' GOOD FILE WRITE',ROUTCDE=(2),DESC=(7)
B LOOP
FINAL DS 0H
WTO ' BEFORE FILE CLOSE',ROUTCDE=(2),DESC=(7)
CLOSE (INFILE,,OUTFILE)
WTO ' GOOD FILE CLOSE',ROUTCDE=(2),DESC=(7)
B C100
BADOPEN WTO ' UABLE TO OPEN FILE',ROUTCDE=(2),DESC=(7)
B C100
BADREAD WTO ' READ UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7)
B C100
BADWRITE WTO ' WRITE UNSUCCESSFUL ',ROUTCDE=(2),DESC=(7)
B C100
C100 DS 0H
RETURN (14,12) RESTORE REGISTERS AND RETURN
INFILE DCB DSORG=PS,RECFM=VBS,MACRF=GM, +
DDNAME=INDD,EODAD=FINAL
OUTFILE DCB DSORG=PS,RECFM=FB,LRECL=136,BLKSIZE=13600,MACRF=PM, +
DDNAME=OUTDD
OUTREC DS 0CL136
BATA DS CL136
SAVEAREA DS 18F
LTORG
INREC DS 0F
DATA DS CL136
DS CL32000
DS CL32000
DS CL32000
END XP1000
//ASMJCL JOB (DP,6010),'XXXXXX - HUNT ',CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*
//RMS EXEC CA11RMS,TYPRUN='F'
//*
//ASMEXEC EXEC PGM=XP1000,REGION=0M
//STEPLIB DD DISP=SHR,DSN=TEST.LOADLIB
//INDD DD DISP=SHR,DSN=TEST.FONT.BACKUP,
// DSORG=PS,LRECL=X,BLKSIZE=27998,RECFM=VBS
//OUTDD DD DSN=TEST.FONT.BACKUP.FIXED,
// DISP=(,CATLG,CATLG),
// SPACE=(TRK,(1950,100),RLSE),
// DCB=(LRECL=136,BLKSIZE=0,RECFM=FB)
//SYSOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our new tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
