Re: Need help how to distinguish btw 2 members

[Rich Duzenbury <rduz-midrange@xxxxxxxxxxxxxxxxxxx>]

I'm not sure I understand your question.  I take it to mean that you have 
two files with similar record layouts, and there isn't an indicator in each 
table to help identify the data source.  If that is the case, one thing I 
might try is to add a result field to the YSUSPQRY1 and YSUSPQRY2 outfiles.

You might set a field called 'SOURCE' to the constant 'T' for transactions 
in query one.  You might set a field called 'SOURCE' to the constant 'P' 
for positions in query two.   Once these fields are in the query outfiles, 
query three could sort and break on them - making it quite clear in the 
which data is from which source.

If you have something else in mind, please advise.


At 10:52 PM 9/24/03, you wrote:
> hi all,
> below is my cl program,iam generating spool file for user sake in third 
> query.my program is working fine and  generating correct report.
> my problem is ,is there anyway i can distiguish between TRANSACTIONS and 
> POSITIONS  in the final report.since iam adding POSITIONS to the 
> TRANSACTIONS ,user is unable to find where exactly POSITIONS starts in the 
> final  report (ysusprep).Below is the final report.Please try to help me 
> how do i distinuish btw these TRANSACTION &POSITIONS..can anybody help?
> ------------------------------------------------------------------------
>  PGM
>  /* FOR TRANSACTIONS */
>               RUNQRY     QRY(YNGTEST/YSUSPQRY1) +
>                            QRYFILE((QS36FSUR/GMICMFF1) +
>                            (QS36FSUR/GMITRNF1)) OUTTYPE(*OUTFILE) +
>                            OUTFILE(YNGTEST/YSUSPREP  *FIRST *RPLMBR)
>  /* FOR POSITIONS    */
>               RUNQRY     QRY(YNGTEST/YSUSPQRY2) +
>                            QRYFILE((QS36FSUR/GMICMFF1) +
>                            (QS36FSUR/GMIPOSF1)) OUTTYPE(*OUTFILE) +
>                            OUTFILE(YNGTEST/YSUSPREP *FIRST *ADDMBR)
>               RUNQRY     QRY(YNGTEST/YSUSPQRY3)
> ENDPGM
> ------------------------------------------------------------------------
>
> ------------------------- YSUSPREP-----------------------
> ACCOUNT   DESC                            EXCH         DATE
> 69999999  DEC 03 TSE 10 YR JGB             24    20,030,918
> 69999999  DEC 03 TSE TOPIX                 24    20,030,918
> 69999999  DEC 03 TSE TOPIX                 24    20,030,918
> 69999999  DEC 03 TSE TOPIX                 24    20,030,918
> 69999999  DEC 03 TSE TOPIX                 24    20,030,918
> 69999999  DEC 03 TSE TOPIX                 24    20,030,918
>
>
>
>
>
>
>
>
>
>
>
>
>
> ___________________________________________________
> Television meets Accounts; Jyoti Weds Rajaram.
> Rediff Matchmaker strikes another interesting match !!
> Visit http://matchmaker.rediff.com?1
>
> _______________________________________________
> 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.