Array setup

Ask question on - DataBase Concepts, IBM Mainframe DB2, DB2/UDB, DB2 Tools, SQL , DB2 programming with languages like COBOL, PL1.

Moderators: Kalicharan, Moderator Group

Post Reply
anoopm7
Member
Posts: 1
Joined: Fri Mar 28, 2008 4:06 pm

Array setup

Post by anoopm7 » Thu May 08, 2008 11:40 am

Please do help me in making the below WHEN stament to a ARRAY. Iam doing this for improving the performance of the program.


When 1
Add +1 to choice-1
When 2
Add +2 to choice-2
.
.
.
.
When 140
Add +140 to choice-140


Thanks
Your help is apperciated.

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Thu May 08, 2008 2:47 pm

actually it is an EVALUATE statement, the WHEN is a clause.

I assume you are evaluating a field. if the field is numeric then you only need one statement (and you don't need the evaluate):

choice is an item that occurs at least 140 times.

add <field> to choice(field)
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others