MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Search found 2 matches
MVSFORUMS.com Forum Index
Author Message
  Topic: move alphanumeric to numeric
KIMOSABEE

Replies: 14
Views: 6446

PostForum: Application Programming   Posted: Wed Feb 28, 2007 7:50 pm   Subject: move alphanumeric to numeric
krish,

I recieve a file every year from a reputable vendor with the same problem. Here is how I solved the problem. You can examine each field for alphabetic or numeric data. Hope it helps.
...
  Topic: Using LIKE predicate in COBOL pgm
KIMOSABEE

Replies: 3
Views: 2594

PostForum: Application Programming   Posted: Tue Jan 02, 2007 5:52 pm   Subject: Using LIKE predicate in COBOL pgm
Hi Shreer,
try building the following:

----------
01 STRG-COUNTER PIC 99 VALUE ZEROES.
01 WS-REP-N.
05 WS-REP-1 PIC X(01) VALUE '%'.
05 WS-RE ...
 
Page 1 of 1
All times are GMT - 5 Hours
Jump to:  


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group