Passing Record Structure
Ghadge,Sameer
Sameer_Ghadge@Syntelinc.com
Thu, 28 Feb 2002 08:10:02 -0500
T-JNL-STATUS is passed ,and there are two more record structures.
Actually i removed that from the code for the sake of simplicity,
but thx for replying,
what u say seems to be right,
Foll. code contradicts the business rule abt " PUT VS-JOURNAL-DRIVER
I don't know the exact behavior of powerhouse with passed record structure(i
went thru the manual),
i don't have PH to run the code and see results
I need confirmation from u guys
thx again
Sameer
-----Original Message-----
From: Heasman, David [SMTP:david.heasman@schroders.com]
Sent: Thursday, February 28, 2002 5:09 PM
To: 'Ghadge,Sameer'; powerh-l@lists.swau.edu
Subject: RE: Passing Record Structure
..
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
Certainly looks like it. And also T-JNL-STATUS isn't passed down
(is it?)
so
will be = "N". Looks like a big bug.
__________________________________________________________________
This message might contain confidential information. If it has been
sent to you in error please do not forward it or copy it or act upon its
contents, but report it to postmaster@schroders.com
Schroders has the right lawfully to record, monitor and inspect
messages between its employees and any third party. Your messages shall be
subject to such lawful supervision as Schroders deems to be necessary in
order to protect its information, its interests and its reputation.
Schroders prohibits and takes steps to prevent its information
systems from being used to view, store or forward offensive or
discriminatory material. If this message contains such material please
report it to abuse@schroders.com
Schroders does not normally accept or offer business instructions
via email. Any action that you might take upon this message might be at your
own risk.
Schroder Investment Management Limited
31 Gresham Street
London EC2V 7QA
Registered Office at above address
Registered number 1893220 England
Regulated by the FSA
> -----Original Message-----
> From: Merol Newman [SMTP:merol.newman@ramesys.com]
> Sent: Thursday, February 28, 2002 6:23 PM
> To: Ghadge,Sameer
> Cc: powerh-l@lists.swau.edu
> Subject: RE: Passing Record Structure
>
> Hello Sameer
>
> From your previous questions on the list, I think you are in the unlucky
> position of maintaining somebody else's (not very good) PH code. No wonder
> you
> are confused!
>
> The PUT should be AFTER the call to screen prog_BBB, and as David says,
> you need
> to pass T-JNL-STATUS. Presumably prog_BBB sets T-JNL-STATUS according to
> validation criteria. It will then be passed back to prog_AAA with the
> potential
> VS-JOURNAL-DRIVER record, which you can then decide whether to PUT or not.
>
> I would suggest that
> else null
>
> should be replaced by
> else put VS-JOURNAL-DRIVER
>
> Another point - would anyone who knows better please correct me! When you
> have
> done a PUT, you no longer have the record in the buffer, so you have no
> data to
> pass to prog_BBB. If for some reason you wanted to PUT the record before
> passing
> it to the screen (which you don't) you would need to GET it again. (This
> wouldn't apply to a PUT in an update procedure, where the user had entered
> Update Stay.)
>
> I hope this helps - good luck!
>
> regards
> Merol
>
> merol.newman@ramesys.com
> Ramesys, Eldon Way, Crick, Northamptonshire, UK. NN6 7SL
> phone 01788 822133/823831, fax 01788 823601
>
>
> > -----Original Message-----
> > From: powerh-l-admin@cube.swau.edu
> > [mailto:powerh-l-admin@cube.swau.edu]On Behalf Of Ghadge,Sameer
> > Sent: 28 February 2002 11:25
> > To:
> > 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.
> >