Re: EOFDISK - CBTTAPE 846
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 + 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 :OBTAINFetch 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 : F8 D507 C740 C640 00740 00640 235 CLC =CL8'SYSCTLG :',JFCBDSNM See if DSN=SYSCTLG 022200 : FE 4770 C10C0010C 236 BNE :NOTCVOLNo, then not an active OS catalog 022300 : 000102 0 0 237 CLC :=X'FF',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,R10Clear a work register 023400 : 00010E 0 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 : 00075000750 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' ://SYSLIBDD DSN=SYS1.MACLIB, :// DISP=SHR ://SYSLINDD DSN=LOADSET, :// DISP=(MOD,PASS), :// UNIT=SYSDA, :// SPACE=(800,(100,100)), :// DCB=(BLKSIZE=0) ://SYSUT1DD 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
Re: EOFDISK - CBTTAPE 846
In 9bhgc7p6bice8sjliefanmlrk3qsmag...@4ax.com, on 11/20/2011 at 02:10 AM, Binyamin Dissen bdis...@dissensoftware.com said: Missing SYSLIB No - incomplete. point it to SYS1.MACLIB and SYS1.MODGEN Yes. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- 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
Re: EOFDISK - CBTTAPE 846
In 4537435723119219.wa.paulgboulderaim@bama.ua.edu, on 11/19/2011 at 05:54 PM, Paul Gilmartin paulgboul...@aim.com said: This question might better be asked on ASSEMBLER-LIST. It's really an MVS question rather than an assembler question. IMHO it belongs here. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- 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
Re: EOFDISK - CBTTAPE 846
In cafazstadvxn0+bbaasxfsrcf81oyr547xbdtycattjonuk-...@mail.gmail.com, on 11/19/2011 at 11:42 PM, Robert Prins robert.ah.pr...@gmail.com said: I'm trying to assemble this on a z/OS system Try including SYS1.MODGEN in the SYSLIB concatenation. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- 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
Re: EOFDISK - CBTTAPE 846
-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 OBTAINFetch 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 F8 D507 C740 C640 00740 00640 235 CLC =CL8'SYSCTLG ',JFCBDSNM See if DSN=SYSCTLG 022200 FE 4770 C10C0010C 236 BNE NOTCVOLNo, then not an active OS catalog 022300 000102 0 0 237 CLC =X'FF',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,R10Clear a work register 023400 00010E 0 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 00075000750 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' //SYSLIBDD DSN=SYS1.MACLIB, // DISP=SHR //SYSLINDD DSN=LOADSET, // DISP=(MOD,PASS), // UNIT=SYSDA, // SPACE=(800,(100,100)), // DCB=(BLKSIZE=0) //SYSUT1DD 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
Re: EOFDISK - CBTTAPE 846
On Sat, 19 Nov 2011 23:42:19 +, 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: This question might better be asked on ASSEMBLER-LIST. IBM-MAIN is reserved for discussions of acronyms and theology. 225 OBTAIN OBTAINFetch the VTOC entry 021200 ** ASMA057E Undefined operation code - OBTAIN =X'FF',DS1LSTAR See if VTOC says CVOL is formated 022400 ** ASMA044E Undefined symbol - DS1LSTAR R10,7,DS1LSTAR Ascertain last addressable record 023500 ** ASMA044E Undefined symbol - DS1LSTAR ** ASMA057E Undefined operation code - IECSDSL1 ** ASMA435I Record 458 in PRINO.RAHP.ASM(EOFDISK) on volume: ZSTOR1 These appear to be names of macros or DSECT members, likely defined in either SYS1.MACLIB or SYS1.MODGEN. You should put (one of) these in your SYSLIB concatenation. -- gil -- 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
Re: EOFDISK - CBTTAPE 846
Missing SYSLIB - point it to SYS1.MACLIB and SYS1.MODGEN On Sat, 19 Nov 2011 23:42:19 + 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 :OBTAINFetch 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 : F8 D507 C740 C640 00740 00640 235 CLC =CL8'SYSCTLG :',JFCBDSNM See if DSN=SYSCTLG 022200 : FE 4770 C10C0010C 236 BNE :NOTCVOLNo, then not an active OS catalog 022300 : 000102 0 0 237 CLC :=X'FF',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,R10Clear a work register 023400 : 00010E 0 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 : 00075000750 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' ://SYSLIBDD DSN=SYS1.MACLIB, :// DISP=SHR ://SYSLINDD DSN=LOADSET, :// DISP=(MOD,PASS), :// UNIT=SYSDA, :// SPACE=(800,(100,100)), :// DCB=(BLKSIZE=0) ://SYSUT1DD 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