Help in loading a PS file into 3 dimensional Table

ankit9jain · New User Joined: 20 Jan 2009 Posts: 17 Location: India

hi,
i have below table definition in the code

dick scherrer · Posted: Fri Jan 29, 2010 10:02 pm Post subject:

Hello,

The "sample" data is indented but the temp-var is built only from the first 5 positions

Robert Sample · Posted: Sat Jan 30, 2010 1:13 am Post subject:

I see several issues that need to be addressed:

1. As Dick says, you're using reference modification to check the first bytes of the data record, yet they are indented in your example so you will never get any matches and your counts are all going to be zero.

2. Using a variable number of occurrences makes no sense since the storage will be allocated anyway -- and it complicates the code.

3. It is not clear from your post just what is supposed to be in WS-DTL-TYPE; I hope this is due to your extracting code but it's impossible to tell. And nothing is loaded into WS-DTL-SC, WS-DTL-RC, WS-DTL-VALUE so who knows if the posted code is anywhere near what you want to do.

4. Even if the indentation issue is addressed, your code looks for MAIN while the file contains MAIN- so there will never be any increment to WS-DEF-CNT.

ankit9jain · New User Joined: 20 Jan 2009 Posts: 17 Location: India

Hi Dick and Robert, thanks for ur responses

first of all, i gave the sample file in the intended format just to avoid confusion and add clarity to the input file format. Sorry if i confused you by this. input file is not indented.

2nd, sorry as i mentioned but it should have been "Main-".

for the 3rd one, i did not mention what is being loaded WS-DTL-SC, WS-DTL-RC, WS-DTL-VALUE, it goes like this

i am using delimited verb to extract the few sections of the sub-record and moving it accordingly.

UNSTRING SUB-RECORD-1 DELIMITED BY "(" OR ")" OR ":" OR "-"
INTO WS-TEMP1, WS-TEMP2,WS-TEMP3,WS-TEMP4

MOVE WS-TEMP1 INTO WS-DTL-TYPE(WS-DTL-IDX, WS-DESC-IDX, WS-DEF-IDX)
MOVE WS-TEMP2 INTO WS-DTL-SC(WS-DTL-IDX, WS-DESC-IDX, WS-DEF-IDX)
MOVE WS-TEMP3 INTO WS-DTL-EC(WS-DTL-IDX, WS-DESC-IDX, WS-DEF-IDX)
MOVE WS-TEMP4 INTO WS-DTL-VALUE(WS-DTL-IDX, WS-DESC-IDX, WS-DEF-IDX)

it looks like while loading the values into the table, i am messing it up.
could you please provide suggestions or better approach to handle(load/search)
3 dimensional table

dick scherrer · Posted: Sat Jan 30, 2010 11:29 am Post subject:

Hello,

While this info is not like the original, it does not appear to handle the first 2 dimensions values. . .

Suggest you post some realistic sample data and mention what values should be placed in the temp variables and the arrays for each input record.

We can go from there. . .

Until there is a clear understanding of what "should" happen, it will be difficult to suggest how to change/improve the process - at least for me

ankit9jain · New User Joined: 20 Jan 2009 Posts: 17 Location: India

Hi Dick,

My table definition is

Code is in later reply.

Now i need to match my Input files field by field and if any mismatch is found, i need to search the table on the starting
column of the mismatched field and do further processing accordingly. i am trying to achieve that by writing below code.

PERFORM VARYING WS-DEF-IDX FROM 1 BY 1
UNTIL (WS-DEF-IDX EQUAL (WS-DEF-CNT + 1))
PERFORM VARYING WS-DESC-IDX FROM 1 BY 1
UNTIL (WS-DESC-IDX EQUAL (WS-DESC-CNT + 1))
SET WS-DTL-IDX TO 1
SEARCH WS-DTL-TABLE
WHEN WS-DTL-SC(WS-DEF-IDX,WS-DESC-IDX,WS-DTL-IDX)
EQUAL TO WS-TEMP9
.....

END-SEARCH
END-PERFORM
END-PERFORM.

but as i mentioned before, it gives me "INDEX TOO HIGH" as soon as after 2 iteration.

dick scherrer · Posted: Wed Feb 03, 2010 4:03 am Post subject:

Hello,

What values are in these fields after the tables are loaded but before the searching begins? I suspect def-cnt is zero or 1. . .
05 WS-DEF-CNT PIC 9(01) COMP SYNC VALUE ZERO.
05 WS-DESC-CNT PIC 9(02) COMP SYNC VALUE ZERO.
05 WS-DTL-CNT PIC 9(02) COMP SYNC VALUE ZERO.

Please re-post the code using proper indentation and the "Code" tag. If you copy/paste already indented code into a reply, highlight it, and click Code, you will have what is needed. Use the Preview to see your post as it will appear to the forum rather than what you see in the Reply Editor. Whe the post appears as you want it, Submit.

ankit9jain · New User Joined: 20 Jan 2009 Posts: 17 Location: India

Hi Dick,

My table definition is

dick scherrer · Posted: Wed Feb 03, 2010 8:11 pm Post subject:

Hello,

It does not matter what happens from iteration to iteration. It matters (for now at least) what is in the count fields when you try to reference the loaded arrays.

I'm also not sure why you chose ODO. . . All of the space is allocated anyway. . . Possibly a solution in search of a requirement? And the way you are processing does not lend itself to ODO.

Suggest you give it a try without ODO and see what happens.

ankit9jain · New User Joined: 20 Jan 2009 Posts: 17 Location: India

Hi Dick,

Thanks for the suggestion. As per your suggestion, i tried without ODO
and code is working fine now.
Thanks again!!

dick scherrer

You're welcome - good to hear it is working.

Thank you for letting us know

d