How to reformat same field differently basing on a key value

Aruna Gutti · Posted: Tue Mar 17, 2009 8:19 pm

Hi,

This is my first post in this forum. So bear with me in case I missed anything. I checked the forum for a solution and couldn't come up with any hits.

I am trying to sort a VSAM file in to a CSV file using OUTREC feature. Some of the records have a field defined as characters and some have it as packed. So, how do I sort the file and reformat packed field properly.

Here is my basic sort control statement to create a CSV from VSAM:

SORT FIELDS=(5,5,CH,A)
RECORD TYPE=V
OUTREC FIELDS=(1,4,C'08,', (BEG RECORD)
5,2,C',', (GROUP NUM)
7,3,C',', (CODE )
10,1,C',', (AREA TYPE)
11,25,C',', (AREA1 )
26,25,C',') (AREA2 )

I am adding 08 as a starting field for the record.
If GROUP-NUM = 12 then the CODE field is coming as packed '9(5) Comp-3' otherwise it is coming as Char.

How to add that condition in the sort ?

Many Thanks,

Aruna.

Arun Raj · Posted: Tue Mar 17, 2009 8:37 pm

Aruna,

Welcome to the forums.

Can you post here your input and output file attributes?

Aruna Gutti · Posted: Tue Mar 17, 2009 8:55 pm

Hi Arun,

My Input is VSAM file with rec length 80and output file format is VB.

Here is JCL :

//SORTIN DD DSN=MC.VSAMLKUP,DISP=SHR
//SORTOUT DD DSN=LKUP.SEQ,
// DISP=(NEW,CATLG,DELETE),
// UNIT=DISK,
// SPACE=(0,(9,1),RLSE),
// DCB=(RECFM=VB,LRECL=70,BLKSIZE=0)

This is the Sysout listing :

SORTIN : RECFM=V ; LRECL= 80; CISIZE = 2048
OUTREC RECORD LENGTH = 68
SORTOUT : RECFM=VB ; LRECL= 70; BLKSIZE= 27998

Thanks,

Aruna.

Arun Raj · Posted: Tue Mar 17, 2009 11:26 pm

Aruna Gutti,

I dont have access to mainframe and cant test this now. I'll show you a possible way of achieving the same. Try and post back in case of issues; somebody will be here to help. Good luck

Aruna Gutti · Posted: Wed Mar 18, 2009 12:08 am

Hi Arun,

Wow! That is wonderful. It worked with a small change.

Instead of :

OUTREC IFTHEN=(WHEN=(8,2,CH,EQ,C'12'),OVERLAY=(11:11,3,PD,EDIT=(TTT)))

I Changed to :

OUTREC IFTHEN=(WHEN=(8,2,CH,EQ,C'12'),OVERLAY=(11:11,3,PD,EDIT=(TTTTT)))

as my out field is 5 bytes long.

Thanks a lot for your help,

Aruna.

Arun Raj · Posted: Wed Mar 18, 2009 1:52 am

You're welcome. Glad that it's worked for you