Code: |
05 konto-tbl. 10 konto-rows occurs 40. 15 konto-details. 20 id-kundnr pic 9(9). ....... 20 kund-tbl. 25 kund-rows occurs 5. 30 kund-details 35 id-kundnr pic 9(9). ...... |
Code: |
move 12345 to id-kundnr in kund-tbl(index-1 index2) |
Quote: |
ID-KUNDNR was not a uniquely defined name. |
Code: |
MOVE W-ID-KUNDNR TO UT-ID-KUNDNR IN UT-KONTO-DETAILS IN UT-KONTO-ROWS(IXA) |
Code: |
MOVE W-ID-KUNDNR TO UT-ID-KUNDNR IN UT-KONTO-DETAILS(IXA) |
Code: |
MOVE W-ID-KUNDNR TO UT-ID-KUNDNR IN UT-KONTO-ROWS(IXA) |
misi01 wrote: |
I read it and it doesn't seem to be what I'm looking for . (BTW, we're on COBOL 6 if that's relevant). |
Code: |
01 KUND-RECORD. 05 KONTO-TBL. 10 KONTO-ROWS OCCURS 40 INDEXED BY I1. 15 KONTO-DETAILS. 20 ID-KUNDNR PIC 9(9). 20 KUND-TBL. 25 KUND-ROWS OCCURS 5 INDEXED BY I2. 30 KUND-DETAILS. 35 ID-KUNDNR PIC 9(9). MOVE 12345 TO ID-KUNDNR OF KUND-TBL OF KONTO-TBL (I1 I2) |
Code: |
01 KUND-RECORD. 05 KONTO-TBL. 10 KONTO-ROWS OCCURS 40 * INDEXED BY I1 . 15 KONTO-DETAILS. 20 ID-KUNDNR PIC 9(9). 20 KUND-TBL. 25 KUND-ROWS OCCURS 5 * INDEXED BY I2 . 30 KUND-DETAILS. 35 ID-KUNDNR PIC 9(9). |
Code: |
* MOVE 12345 TO ID-KUNDNR OF KUND-TBL OF KONTO-TBL (IXA IXB) * MOVE 12345 TO ID-KUNDNR OF KONTO-TBL (IXA) |
Code: |
01 KUND-RECORD. 05 KONTO-TBL. 10 KONTO-ROWS OCCURS 40 INDEXED BY I1. 15 KONTO-DETAILS. 20 KONTO-LEVEL1. 25 ID-KUNDNR PIC 9(9). 20 KUND-TBL. 25 KUND-ROWS OCCURS 5 INDEXED BY I2. 30 KUND-DETAILS. 35 ID-KUNDNR PIC 9(9). MOVE 12345 TO ID-KUNDNR OF KONTO-LEVEL1 (I1) MOVE 67890 TO ID-KUNDNR OF KUND-TBL OF KONTO-TBL (I1 I2) |
Code: |
01 KUND-RECORD. 05 KONTO-TBL. 10 KONTO-ROWS OCCURS 40. 15 KONTO-DETAILS. 20 KONTO-LEVEL1. 25 ID-KUNDNR PIC 9(9). 20 KUND-TBL. 25 KUND-ROWS OCCURS 5. 30 KUND-DETAILS. 35 ID-KUNDNR PIC 9(9). * PROCEDURE DIVISION. * STYR SECTION. * MOVE 12345 TO ID-KUNDNR OF KUND-TBL OF KONTO-TBL (IXA IXB) * MOVE 12345 TO ID-KUNDNR OF KONTO-LEVEL1(IXA) * MOVE 12345 TO ID-KUNDNR OF KONTO-DETAILS (IXA) * GOBACK. |
Code: |
MOVE 12345 TO ID-KUNDNR OF KONTO-DETAILS OF KONTO-TBL (IXA) |
Code: |
05 KONTO-TBL. 10 KONTO-ROWS OCCURS 40. |
Code: |
05 KONTO-TBL OCCURS 40. |
Code: |
perform varying index from 1 by 1 until index > 40 |
Code: |
compute w-nr-konto-rows = length of konto-tbl / length of konto-rows(1) |
Code: |
perform varying index from 1 by 1 until index > w-nr-konto-rows |
misi01 wrote: |
Thanks for your reply. I thought I'd expand on it a bit for "educational" purposes. |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours