What were the messages that were generated at time of failure Daniel: What were the messages that were generated at time of failure of the clist ???? Any output is appreciated .. Scott J Ford www.identityforge.com
________________________________ From: Daniel McLaughlin <[email protected]> To: [email protected] Sent: Wednesday, February 11, 2009 2:31:56 PM 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
