Missing SYSLIB - point it to SYS1.MACLIB and SYS1.MODGEN On Sat, 19 Nov 2011 23:42:19 +0000 Robert Prins <robert.ah.pr...@gmail.com> 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 -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- 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