Joel,
Because a journal image is a copy of the original record
from the journaled file or table plus journal info at the
"front", you could to a classic sql join.
The trick will be getting the correct key info >if< you
care about matching the journal data columns to the file/table columns.
On the other hand, mabe your current journal images contain the data
you need >if< you have the "before" image ?
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Monday, October 01, 2012 9:20 AM
To: Midrange Systems Technical Discussion
Subject: make cust file look like a journal record - format
I have pgmA which reads cust journal changes and sends them off for an ETL app.
I would also like to be able to send the entire cust file using the same pgmA with no changes.
How can I make the cust record format look just like a journal record (the format that DSPJRN creates).
For example:
Cust file format:
CustName 30
CustAddr 30
CustCity 20
-----
Total 80
I want this to look like a DSPJRN record so I can use the same pgmA to load up all CUST records for an initial load.
Desired format:
Field Field
Text Name Type Length
Length of entry JOENTL S 5 ---------------------|
Sequence number JOSEQN S 10 |
Journal Code JOCODE A 1 |
Entry Type JOENTT A 2 |
Date of entry: Job date f JODATE A 6 |
Time of entry: hour/minut JOTIME S 6 |---------- journal header fields
Name of Job JOJOB A 10 |
Name of User JOUSER A 10 |
Number of Job JONBR S 6 |
Name of Program JOPGM A 10 |
Name of Object JOOBJ A 10 ----------------------|
.
.
.
Entry Specific Data - Var JOESD A 80 <--------------------------------- I want my CUST data here!!
Most of the journal fields can empty - but I want my CUST data to be in JOESD. Can SQL or OPNQRYF do this?
I think I need to take fields JOENTL thru JOOBJ and initialize those. Then take all CUST fields CUST.* and string them together (alpha, packed, zoned) into the one JOESD field.
Is this possible without using an HLL?
Thanks!
______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit
http://www.symanteccloud.com ______________________________________________________________________
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
