Passing Record Structure

[Edis, Bob]

G'day Sameer

This is an example of VERY BAD coding!  The second screen probably has a
default UPDATE procedure than contains a PUT for the file.  This would
over-write the PUT in the calling screen as that has not been committed.

The above could be rubbish of course depending on the database used but you
didn't bother to tell us your environment!!!  Your words "Kinda important"
sounds like you think we work for/with you.  We don't.

Regards,
Blue

-----Original Message-----
From: Ghadge,Sameer [mailto:Sameer_Ghadge@Syntelinc.com]
Sent: Thursday, February 28, 2002 5:25 AM
To: powerh-l@lists.swau.edu
Subject: Passing Record Structure


Hi,all,
Pls give your inputs(kinda important)

I have a code as follows :-
----------------------------------------------------------------------------
--
PROGRAM prog_AAA
PROCEDURE INTERNAL JOURNAL
 BEGIN
  INFO "Creating journal..."
			..
			..
 .
  LET JNL1-BRANCH OF VS-JOURNAL-DRIVER  = ISSUE-BRANCH OF VS-GEN-ISSUES
			..
			..
	
  PUT VS-JOURNAL-DRIVER
  LET T-JNL-STATUS = "N"

  ;Run journal screens
  RUN SCREEN prog_BBB PASSING VS-JOURNAL-DRIVER MODE E

  IF T-JNL-STATUS <> "Y"
   THEN ERROR "Journal details were not confirmed... voucher not issued"
   ELSE NULL
 END
----------------------------------------------------------------------------
--
now program prog_BBB  has 
			..
			..
 
    FILE VS-JOURNAL-DRIVER  MASTER	
			..
    LET JOURNAL-NUMBER OF VS-JOURNAL-DRIVER = JOURNAL-NUMBER OF VS-JOURNALS
----------------------------------------------------------------------------
--
 and there is no  "PUT VS-JOURNAL-DRIVER" stmt in prog_BBB.
  
  Does this means that program prog_BBB makes entries for the same record in
prog_AAA 
  
  I am confused because of "PUT VS-JOURNAL-DRIVER" in prog_AAA,
  because ,if some validation fails in prog_BBB then no entries
  should be made in "VS-JOURNAL-DRIVER " ,but it seems that 'PUT' is issued
before.
  
  
    
  Highly Appreciate any help
  thx
  Sameer

= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.