Okay, here is what I ran. I got errors for not setting the rec variables so I set them to ''. The source file is:
DEBTOR, opened to DTR DREC - Source Record variable DNUM - source ID These labels are in existing documentation for the source file For the destination file, I created file DRL-29, opened to D29 I used the following labels for the destination file: DRLREC - destination record variable DRLID - destination ID OPEN 'DEBTOR' TO DTR ELSE STOP > OPEN 'DRL-29' TO D29 ELSE STOP > DREC = '' > DRLREC = '' > IF SYSTEM(11) ELSE CRT 'SAVE-LIST required from SOURCE file sorted by ID'; > STOP > LOOP > READNEXT DNUM ELSE EXIT > READ DREC FROM DTR, DNUM THEN > DRLID = DREC<29> > IF DRLID # '' THEN > READ DRLREC FROM D29, DRLID ELSE DRLID = '' > DRLREC<1,-1> = DNUM > WRITE DRLREC ON D29, DRLID > END > END > REPEAT > The result was one record in DRL-29 with all of the source file ID's multivalued in attribute 1 of that one record. So it is half working. -- -- IMPORTANT: T24/Globus posts are no longer accepted on this forum. To post, send email to [email protected] To unsubscribe, send email to [email protected] For more options, visit this group at http://groups.google.com/group/jBASE?hl=en --- You received this message because you are subscribed to the Google Groups "jBASE" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/d/optout.
