RE: JBA ML - DRP question

["Barbieri, Ron" <Rbarbie@xxxxxxxxxxxxx>]

Gary,
        You have me wondering what version of DRP you have because here's
our unchanged version of that section of source code:

 C******************************************************
890823
 C* WRITE RECORD FOR EACH STOCK ROOM BALANCE
890823
 C******************************************************
890823
 C           S0BALN    BEGSR
890823
 C*
920921
 C*********************ADD  SPHY60    TOTONH           **DRV20011
920921
 C*********************SUB  SFRZ60    TOTONH           **DRV20011
920921
 C*
890823
 C*    Write Physical Stock available at individual Stkrooms.
890823
 C*
890823
 C           KEY77     CHAINDR77ISTK             90
890823
 C   90                DO
890823
 C                     MOVE L#CONO    CONO77
890823
 C                     MOVE MODNDS    MODN77
890823
 C                     MOVE ITEM04    ITEM77
890823
 C                     MOVE STRC60    ISTR77
890823
 C                     END
890823
 C*
890823

As you can see, ours already tests *IN90 for the value of *ON.....

Ron Barbieri
Production Tool Supply

-----Original Message-----
From: Gary.Brown@appliedchemicals.com
[mailto:Gary.Brown@appliedchemicals.com]
Sent: Monday, August 27, 2001 5:42 AM
To: JBAUSERS-L@midrange.com
Subject: JBA ML - DRP question




For those of us lucky enough to still have source code  :-)

Looking at program DR005, subroutine S0BALN

The CHAIN on DR77ISTK and the subsequent test of *IN90

I think the test of *IN90 should be for the value of *ON (which would mean
the
CHAIN has failed) and so the fields would then be populated.

The result of the way it is written at the moment (testing for OFF) is that
we
have lots of records with blanks for  CONO/MODN/ITEM in file DRP77

Does anyone else agree that the test should be for *ON

Not sure yet of what impact this error has on the down stream calculations.


_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/jbausers-l
or email: JBAUSERS-L-request@midrange.com