MVSFORUMS.com

[thakuranirban]

Hi,
I've an input customer file and my COBOL program needs to process all records having customer nos starting with 6. Now the customer no field is defined as PIC 9(7) in the file.

What is the COBOL syntax for the above, considering I write that statement, in an IF-ELSE block?

Thanks in advance,
Anirban

[vivek1983]

thakuranirban,

Try this untested code:



[code:1:70ed303fc0]

05 WS03-CUST-NO-9 PIC 9(07).
05 WS03-CUST-NO-X REDEFINES WS03-CUST-NO.
10 WS03-CUST-NO PIC X(07).

05 WS03-TEMP-VAR PIC X(07).
05 WS03-TEMP-CNT PIC 9(09).

.....

INSPECT WS03-CUST-NO REPLACING ALL LEADING ZEROES BY SPACES.


INSPECT WS03-CUST-NO TALLYING WS-TEMP-CNT FOR CHARACTERS '6' AFTER
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[CICS Guy]

If custno >= 6000000 and < 7000000 then ignore....
if custno(1:1) = '6' then ignore.....

Might I introduce you to the Fine COBOL Manual
and its section on the IF-ELSE?

[vivek1983]

CICS Guy,

I think records having cust no like 6000, 66000 should also get processed which will get ignored in your code.

thakuranirban,

Please provide your inputs.

Vivek G
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[CICS Guy]

Technically, the custnos you identify actually begin with zero.......
If the specs aren't clear, what can I say......

But, looking at it your way, IF-ELSE or better yet EVALUATE would still be a good option...
If custno >= 6000000 and < 7000000 then ignore....
else If custno >= 600000 and < 700000 then ignore....
else If custno >= 60000 and < 70000 then ignore....
else If custno >= 6000 and < 7000 then ignore....
else If custno >= 600 and < 700 then ignore....
else If custno >= 60 and < 70 then ignore....
else If custno >= 6 and < 7 then ignore....
else process......

[dbzTHEdinosauer]

[blitz2]

ummm ... OP wants an 'IF-ELSE block'!!!
thakuranirban, please be clear about your problem, give examples if possible.
________
Utg Everblast Enforcement Airsoft Shotgun

[dbzTHEdinosauer]

ummmmmmmm,

The purpose of these forums is provide guidance and answers. Even though the OP wants an IF-ELSE block, those of us with experience know that a convoluted IF-ELSE block is dummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmb!

With a properly stated EVALUATE statement, if there are changes in the future for the selection criteria, the EVALUATE statement can be easily modified. Whereas a convoluted IF-ELSE block (especially 7 levels) is not. Besides, good programming practices suggest that an IF-ELSE block should not exceed 3 levels.

besides, I thought the OP was clear with his request: if an account number starts with a 6, process the account.
_________________
Dick Brenholtz
American living in Varel, Germany

[dbzTHEdinosauer]

Actually, the easiest way to accomplish this is thru use of Level-88's