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
