Code: |
___ 1 SFPBPNR 95411132698 29 20100903 Root segment ___ 2 SFPBFALL Key=.. ___ 3 SFPBSJP 4 segments ___ 2 SFPBFALL Key=.. ___ 3 SFPBSJP 6 segments ___ 2 SFPBATB No key ___ 3 SFFNR 1 segment ___ 2 SFPBATB No key ___ 3 SFFNR 1 segment ___ 1 SFPBPNR 96607132385 21 20040209 Next root segment |
Code: |
| -------- | -------- | -------- | | SEGMENT | PARENT | KEY | | -------- | -------- | -------- | | SFPBPNR | ROOT | PNR | | SFPBFALL | SFPBPNR | SJNR | | SFPBSJP | SFPBFALL | TILLDAT | | SFPBATB | SFPBPNR | | | SFFNR | SFPBATB | FNR | |
Code: |
2 SFPBATB 3 6856 2057 3 SFFNR 1 segment 2 SFPBATB 10 799 240 3 SFFNR 1 segment |
Code: |
* move 'CFFPB' to pcb-namn in aib move length of ws-sfpbatb to ioarea-lengd in aib set gnp in aib to true * call 'AIBTDLI' using mcmaib-fun aib ws-sfpbatb afpbpnr <--- qualified SSA containing the key value 95411132698 sfpbatb-unqual-ssa <---- unqualified SSA * |
Code: |
* move 'CFFPB' to pcb-namn in aib move length of ws-sffnr to ioarea-lengd in aib set gnp in aib to true * call 'AIBTDLI' using mcmaib-fun aib ws-sffnr afpbpnr afpbatb <---- unqualified SSA sffnr-unqual-ssa <---- unqualified SSA |
misi01 wrote: |
Now, my problem (from a programming point of view) is how do I access each SFPBATB with the root as well as the SFFNR segments (in this example, there is only 1 SFFNR under each SFPBATB, but there could be multiple occurrences) |
Code: |
SFPBATB 3 6856 2057 SFPBATB 10 799 240 |
Code: |
move 'CFFPB' to pcb-namn in aib move length of ws-sfpbatb to ioarea-lengd in aib set gn in aib to true move 'P ' to CC-PBATB in AFPBatb <--- Set the parentage * call 'AIBTDLI' using mcmaib-fun aib ws-sfpbatb afpbpnr AFPBatb |
Code: |
01 AFPBATB. 05 SEGM-PBATB PIC X(08) VALUE 'SFPBATB'. * SEGMENTNAMN 05 CCA-PBATB PIC X(01) VALUE '*'. * COMMAND CODE ASTERISK 05 CC-PBATB PIC X(02) VALUE '--'. * COMMAND CODE 05 LP-PBATB PIC X(01) VALUE ' '. * LEFT PARENTHESIS |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours