MVSFORUMS.com

[eskaysem]

Hello,
I need a JCL to compare 2 VB files of LRECL 730.
In that JCL I need to see if the record type ( on pos 17th) is a "OO" and when it is OO, then it should read positions 1 thru 12 and 257 thru 265 and write it on to a seperate file.

PS: Postion 257 thru 265 on the 'OO' type record is hex coded. It would be great if this is converted too.

Appreciate your help..


thanks!
sk
_________________
Thanks!,
Santosh Kulkarni

[kolusu]

eskaysem,

You are asking 2 separate issues. First you say you want to compare and then you say you want to extract the contents . if your intention is to copy the contents when the record is OO to a FB dataset then use the following control cards

we add 4 to the actual pos as VB have the RDW.

[eskaysem]

Thanks for your help Kolusu.
When I used syncsort with the control card you specified, I'm getting an error saying "Build is unidentified". I dont think we do have DFSort utility here.

Regards,
Sk
_________________
Thanks!,
Santosh Kulkarni

[amargulies]

[eskaysem]

Thank you Alissa and Kolusu.
I was able to copy the contents using fileaid.

Another issue I'm facing now is some part of the data is EBCDIC and is there anyway that when I copy over(probably could be nother step?) to the destined dataset, could it be in the printable format?

The EBCDIC data starts on postion 18 thru 22 and 24 thru 28.

Thanks a lot!!
Santosh
_________________
Thanks!,
Santosh Kulkarni

[Nic Clouston]

If it is on MVS then probably the entire file is in EBCDIC. Do you mean some of the decimal data is in PACKED DECIMAL format and you would like to convert it to ZONED DECIMAL i.e. eye-readable? IF so, tthis is definitely possible with the sort facilities - you can read the manual or search this forum for examples.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.