-------------------------------------<snip>-----------------------------------------
You need to add SYS1.MODGEN to your SYSLIB concatenation for the Assembler.
Rick
--------------------------------------------------------------------------------------
Robert Prins wrote:
I'm trying to assemble this on a z/OS system and having changed the
JCL to something that actually allows me to assemble the code, I get
these four errors, and having no assembler knowledge to speak off, can
anyone explain me what I need to change:
- - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - 295 Line(s) not Displayed
223 * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * * * * * * * 021000
224
*
021100
225 OBTAIN
OBTAIN Fetch the VTOC entry 021200
** ASMA057E Undefined operation code - OBTAIN
** ASMA435I Record 212 in PRINO.RAHP.ASM(EOFDISK) on volume: ZSTOR1
- - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - 9 Line(s) not Displayed
0000F8 D507 C740 C640 00740 00640 235 CLC =CL8'SYSCTLG
',JFCBDSNM See if DSN=SYSCTLG 022200
0000FE 4770 C10C 0010C 236 BNE
NOTCVOL No, then not an active OS catalog 022300
000102 0000 0000 0000 00000 00000 237 CLC
=X'0000FF',DS1LSTAR See if VTOC says CVOL is formated 022400
** ASMA044E Undefined symbol - DS1LSTAR
** ASMA435I Record 224 in PRINO.RAHP.ASM(EOFDISK) on volume: ZSTOR1
- - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - 8 Line(s) not Displayed
246
*
023300
00010C 1FAA 247 SLR
R10,R10 Clear a work register 023400
00010E 0000 0000 00000 248 ICM
R10,7,DS1LSTAR Ascertain last addressable record 023500
** ASMA044E Undefined symbol - DS1LSTAR
** ASMA435I Record 235 in PRINO.RAHP.ASM(EOFDISK) on volume: ZSTOR1
- - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - 551 Line(s) not Displayed
707
*
045600
000750 00750 00588 708 ORG
F1DSCB-44 Overlay Format 1 DSCB area in CSECT 045700
709 IECSDSL1
(1) DSECT for Format-1 DSCB (VTOC entry) 045800
** ASMA057E Undefined operation code - IECSDSL1
** ASMA435I Record 458 in PRINO.RAHP.ASM(EOFDISK) on volume: ZSTOR1
- - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - 3691 Line(s) not Displayed
JCL used is:
//PRINOASM JOB (PRINO),
// 'ROBERT AH PRINS',
// CLASS=A,
// MSGCLASS=H,
// MSGLEVEL=(2,0),
// NOTIFY=&SYSUID
//
*********************************************************************
//ASM EXEC PGM=ASMA90,
// PARM='OBJECT,NODECK'
//SYSLIB DD DSN=SYS1.MACLIB,
// DISP=SHR
//SYSLIN DD DSN=&&LOADSET,
// DISP=(MOD,PASS),
// UNIT=SYSDA,
// SPACE=(800,(100,100)),
// DCB=(BLKSIZE=0)
//SYSUT1 DD SPACE=(800,(100,100),,,ROUND),
// UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD DSN=&SYSUID..RAHP.ASM(EOFDISK),
// DISP=SHR
Where '&SYSUID..RAHP.ASM(EOFDISK)' contains the assembly language part
of the member from the above mentioned CBT tape 846 @ <http://
www.cbttape.org/ftp/cbt/CBT846.zip>
Robert
----------------------------------------------------------------------
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
