On Wednesday, 9 April 2014 09:16:29 UTC-4, [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 = '' <-- Not required >> DRLREC = '' <-- Not required due to other correction below >> 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 = '' <-- change to ELSE >> DRLREC = '' >> DRLREC<1,-1> = DNUM >> WRITE DRLREC ON D29, DRLID >> END >> END >> REPEAT >> >
-- -- 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.
