CONCAT adds to what is already on STEPLIBX, ALLOC with REUSE frees and then allocates STEPLIBX.
On a system that works add LISTALC STATUS prior to the first CONCAT and after the last one to see the before and after allocation. Dennis Roach GHG Corporation Lockheed Marten Mission Services FDOC Contract 2100 Space Park Drive LM-15-4BH Houston, Texas 77058 Voice: (281) 336-5027 Cell: (713) 591-1059 Fax: (281) 336-5410 E-Mail: [email protected] All opinions expressed by me are mine and may not agree with my employer or any person, company, or thing, living or dead, on or near this or any other planet, moon, asteroid, or other spatial object, natural or manufactured, since the beginning of time. > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Daniel McLaughlin > Sent: Wednesday, February 11, 2009 1:32 PM > To: [email protected] > Subject: CLIST 806-4 > > Adabas team testing in our 1.9 sandbox. Had been doing well but then > all of a > sudden the CLIST seems to have dropped a library. Below are the > original and > a modified copy, neither of which work. I tried to rewrite it in REXX > but got > the same results. > > Modified copy: > PROC 0 DEBUG > CONTROL CON MSG LIST > ALLOC F(STEPLIBX) DA('ADABAS.Q3.LOAD' 'NATURAL.REV.Q3.LOAD') SHR > REUSE > ALLOC F(DDCARD) DA('ADABAS.CARDLIB(ADAPARM3)') SHR > ALLOC F(SORTWK01) SPACE(15 15) TRACKS REUSE > ALLOC F(SYSOUT) DA(*) > CALL 'NATURAL.NAT.Q3.LOAD(NATT46)' + > 'AUTO=ON,MT=0,DATSIZE=200,WORK=OFF,KC=OFF,LC=ON,PRINT= > ((6,7),AM=PC)' > FREE F(DDCARD) > FREE F(STEPLIBX) > END > > > Original copy: > > PROC 0 > CONTROL NOCON MSG NOLIST > CONCAT DD(STEPLIBX) DSN(ADABAS.Q3.LOAD) > CONCAT DD(STEPLIBX) DSN(NATURAL.REV.Q3.LOAD) > ALLOC F(DDCARD) DA('ADABAS.CARDLIB(ADAPARM3)') SHR > ALLOC F(SORTWK01) SPACE(15 15) TRACKS REUSE > ALLOC F(SYSOUT) DA(*) > CALL 'NATURAL.NAT.Q3.LOAD(NATT46)' + > 'AUTO=ON,MT=0,DATSIZE=200,WORK=OFF,KC=OFF,LC=ON,PRINT= > ((6,7),AM=PC)' > /* 'AUTO=ON,MT=0,DATSIZE=200,WORK=OFF,PRINT=OFF,KC=OFF,LC=ON' > + > /* 'MT=0,DATSIZE=40,WORK=((1-7),AM=STD,OPEN=ACC), + > /* FDIC=(46,11) > /* PRINT=((1-7),AM=STD,OPEN=ACC)' > FREE F(DDCARD) > DECONCAT DD(STEPLIBX) DSN(ADABAS.Q3.LOAD) > > We are stumped...and would very much appreciate comments or > suggestions. > TIA... > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
