Kevin pointed out the problem - READ DRLREC FROM D29, DRLID ELSE DRLID = '' <-- change to ELSE DRLREC = '' I repeated DRLID instead of DRLREC. That change made it work the way that Daniel intended as he wrote it.
Thanks much to everyone! You are all JBASE heroes! On Wednesday, April 9, 2014 11:35:07 AM UTC-4, Daniel Klein wrote: > > You need to post the SSELECT statement, the 1 record the program created > and an actual sample of the source data. This is the only way to get this > resolved. > > Dan > > > On Wed, Apr 9, 2014 at 10:12 AM, <[email protected] <javascript:>>wrote: > >> It is just an sselect of all accounts with a value in attribute 29. If I >> sort by unique values in attribute 29 prior to running this process, then I >> wouldn't have multiple source ID's to multivalue >> >> >> On Wednesday, April 9, 2014 9:29:46 AM UTC-4, theo wrote: >> >>> where is your select statement? >>> >>> On Apr 9, 2014, at 9:16 AM, [email protected] wrote: >>> >>> 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. >>> >>> >>> -- >> -- >> IMPORTANT: T24/Globus posts are no longer accepted on this forum. >> >> To post, send email to [email protected] <javascript:> >> To unsubscribe, send email to [email protected] <javascript:> >> 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] <javascript:>. >> For more options, visit https://groups.google.com/d/optout. >> > > -- -- 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.
