Laserfiche WebLink
<br />001311 <br /> <br />shortage elevation}. <br /> <br />IYSHRT = 0 <br />IYSHRT = 1 <br /> <br />No shortage condition exists. <br />Shortage condition exists. <br /> <br />JSNAP(I,J} <br /> <br />snapshot information. <br /> <br />I = Snapshot number. (I=1,20) <br />J = 1 Printer control switch (IOC) to be <br /> activated. <br />J = 2 Setting of the IOC. <br />J = 3 Month the snapshot is to be acti- <br /> vated. <br />J = 4 Year the snapshot is to be acti- <br /> vated. <br />J = 5 Reach number (optional). <br />J = 6 Sequence number (optional). <br /> <br />Read from SNAPSHOT cards in INITIAL. <br /> <br />JYR <br /> <br />Current year. <br /> <br />KDEMNM(I,J,K} <br /> <br />The title describing each demand. Eight <br />words in A8 format. <br /> <br />KPRI <br /> <br />I = Index of the reach where the demand is <br />located. <br />J = The demand sequence index. <br />K = Word number. (K=1,8) <br /> <br />~ead fro.m SUR, 'EM cards in READER. <br /> <br />Vulue against which DEMAND(I,J,14} is com- <br />pared to determine if demand is to be pro- <br />cessed. Set = 1 in a data statement in CRSM. <br /> <br />KQINNM(I,J,K) The title describing each inflow. Eight <br />words in A8 format. <br /> <br />KQINNM is'equival~nced to ACCU in INITIAL, <br />READER, and SCRIBl to temporarily provide a <br />storage location for transferring variable <br />KQINNM between subroutines during run ini- <br />tialization. . <br /> <br />I = Index of the reach where the inflow is <br />located. <br />J = Inflow sequence index. <br />K = Word number. (K=1,8) <br /> <br />KSURNM(I,J} <br /> <br />The title describing each reach. Eight words <br />in A8 format. <br /> <br />I = Index of the reach. <br /> <br />27 <br />