Author |
Message |
Topic: Cobol between |
shuko
Replies: 5
Views: 4409
|
Forum: Application Programming Posted: Fri Apr 18, 2014 5:23 am Subject: Cobol between |
Thank you Kolusu
I did it like this as I read somewhere that a SEARCH is faster than a PERFORM varying. Maybe for a small table it does not make a difference.
SET Ridx TO 1
SEARCH sX5nC1
... |
Topic: Cobol between |
shuko
Replies: 5
Views: 4409
|
Forum: Application Programming Posted: Thu Apr 17, 2014 9:11 am Subject: Cobol between |
Hello
What I am trying to do is to get the amount from the internal table
if input year is a between nDevYrFrom and nDevyrTo.
if the input nDevYr = 10 for example, I should get the amount 300 an ... |
Topic: ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION |
shuko
Replies: 3
Views: 6857
|
Forum: Utilities Posted: Tue Sep 28, 2010 9:14 am Subject: ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION |
Manged to sort with the following statements. Files were defined with LRECL=516, but the max record length in the file was just 113.
OPTION DYNALLOC=(,00100),FILSZ=E1173857154,AVGRLEN=11 ... |
Topic: ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION |
shuko
Replies: 3
Views: 6857
|
Forum: Utilities Posted: Tue Sep 28, 2010 3:49 am Subject: ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION |
The JCL messatges
13.42.22 J0414943 ---- MONDAY, 27 SEP 2010 ----
13.42.22 J0414943 IEF677I WARNING MESSAGE(S ... |
Topic: ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION |
shuko
Replies: 3
Views: 6857
|
Forum: Utilities Posted: Tue Sep 28, 2010 12:33 am Subject: ICE083A D RESOURCES WERE UNAVAILABLE FOR DYNAMIC ALLOCATION |
I am trying to sort large volume of data and keep getting the following error. What can I do different to get my sort through? Any tips would be great.
ICE805I 1 JOBNAME: G11252T5 , STEPNA ... |
Topic: COBOL compare two internal tables |
shuko
Replies: 9
Views: 9289
|
Forum: Application Programming Posted: Sun Nov 16, 2008 7:27 am Subject: COBOL compare two internal tables |
I have a solution now. I search the contents of table1 with Table2 and vice versa and set the flag accordingly.
Thank you |
Topic: COBOL compare two internal tables |
shuko
Replies: 9
Views: 9289
|
Forum: Application Programming Posted: Fri Nov 14, 2008 2:23 am Subject: COBOL compare two internal tables |
The information for these two tables are got from two seperate Modules
in the main program. The main program has to do this comparison and reach a decision. |
Topic: COBOL compare two internal tables |
shuko
Replies: 9
Views: 9289
|
Forum: Application Programming Posted: Thu Nov 13, 2008 9:32 am Subject: COBOL compare two internal tables |
I would consider your example to be the same. I have a few examples here
Example 1
Table1
Name Value
-----------------------
Bill XY
John YZ
... |
Topic: COBOL compare two internal tables |
shuko
Replies: 9
Views: 9289
|
Forum: Application Programming Posted: Thu Nov 13, 2008 5:07 am Subject: COBOL compare two internal tables |
To set the flag to Y when the Tab1Count and the Tab2Count are the same is easy.
It could be possible that the Tab1Count and Tab2count are the same but the Name and/or values are different or the Ta ... |
Topic: COBOL compare two internal tables |
shuko
Replies: 9
Views: 9289
|
Forum: Application Programming Posted: Wed Nov 12, 2008 3:11 pm Subject: COBOL compare two internal tables |
Hello
I have two internal tables and I want to compare these two tables
If the name and value in both the tables and the Tab1Count and Tab2Count are also the same then set Flag = Y.
If Table 1 ... |
Topic: Insert new record in a detail record based on a condition |
shuko
Replies: 4
Views: 2820
|
Forum: Utilities Posted: Mon Jun 02, 2008 12:50 pm Subject: Insert new record in a detail record based on a condition |
Thank you Kolusu.
Shuko |
Topic: Insert new record in a detail record based on a condition |
shuko
Replies: 4
Views: 2820
|
Forum: Utilities Posted: Mon Jun 02, 2008 1:47 am Subject: Insert new record in a detail record based on a condition |
Thank you kolusu. I just had to make a few changes and the code worked as expected.
IFTHEN=(WHEN=(2,9,CH,EQ,C'WS-TITLE'),
BUILD=(01,80,/,1:C'2',53,6,34 ... |
Topic: Insert new record in a detail record based on a condition |
shuko
Replies: 4
Views: 2820
|
Forum: Utilities Posted: Wed May 28, 2008 3:49 am Subject: Insert new record in a detail record based on a condition |
I have a file with header and detail records. The header records always starts with 1 in postion 1 and detail records with 2 in position 2.
The file is FB with LRECL=68.
Example of a file with he ... |
Topic: Insert a new record in a detail record based on a condition. |
shuko
Replies: 0
Views: 974
|
Forum: Utilities Posted: Tue May 27, 2008 7:22 am Subject: Insert a new record in a detail record based on a condition. |
I have a file with header and detail records.
The header records always starts with 1 in postion 1 and detail records with 2 in position 2. The file is FB with LRECL=68.
Example of a file with ... |
Topic: Add some values to existing records in a specific column |
shuko
Replies: 8
Views: 3128
|
Forum: Utilities Posted: Thu Jan 24, 2008 1:51 am Subject: Add some values to existing records in a specific column |
Thank you very much Frank,works as expected.
Shuko |
|