Daniel
In your original CLIST you have CONCAT not ALLOC, in the modified one you
ALLOC not CONCAT for STEPLIBX. If you are not using CONCAT then you will
not have a concatenation?
Could an TASKLIB or LIBDEF work for this product?
Did you drop a statement?
Lizette
>
> 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
