can u tell me how to pass nuemeric values to the data



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

can u tell me how to pass nuemeric values to the data

Postby slaxman9 » Fri Sep 09, 2011 1:42 pm

EVALUATE TRUE
004330 WHEN cust_code = "7digit" MOVE 000 TO us_cust
004340 WHEN cust_num = "10digit " MOVE " " TO Ps_cust

004420 WHEN OTHER MOVE 0 TO US_CUST
004420 END-EVALUATE.


CAN I USE THIS REQUIREMENT SUCH WAY?
slaxman9
 
Posts: 6
Joined: Mon Jul 11, 2011 4:17 pm
Has thanked: 0 time
Been thanked: 0 time

Re: can u tell me how to pass nuemeric values to the data

Postby enrico-sorichetti » Fri Sep 09, 2011 2:25 pm

well... the description of the requirement is clear as mud :D
it might be clear to You , but to get reasonable replies, you will have to do a better job describing it
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times

Re: can u tell me how to pass nuemeric values to the data

Postby Robert Sample » Fri Sep 09, 2011 2:53 pm

Why not just do a quick test and find out for yourself? Since we don't know what you mean by your terms (such as = "7digit" or = "10digit" -- is this comparing to the actual literal? is it supposed to be shorthand for a much longer comparison? is it supposed to be some magic that determines whether the variable meets to condition without any code to ensure that it does? or something else entirely?), there is no way we can tell you what your code would do.
Robert Sample
Global moderator
 
Posts: 3719
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: can u tell me how to pass nuemeric values to the data

Postby slaxman9 » Fri Sep 09, 2011 3:58 pm

thanx....
slaxman9
 
Posts: 6
Joined: Mon Jul 11, 2011 4:17 pm
Has thanked: 0 time
Been thanked: 0 time


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post