how to substring a character field in cobol

[amitabh1_1]

Hi,

I have a character field of length 2000.
Here I got data from a dtaara like:

'1111111111111111111111111111111111110000001111'

Now, I have to check whether in possition 79 we have a '0' or '1'.

I am new to COBOL but I tried using Unstring in cobol but it was unsuccessful.

Please help me out in getting the code right, so that I can get '0' or '1' in a Work field from the string above.

[Mercury]

Re: how to substring a character field in cobol

No need to use UNSTRING or whatever. Use Accept instead :

SPECIAL-NAMES.                                 
     DATA-AREA is MyDA.      

WORKING-STORAGE SECTION.
01  MyFld pix x.                                     
                     
                                               
PROCEDURE DIVISION.                            
A00.                                         
    Accept MyFld From MyDA For "[I]My Data Area Name[/I]" At 79 
    End-Accept.
    Display MyFld.

[jamief]

Re: how to substring a character field in cobol

You french devil is there nothing you dont know

[Mercury]

Re: how to substring a character field in cobol

LOL ! It reminds me of Socrates famous quote, "All that I know is I know nothing".

You know my pal, I just learnt how to read the technical books I provided me with plus some practise of the language on mainframes & i.

[jamief]

Re: how to substring a character field in cobol

Philippe -- have a fantastic weekend....

[Mercury]

Re: how to substring a character field in cobol

Thanks Jamie, same to you.

[johnmauro]

Re: how to substring a character field in cobol

I knowthis is already been answered.
But an alternative way would be to use reference modification (P:L) p = position, l=length
Example
If My Data Area Name(79:1) = "1"
Then do this
Else do somthing else
End-If.

Just my 2 cents.
JM

[jamief]

Re: how to substring a character field in cobol

Thanks John..