The program assumes (based on your original post) that the record keys (IDs) of the DEBTOR file are '101', '102', '103', etc. and that attribute 29 contains the data that will become the record keys of the DRL-29 file.
If you got errors for not setting variables then that tells me that the data structure is different than what the program is expecting. If you are only getting 1 record, what does that record look like? This may indicate what needs to be changed in the code. Also, remember, you need to do: SSELECT DEBTOR prior to running the program but this assumes that the program is working on the correct data structure. I would also suggest adding this line after the OPEN's: CLEARFILE D29 Dan On Wed, Apr 9, 2014 at 9:29 AM, Theo Aivazian <[email protected]>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] > 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] 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.
