MVSFORUMS.com

[kseenu]

I have String of 455 chars. It may contain Carriage Return in between. Is there any way to check for availablity of Carriage return in a String and if Found, I have to replace the Carriage Return with spaces.

The hex value of CRLF is X'0D25'.

Thanks

Seenu

[Phantom]

Seenu,

There are several ways of replacing a Character or string.

1. Using Sort (ALTSEQ)
2. Using Rexx
3. Using COBOL,
4. Using File-Aid
5. Using Easytrieve.....

Which one do you prefer?

Thanks,
Phantom

[Phantom]

Whatever be the case, I need the LRECL, RECFM of your input file.

Thanks,
Phantom

[ANIL SARATHY]

For information only.

Using Sort (ALTSEQ) , we can change as many as 1 byte values , but not 2 consecutive bytes ( always).

hex representation:

F F F 4 2 0 0 2
1 2 3 0 5 D D 5 .

Here we need to change "0d25" values only. if in the input file "od" and "25" don't appear any where individualy ie separate from each other then ALTSEQ can be used. Other wise it will change OD and 25 , no matter whereever they are. It defeats the purpose of changing CLRF with spaces.


Other wise , we have to use X,2,CHANGE=(2,x"0d25",x"4040"),nomatch=(x,2) for all positions.


_________________
Anil Sarathy

[kseenu]

I am fetching the data from DB in a Cobol Program. Then I have to search for the CRLF value and replace them with spaces.

The LRECL is 3657 and RECFM is FB


thanks

[ANIL SARATHY]

try this

[Phantom]

Seenu,

If you are reading this file using a COBOL why not just use INSPECT..REPLACING ?

[kolusu]

Anil sarathy,

You need to use the BBCODEs to enable the proper format of the code.

put your code enclosed in between the bbcode and check it.

{code}
//REPSORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD input file
//SORTOUT DD output file
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(1,3657,TRAN=ALTSEQ)
ALTSEQ CODE=(0D40,2540)
/*

{/code}

Now replace the { brackets with [ for {CODE} & {/CODE} .

Now this is how it looks like

[Mervyn]

I'm with Phantom, only it's X'0D25', not X'0D40'
_________________
The day you stop learning the dinosaur becomes extinct

[bauer]