 |
UV Software has a complete solution for conversion of mainframe
MVS or VSE JCL, COBOL, & DATA batch systems to Unix, Linux, or Windows/SFU.
Over 50 successful conversions including global corporations & government agencies.
Please see demo conversions & detailed explanations at:
www.uvsoftware.ca
You may send samples of your files for conversion & return by email.
You may download 1 free utility from:
www.uvsoftware.ca/ libuvhd.htm
'uvhd' displays data files with packed/binary fields in 'vertical hexadecimal',
and includes many interactive functions (browse, search, select, update, print, etc).
|
 |
COBOL Report Generator |
|
Print graphical COBOL reports in Windows with
RPV Reports.
Insert graphics (images, photos, logos, charts, etc.) into your COBOL reports
to improve the print quality of your COBOL reports.
See how RPV Reports can be used to preview or print graphical COBOL reports in Windows. |
|
|
COBOL Documentation |
|
Are your mainframe COBOL applications properly documented?
DCD III
is a comprehensive COBOL documentation and application
understanding tool that will allow you to reduce COBOL maintenance,
development, and mainframe migration costs.
Learn more about how you can document and understand your mainframe COBOL
applications with DCD III. |
|
|
COBOL Email List Rental |
|
You can reach a highly targeted, qualified, opt-in audience of
COBOL users by renting the COBUG email list.
Contact us today advertise@cobug.com for our email list rental rates.
|
|
|
Website Advertisement |
|
Advertise on the
COBUG website and reach tens of thousands of COBOL users. Increase
your COBOL sales leads.
Contact COBUG at advertise@cobug.com for advertising rates.
|
|
|
|
|
|
|
| |
|
IBM [
return
] |
|
From |
Message |
jessevv06
8/19/2009
21:05:00
|
 Subject: Table Search
Message:
Hello,
I am fairly new to COBOL programming and I am running into a bit of a coding block.
Currently I am coding a program that searches fields in a large array. The problem I am running into is the array I am searching has multiple records that need to be reported out. Currently the only way I can figure out how to code the application is it will find only first record, report the field, and that’s it. I need to fix this search so it will search the array entirely and report all the correct fields. I have tried coding this program with a SEARCH ALL statement and that didn’t work. Please let me know if you can help me out. Thank you!
Here is the current code. Please let me know if you need more
PERFORM 4100-HLQ-CNTL
UNTIL SEARCH-SUB > ARRAY-STOP.
4100-HLQ-CNTL.
ADD 1 TO SEARCH-SUB.
MOVE ABM-HLQ(SEARCH-SUB) TO HLQ-SEARCH.
PERFORM 4200-JOB-COST-TABLE-SEARCH.
4200-JOB-COST-TABLE-SEARCH.
* SEARCH JOB ARRAY WITH HLQ8 SEARCH
SET COSTS-INDEX TO 1.
SEARCH REGDB-COSTS
AT END PERFORM 4300-JOB-COST-TABLE-SRCH-HLQ4
WHEN JOB-NAME(COSTS-INDEX)(1:8) =
HLQ-SEARCH(1:8)
PERFORM 5000-MATCH-FOUND
END-SEARCH.
4300-JOB-COST-TABLE-SRCH-HLQ4.
HLQ-SEARCH (variable for this example)
HLQ
ABCDEFGH
JOB-NAME (variables in the array to be searched)
000100 ABCDEFGH|
000200 ABCDEFGH|
000300 ABCDEFGH|
000400 ABCDEFGH|
000500 ABCDEFGH|
Current output (note that only the first and only field is being reported)
HLQ
--------
ABCDEFGH
Desired Output (note that all 5 Job names are reported)
HLQ
--------
ABCDEFGH
ABCDEFGH
ABCDEFGH
ABCDEFGH
ABCDEFGH
|
Jens611
8/19/2009
23:03:17
| RE: Table Search
Message:
Please show us the full program. It looks as if there was no initialization of the counters and no incrementation as well.
Also consider a stop run between the PERFORM and the Paragraph.
Jens
|
jwl
8/20/2009
00:18:05
| RE: Table Search
Message:
Hi.
There is not enough code to see what you have actually programmed.
The index used to proceed through the table must be set before the initial search (index used in the search) and stepped up when you perform the search for the next occurrence.
james
|
jcotton
8/20/2009
05:40:35
| RE: Table Search
Message:
the SEARCH ALL is a binary table search, so the key that you are searching on MUST BE SORTED. If the table is not in sort order, you may use a SEARCH instruction (without the ALL) to do a table scan.
But why use the SEARCH instruction at all? Just code your particular search in a loop
PERFORM VARYING i BY 1
UNTIL key(i) = search-value OR i > table-length.
IF i > table-length....
|
| |
| P 1 Next Page >> | | | |
|
|
|
[ Go to Top of Page ]
|
|
|
|
COBOL Job Seekers |
Looking for a COBOL job? Submit your resume here and have it viewed by employers and recruiters hiring for COBOL positions.
|
|
|
Employers & Recruiters |
Do you need to fill a COBOL position? Post your COBOL jobs here and find the most qualified COBOL candidates to fill your COBOL position.
|
|
|
Call for Articles |
Articles are being sought for the COBUG newsletters.
Will you help us in our efforts to provide newsletters for the COBOL community at large?
Contribute to the COBUG newsletters! Answer this call for COBOL and related legacy articles. |
|
|
Local COBOL User Groups |
Check out the list of local COBOL user groups from around the world and join a user group near you.
|
|
|
Call for User Group Leaders! |
Get Involved! We are looking for user group
leaders to help organize and coordinate a local COBOL user group.
|
|
|
Join COBUG! |
Become a part of the COBUG community today.
Join Now ...
|
|
|
COBOL Forums |
Try our forums for help!
Let the COBUG members help you.
Post your issues!
|
|
|
