Larry -
Try using this instead:
::setvar db_adgr 0
::While setvar(db_adgr,db_adgr + 1) <= !dbsetno
![db_set!db_adgr]
It forces dereferencing on the "inner" variable before evaluating the
whole.
(This also works nicely in command files for similar uses.)
Curtis
>>> Larry Barnes <[log in to unmask]> 03/27/00 10:24AM >>>
I'm somewhat puzzled by a stream-x job I've created.
I have a command file that generates vaiables: db_name, dbset. I then
try to load these variables into an ADAGER job
stream.
The first var (db_name) loads fine. The second var (dbset) can have a
number added to the end, becuase there maybe
several data sets that need expanding.
For example the following var's contain data set names.
DB_SET1 = M-FIELD-INDEX
DB_SET2 = M-PLAN-PERIOD-CO
In my streamx jcl I have the following statements:
::setvar db_adgr 0
::While setvar(db_adgr,db_adgr + 1) <= !dbsetno
db_set!db_adgr
60%
::endwhile
<snip>
begin 644 TEXT.htm
M/"%$3T-465!%($A434P@4%5"3$E#("(M+R]7,T,O+T141"!(5$U,(#0N,"!4
M<F%N<VET:6]N86PO+T5.(CX-"CQ(5$U,/CQ(14%$/@T*/$U%5$$@8V]N=&5N
M=#TB=&5X="]H=&UL.R!C:&%R<V5T/6ES;RTX.#4Y+3$B(&AT='`M97%U:78]
M0V]N=&5N="U4>7!E/@T*/$U%5$$@8V]N=&5N=#TB35-(5$U,(#4N,#`N,CDQ
M.2XV,S`W(B!N86UE/4=%3D52051/4CX\+TA%040^#0H\0D]$62!B9T-O;&]R
M/2-F9F9F9F8@#0IS='EL93TB1D].5#H@,3!P="!!<FEA;[log in to unmask]
M1E0Z(#)P>[log in to unmask]@,G!X(CX-"CQ$258^3&%R<GD@+3PO1$E6
M/@T*/$1)5CXF;F)S<#L\+T1)5CX-"CQ$258^5')Y('5S:6YG('1H:7,@:6YS
M=&5A9#H\+T1)5CX-"CQ$258^)FYB<W`[/"]$258^#0H\1$E6/CHZ<V5T=F%R
M(&1B7V%D9W(@,#Q"4CXZ.E=H:6QE('-E='9A<BAD8E]A9&=R+&1B7V%D9W(@
M*R`Q*2`F;'0[/2`-"B%D8G-E=&YO/$)2/B%;9&)?<V5T(61B7V%D9W)=/$)2
M/CPO1$E6/@T*/$1)5CY)="!F;W)C97,@9&5R969E<F5N8VEN9R!O;B!T:&4@
M(FEN;F5R(B!V87)I86)L92!B969O<F4@979A;'5A=&EN9R!T:&4@#0IW:&]L
M92X\+T1)5CX-"CQ$258^*%1H:7,@86QS;R!W;W)K<R!N:6-E;'D@:6X@8V]M
M;6%N9"!F:6QE<R!F;W(@<VEM:6QA<B!U<V5S+BD\+T1)5CX-"CQ$258^)FYB
M<W`[/"]$258^#0H\1$E6/D-U<G1I<SQ"4CX\0E(^)F=T.R9G=#LF9W0[($QA
M<G)Y($)A<FYE<R`F;'0[;&%R<GEB0$U)5$5+0T]24"Y#3TTF9W0[(`T*,#,O
M,C<O,#`@,3`Z,C1!32`F9W0[)F=T.R9G=#L\0E(^/$)2/DDG;2!S;VUE=VAA
M="!P=7IZ;&5D(&)Y(&$@<W1R96%M+7@@:F]B($DG=F4@#0IC<F5A=&5D+CQ"
M4CY)(&AA=F4@82!C;VUM86YD(&9I;&4@=&AA="!G96YE<F%T97,@=F%I86)L
M97,Z)FYB<W`[(&1B7VYA;64L(`T*9&)S970N)FYB<W`[($D@=&AE;CQ"4CYT
M<GD@=&\@;&]A9"!T:&5S92!V87)I86)L97,@:6YT;R!A;B!!1$%'15(@#0IJ
M;V(\0E(^<W1R96%M+CQ"4CY4:&4@9FER<W0@=F%R("AD8E]N86UE*2!L;V%D
M<R!F:6YE+B9N8G-P.R!4:&4@<V5C;VYD('9A<B`-"BAD8G-E="D@8V%N(&AA
M=F4@83Q"4CYN=6UB97(@861D960@=&\@=&AE(&5N9"P@8F5C=6%S92!T:&5R
M92!M87EB93Q"4CYS979E<F%L(`T*9&%T82!S971S('1H870@;F5E9"!E>'!A
M;F1I;F<N/$)2/D9O<B!E>&%M<&QE('1H92!F;VQL;W=I;F<@=F%R)W,@8V]N
M=&%I;B!D871A(`T*<V5T(&YA;65S+CQ"4CY$0E]3150Q(#T@32U&245,1"U)
M3D1%6#Q"4CY$0E]3150R([log in to unmask]"U#3SQ"4CX\0E(^26X@
M;7D@#0IS=')E86UX(&IC;"!)(&AA=F4@=&AE(&9O;&QO=VEN9R!S=&%T96UE
M;G1S.CQ"4CX\0E(^.CIS971V87(@9&)?861G<B`-"C`\0E(^.CI7:&EL92!S
M971V87(H9&)?861G<BQD8E]A9&=R("L@,2D@)FQT.ST@#0HA9&)S971N;SQ"
M4CYD8E]S970A9&)?861G<CQ"4CXV,"4\0E(^/$)2/CHZ96YD=VAI;&4\0E(^
M/"]$258^#0H\1$E6/B9L=#MS;FEP)F=T.SPO1$E6/@T*/$1)5CXF;F)S<#L\
5+T1)5CX\+T)/1%D^/"](5$U,/@T*
`
end
-----------------------------------------------------
Confidentiality Notice: This e-mail transmission
may contain confidential or legally privileged
information that is intended only for the individual
or entity named in the e-mail address. If you are not
the intended recipient, you are hereby notified that
any disclosure, copying, distribution, or reliance
upon the contents of this e-mail is strictly prohibited.
If you have received this e-mail transmission in error,
please reply to the sender, so that Covance can arrange
for proper delivery, and then please delete the message
from your inbox. Thank you.
|
