Without going to CBT tape look at this utility, I can only assume this will write the EOF marker on a newly allocated empty file.
If so, as of z/OS 1.11 or higher, all datasets now get EOF marker written, whether SMS managed or not. Time to retire these utils..... _________________________________________________________________ Dave Jousma Assistant Vice President, Mainframe Services david.jou...@53.com 1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f 616.653.2717 -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Binyamin Dissen Sent: Saturday, November 19, 2011 7:11 PM To: IBM-MAIN@bama.ua.edu Subject: Re: EOFDISK - CBTTAPE 846 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 This e-mail transmission contains information that is confidential and may be privileged. It is intended only for the addressee(s) named above. If you receive this e-mail in error, please do not read, copy or disseminate it in any manner. If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of this information is prohibited. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please erase it from your computer system. Your assistance in correcting this error is appreciated. ---------------------------------------------------------------------- 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