Passing Record Structure

[Ghadge,Sameer]

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